Patient Information Management System (PIMS) V. 5.3 Installation ...
Patient Information Management System (PIMS) V. 5.3 Installation ...
Patient Information Management System (PIMS) V. 5.3 Installation ...
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
DHCP Patch Display Page: 3<br />
=============================================================================<br />
Run Date: AUG 2, 1993 Designation: OR*2.5*14<br />
Package : OR - ORDER ENTRY/RESULTS RE Priority : MANDATORY<br />
Version : 2.5 SEQ #8 Status : VERIFIED<br />
=============================================================================<br />
I<br />
$L($T(LOGRSRC^%ZOSV)),$G(^TMP("XQORS",$J,XQORS,"REF"))["ORD(101,",$P(@(^("RE(<br />
0),"^") D:'$D(XQXFLG) ABT^XQ12 D:$P(XQXFLG,"^",2)=1 LOGRSRC^%ZOSV("*"_ORX)<br />
Routine Checksum:<br />
12743758<br />
Routine Name: XQORO<br />
Description of Changes:<br />
Line: ENTRY+5<br />
r XUCMP<br />
w XQXFLG<br />
r XUCMP<br />
w $P(XQXFLG,"^",2)=1<br />
Line now looks like:<br />
I<br />
$L($T(LOGRSRC^%ZOSV)),XQORNOD["ORD(101,",$P(^ORD(101, +XQORNOD,0),"^",4)'="M"F<br />
LG,"^",2)=1 S ORPRFRM="*"_$P(^ORD(101,+XQORNOD,0),"^") D<br />
LOGRSRC^%ZOSV("*"_ORPR)<br />
Line: EXIT+6<br />
r XUCMP<br />
w XQXFLG<br />
r XUCMP<br />
w $P(XQXFLG,"^",2)=1<br />
Line now looks like:<br />
I $D(ORPRFRM),$L($T(LOGRSRC^%ZOSV)) D:'$D(XQXFLG) ABT^XQ12<br />
D:$P(XQXFLG,"^",2)=M<br />
Routine Checksum:<br />
11401832<br />
=============================================================================<br />
User <strong>Information</strong>:<br />
Entered By : ANDRUS,RUSTY Date Entered : JUL 15,1993<br />
Completed By: FROMMATER,RANDAL A Dat e Completed: JUL 27,1993<br />
Verified By : DEFA,TANA Date Verified : JUL 29,1993<br />
=============================================================================