Routine: PSGOER

Information

PSGOER ;BIR/CML3-RENEW A SINGLE ORDER ;29-May-2012 14:30;PLS

Call Graph

Call Graph Total: 25

Package	Total	Call Graph
Inpatient Medications	15	^PSGAL5 ABORT^PSGOEE DATE^PSGOER0 EN^PSGPEN ($$PRNOK,DW)^PSGS0 (ENDDC,IVSOL)^PSGSICHK ENPOS^PSGVDS $$DOW^PSIVUTL ^PSJCOMR EN1^PSJHL2 $$SCHREQ^PSJLIVFD ENUDTX^PSJOREN ($$ENQ,$$LASTAT)^PSJORP2 ADMIN^PSJORPOE ($$DATE,$$DATE2)^PSJUTL2
VA Fileman	4	NOW^%DTC FILE^DICN ^DIE ^DIR
Kernel	2	$$FMADD^XLFDT $$PATCH^XPDUTL
Barcode Medication Administration	1	$$EN^PSBAPIPM
IHS Omnicell Pyxis Interface	1	RENEW^BOPCAP
Pharmacy Data Management	1	($$LS,UNL)^PSSLOCK
Registration	1	PAUSE^VALM1

Package	Total	Caller Graph
Inpatient Medications	15	PSGOE1 PSGOERI PSGOERS PSGOEV PSGOTR PSIVOPT2 PSIVOREN PSJCOMR PSJHLV PSJLIORD PSJOE PSJOEA1 PSJOEA2 PSJORREN PSJUTL2

Entry Points

Name	Comments	DBIA/ICR reference
UPDRENOE(PSGP,PSGORD,RDATE)	;
UNMARK	;
MOVE(X,Y)	; Move comments/dispense drugs from 55 to 53.45.
EXTEND	; extend stop date on renewal order
UPDREN(PSGORD,RNWDT,PSGOEPR,PSGOFD,PSJNOO,RDUZ)	; update renewed order
READ	; hold screen
CALLBOP	;
PRNFREQ(SCHED)	;
OC55	;* Order checks for Speed finish and regular finish
MARK	;
NXTDOW(DOWDFN,DOWSD,DOWFD,DOWSCH,DOWAT)	;
EXPIRED(PSJX,PSJY)	; ; INPUT ; PSJX - Pharmacy Patient, pointer to ^PS(55 ; PSJY - Inpatient Order Number (appended with "V" or "U") ; OUTPUT ; 0 - Order has not exceeded the Expired Time Limit ; 1 - Order has exceeded the Expired Time Limit
DONE	;
EXPOE(DFN,PSJORDER,EXPDT)	; expire old Orders File entry
NEW	; get info, write record
SPEED	;

External References

Name	Field # of Occurrence
NOW^%DTC	EXTEND+6, EXPOE+3
RENEW^BOPCAP	CALLBOP+1
FILE^DICN	UPDREN+7
^DIE	UPDREN+5, UPDREN+12, UPDRENOE+2
^DIR	PSGOER+25, UNMARK+2
$$EN^PSBAPIPM	EXTEND+2, EXPIRED+15, EXPIRED+19, EXPIRED+27, EXPIRED+31
^PSGAL5	UNMARK+4, SPEED+5, MARK+2
ABORT^PSGOEE	PSGOER+28, UNMARK+3, EXTEND+9
DATE^PSGOER0	EXTEND+9
EN^PSGPEN	SPEED+1
$$PRNOK^PSGS0	PSGOER+22
DW^PSGS0	PSGOER+18
ENDDC^PSGSICHK	OC55+3
IVSOL^PSGSICHK	OC55+5
ENPOS^PSGVDS	MARK+3
$$DOW^PSIVUTL	PSGOER+22, EXPIRED+18, EXPIRED+26
^PSJCOMR	PSGOER+13
EN1^PSJHL2	UPDRENOE+4, EXPOE+4
$$SCHREQ^PSJLIVFD	EXPIRED+24
ENUDTX^PSJOREN	UPDRENOE+3
$$ENQ^PSJORP2	EXPIRED+20, EXPIRED+32, NXTDOW+1
$$LASTAT^PSJORP2	EXPIRED+16
ADMIN^PSJORPOE	PRNFREQ+2
$$DATE^PSJUTL2	EXPIRED+9
$$DATE2^PSJUTL2	EXPOE+3
$$LS^PSSLOCK	SPEED+6
UNL^PSSLOCK	SPEED+6
PAUSE^VALM1	PSGOER+16, PSGOER+21, PSGOER+23
$$FMADD^XLFDT	EXPIRED+15, EXPIRED+16, EXPIRED+17, EXPIRED+19, EXPIRED+20, EXPIRED+21, EXPIRED+27, EXPIRED+28, EXPIRED+30, EXPIRED+31 , EXPIRED+32, NXTDOW+1
$$PATCH^XPDUTL	CALLBOP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"This order contains a 'DAY OF THE WEEK' schedule without admin times" Line Location: PSGOER+20
Function Call: WRITE	Prompt: !! Line Location: PSGOER+24
Function Call: WRITE	Prompt: !!,"THIS ORDER HAS BEEN 'MARKED FOR RENEWAL'.",! Line Location: UNMARK+1
Function Call: WRITE	Prompt: "...DONE!" Line Location: UNMARK+4
Function Call: WRITE	Prompt: !!?5,"THIS ONE-TIME ORDER HAS ALREADY BEEN GIVEN AND CANNOT BE RENEWED",! Line Location: EXTEND+3
Function Call: WRITE	Prompt: !!,"...updating order..." Line Location: SPEED+5
Function Call: WRITE	Prompt: "." Line Location: SPEED+5
Function Call: WRITE	Prompt: ".DONE!" Line Location: SPEED+9
Function Call: WRITE	Prompt: $C(7),!!?3,"...THIS ORDER IS ALREADY MARKED FOR RENEWAL!..." Line Location: MARK+1
Function Call: WRITE	Prompt: "." Line Location: MARK+2
Function Call: WRITE	Prompt: !?5,"Press return to continue " Line Location: READ+2
Routine Call	DIE Line Location: UPDREN+5 UPDREN+12 UPDRENOE+2
Routine Call	DIR Line Location: PSGOER+25 UNMARK+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.1 - [#51.1]	PSGOER+22
^PS(53.45 - [#53.45]	EXTEND+8!, MOVE+1, MOVE+2
^PS(55 - [#55]	PSGOER+27, UNMARK+4, EXTEND+1, EXTEND+2, EXTEND+6, EXTEND+7, SPEED+8, MARK+2*, MOVE+1, OC55+3 , OC55+5, EXPIRED+8, EXPIRED+10, EXPIRED+12, EXPIRED+13, EXPIRED+22, EXPIRED+25
^PS(59.7 - [#59.7]	EXPIRED+21
^TMP($J	OC55+4!

Label References

Name	Line Occurrences
$$EXPIRED	PSGOER+14
$$NXTDOW	EXPIRED+18, EXPIRED+29
$$PRNFREQ	EXPIRED+13, EXPIRED+30
CALLBOP	SPEED+4
DONE	PSGOER+26, PSGOER+27, PSGOER+28, UNMARK+3, EXTEND+9
EXPOE	UPDRENOE+1
MARK	EXTEND+6
MOVE	EXTEND+8
NEW	PSGOER+26
OC55	EXTEND+4
READ	EXTEND+3
UNMARK	PSGOER+27
UPDREN	SPEED+6
UPDRENOE	SPEED+6

Naked Globals

Name	Field # of Occurrence
^(	MOVE+1
^(2	EXTEND+8!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EXTEND+6, EXPOE+3
%DT	DONE+1!
ACT	EXTEND+2~*
>> CHK	PSGOER+20*
>> COMQUIT	EXTEND+9*
CURDAT	EXPOE+3~*, EXPOE+4
CUTOFF	EXPIRED+7~, EXPIRED+15, EXPIRED+16, EXPIRED+17, EXPIRED+18, EXPIRED+19, EXPIRED+20, EXPIRED+21, EXPIRED+27, EXPIRED+28 , EXPIRED+29, EXPIRED+30, EXPIRED+31, EXPIRED+32, EXPIRED+34
D	PRNFREQ+1~
DA	UNMARK+4, DONE+1!, SPEED+5!, MARK+2!, UPDREN+1~, UPDREN+5, UPDREN+6!, UPDREN+8!, UPDRENOE+2!, PRNFREQ+1~
DA(1	UNMARK+4, SPEED+5, MARK+2, UPDREN+5, UPDREN+6, UPDREN+8, UPDRENOE+2*
DA(2	UPDREN+6*
DD	UPDREN+1~, UPDREN+6!, UPDREN+8!
DFN	UPDRENOE+2, EXPOE~, EXPOE+4, EXPIRED+7~*, EXPIRED+16, EXPIRED+18, EXPIRED+22
DIC	UPDREN+1~, UPDREN+6!*, UPDREN+8!
DIC("DR"	UPDREN+7*
DIC("P"	UPDREN+6*
DIC(0	UPDREN+6*
DIE	DONE+1!, UPDREN+1~, UPDREN+5, UPDREN+6!, UPDREN+8!, UPDREN+11, UPDRENOE+2!*
>> DINUM	UPDREN+6*
DIR	PSGOER+24!, UNMARK+1!, DONE+1!
DIR("?"	PSGOER+25, UNMARK+2
DIR("A"	PSGOER+24, UNMARK+1
DIR("B"	PSGOER+24, UNMARK+1
DIR(0	PSGOER+24, UNMARK+1
>> DIRUT	PSGOER+26, PSGOER+27, EXTEND+3*
DO	UPDREN+1~, UPDREN+6!, UPDREN+8!
DOWAT	NXTDOW~, NXTDOW+1
DOWDFN	NXTDOW~, NXTDOW+1
DOWFD	NXTDOW~, NXTDOW+1
DOWSCH	NXTDOW~, NXTDOW+1
DOWSD	NXTDOW~, NXTDOW+2
DOWSTR	NXTDOW+1~*
DR	DONE+1!, UPDREN+1~, UPDREN+2, UPDREN+5, UPDREN+6!, UPDREN+8!, UPDREN+10, UPDREN+11, UPDRENOE+2!
DTIME	READ+2
DUOUT	EXTEND+1~, EXTEND+9, SPEED+2
DUZ	MARK+2, UPDREN+7
EXPDT	EXPOE~, EXPOE+4
FDSD	DONE+1!
>> FILE	EXPOE+1*
FREQ	EXPIRED+7~, EXPIRED+12, EXPIRED+13, EXPIRED+16, EXPIRED+17, EXPIRED+20, EXPIRED+30*
INTERVAL	EXPIRED+25~*, EXPIRED+26
INTERVEN	OC55+1~, OC55+2*
IOST	READ+1
IVSTYP	EXPIRED+25~, EXPIRED+26*, EXPIRED+27, EXPIRED+28, EXPIRED+29
LAST	EXPIRED+7~, EXPIRED+15, EXPIRED+16, EXPIRED+17, EXPIRED+19, EXPIRED+20, EXPIRED+27, EXPIRED+28, EXPIRED+29, EXPIRED+30 , EXPIRED+31*, EXPIRED+32
LASTAT	EXPIRED+7~
LIMIT	EXPIRED+21~*
LSTSTR	EXPIRED+7~, EXPIRED+14, EXPIRED+16, EXPIRED+17, EXPIRED+18, EXPIRED+20, EXPIRED+25~, EXPIRED+26, EXPIRED+32
LYN	EXPIRED+33!
ND0	EXPIRED+12~, EXPIRED+14, EXPIRED+15, EXPIRED+25~, EXPIRED+26, EXPIRED+27, EXPIRED+28, EXPIRED+31
>> ND14	UPDREN+6*
ND2	EXPIRED+12~*, EXPIRED+14, EXPIRED+15, EXPIRED+16, EXPIRED+19
NOW	EXPIRED+7~, EXPIRED+9*, EXPIRED+11, EXPIRED+15, EXPIRED+19, EXPIRED+27, EXPIRED+28, EXPIRED+31, EXPIRED+34
NXTADM	NXTDOW+1~*, NXTDOW+2
P	EXPIRED+22~, EXPIRED+24
P(	EXPIRED+22*
P(11	EXPIRED+29
P(2	EXPIRED+29
P(4	EXPIRED+22, EXPIRED+23
P(9	EXPIRED+29
PSBCNT	EXPIRED+7~
PSBDT	EXPIRED+33!
PSBFLAG	EXPIRED+33!
PSBSTR	EXPIRED+33!
PSGAL	DONE+1!
PSGAL("C"	UNMARK+4, SPEED+5, MARK+2*
PSGALR	DONE+1!
PSGAT	PSGOER+17, PSGOER+20, UPDREN+11, PRNFREQ+1~
>> PSGCANFL	PSGOER+26*
>> PSGDDI	OC55+5*
PSGDL	DONE+1!
PSGDLS	DONE+1!
PSGDRG	EXTEND+1~*
PSGDT	EXTEND+6*, EXTEND+9, SPEED+6, MARK+2, MARK+3, EXPIRED+7~, EXPIRED+9, EXPIRED+20, EXPIRED+32, PRNFREQ+1~
PSGDW	EXPIRED+7~
PSGFD	DONE+1!, SPEED+8
PSGFOK	DONE+1!
PSGFOK(106	EXTEND+9
PSGND4	PSGOER+27, UNMARK+4, DONE+1!, EXTEND+6, MARK+1, MARK+2
>> PSGNESD	UPDREN+2*
PSGOC	EXPIRED+7~
PSGOEAV	SPEED+3~*
PSGOEE	DONE+1!, EXTEND+7*
>> PSGOEENO	UPDREN+2*
>> PSGOEORD	UPDREN+3*, UPDREN+7
PSGOEOS	EXTEND+7!
PSGOEPR	SPEED+6, UPDREN~, UPDREN+2, UPDREN+7
PSGOER0	DONE+1!
PSGOER1	DONE+1!
PSGOER2	DONE+1!
PSGOERDP	DONE+1!, SPEED+8
PSGOES	PRNFREQ+1~
PSGOFD	SPEED+6, UPDREN~, UPDREN+2, UPDREN+7
PSGOORD	UPDREN+1~, UPDREN+2*
PSGOPR	DONE+1!
PSGORD	PSGOER+14, PSGOER+27, UNMARK+4, EXTEND+1, EXTEND+2, EXTEND+6, EXTEND+9, SPEED+1, SPEED+5, SPEED+6 , MARK+2, MARK+3*, MOVE+1, OC55+3, OC55+5, UPDREN~, UPDREN+2, UPDREN+3, UPDREN+5, UPDREN+6 , UPDREN+8, UPDREN+10, UPDREN+11, UPDRENOE~, UPDRENOE+1, UPDRENOE+2, UPDRENOE+3, UPDRENOE+4
PSGOREAS	EXTEND+1~
PSGORQF	EXTEND+3*, EXTEND+5, OC55+3!, OC55+4!
PSGOSD	DONE+1!
PSGP	PSGOER+14, PSGOER+27, UNMARK+4, EXTEND+1, EXTEND+2, EXTEND+6, EXTEND+7, EXTEND+9, SPEED+5, SPEED+6 , SPEED+8, MARK+2, MOVE+1, OC55+3, OC55+5, UPDREN+3, UPDREN+5, UPDREN+6, UPDREN+8, UPDREN+10 , UPDRENOE~, UPDRENOE+1, UPDRENOE+3, UPDRENOE+4
PSGPOSA	DONE+1!, MARK+3*
PSGPOSD	DONE+1!, MARK+3*
PSGPR	DONE+1!, UPDREN+5
PSGPX	DONE+1!
PSGRD	DONE+1!
PSGRFOUR	UPDREN+1~, UPDREN+10*
PSGRZERO	UPDREN+1~, UPDREN+3*
PSGS0XT	PSGOER+17, PSGOER+18*, PSGOER+20, PRNFREQ+1~, PRNFREQ+3
PSGS0Y	PRNFREQ+1~
>> PSGSCH	PSGOER+17, PSGOER+18, PSGOER+22
PSGSD	DONE+1!, UPDREN+2
PSGST	PSGOER+19, EXTEND+2, PRNFREQ+1~
PSGTOL	DONE+1!
PSGTOO	DONE+1!
PSGUOW	DONE+1!
PSGWLL	DONE+1!, EXTEND+7*, SPEED+8
PSJABT	EXTEND+1~
>> PSJCOM	PSGOER+13
>> PSJDD	OC55+5*
PSJDDI	OC55+1~
PSJEXPIR	PSGOER+14~*, PSGOER+15
PSJEXPOE	EXPOE+4*!
PSJIREQ	OC55+1~, OC55+2*
PSJNOO	SPEED+6, UPDREN~, UPDREN+2*, UPDREN+5
PSJNSS	PRNFREQ+1~
>> PSJORD	UPDREN+10
PSJORDER	EXPOE~, EXPOE+1*, EXPOE+2, EXPOE+4
PSJPDRG	OC55+1~, OC55+5!
PSJPSTO	EXPIRED+7~
PSJPWD	PRNFREQ+1~
PSJREN	EXTEND+1~*
PSJRXREQ	OC55+1~, OC55+2*
>> PSJSPEED	UPDREN+11
>> PSJSYSO	MARK+3
>> PSJSYSP	EXTEND+8, MOVE+1
>> PSJSYSP0	PSGOER+24, PSGOER+25, EXTEND+6
>> PSJSYSU	PSGOER+27, UNMARK+4, SPEED+1, SPEED+3, SPEED+5, UPDREN+10
>> PSJSYSW0	EXTEND+7, SPEED+8
PSJX	EXPIRED~, EXPIRED+7, EXPIRED+8, EXPIRED+10, EXPIRED+12, EXPIRED+13, EXPIRED+15, EXPIRED+19, EXPIRED+20, EXPIRED+25 , EXPIRED+27, EXPIRED+31, EXPIRED+32
PSJY	EXPIRED~, EXPIRED+8, EXPIRED+10, EXPIRED+12, EXPIRED+13, EXPIRED+15, EXPIRED+19, EXPIRED+21, EXPIRED+22, EXPIRED+25 , EXPIRED+27, EXPIRED+31
>> Q	MOVE+1*, MOVE+2
QX	PSGOER+18~
RDATE	UPDRENOE~, UPDRENOE+1
RDUZ	UPDREN~, UPDREN+7
RF	DONE+1!
RNWDT	UPDREN~, UPDREN+2, UPDREN+7, UPDREN+10
SCHED	EXPIRED+13~, EXPIRED+14, EXPIRED+17, EXPIRED+18, EXPIRED+25~, EXPIRED+26, EXPIRED+29, EXPIRED+30, PRNFREQ~, PRNFREQ+2
SD	EXPIRED+7~
SDW	PSGOER+18~
ST	EXPIRED+7~
STATUS	EXPIRED+7~, EXPIRED+8*
STOP	EXPIRED+7~, EXPIRED+10*, EXPIRED+11, EXPIRED+21
SWD	PSGOER+18~
TEST	PRNFREQ+1~
U	MOVE+2, EXPIRED+7~*, EXPIRED+10, EXPIRED+22
VALMBCK	EXTEND+9, SPEED+9, PRNFREQ+1~
WD	EXPIRED+7~
X	PSGOER+18~, EXTEND+9, MOVE~, MOVE+1, OC55+2, UPDREN+7, READ+2, EXPIRED+7~, PRNFREQ+1~, PRNFREQ+2*
XABB	PSGOER+18~
XP	EXPIRED+22~*
Y	PSGOER+26, UNMARK+3, MOVE~, MOVE+1, MOVE+2, OC55+2*
YP	EXPIRED+22~*
ZZND	EXPIRED+7~, PRNFREQ+1~, PRNFREQ+2

Customize PDF page

Package: Inpatient Medications

Routine: PSGOER

Information

Source Information

Call Graph

Call Graph Total: 25

Caller Graph

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: