Routine: PSGOER

Package	Total	Call Graph
Inpatient Medications	21	^PSGAL5 ABORT^PSGOEE DATE^PSGOER0 EN^PSGPEN ($$PRNOK,DW)^PSGS0 ENDDC^PSGSICHK ENPOS^PSGVDS $$DOW^PSIVUTL ($$ISCLOZ,CLOZ)^PSJCLOZ ^PSJCOMR EN1^PSJHL2 $$SCHREQ^PSJLIVFD PAUSE^PSJLMUT1 $$CHKSCHD^PSJMISC2 SETOC^PSJNEWOC IN^PSJOCDS ENUDTX^PSJOREN ($$ENQ,$$LASTAT)^PSJORP2 ADMIN^PSJORPOE $$ACTIVE^PSJORREN ($$DATE,$$DATE2)^PSJUTL2
VA FileMan	4	NOW^%DTC FILE^DICN ^DIE ^DIR
Barcode Medication Administration	1	$$EN^PSBAPIPM
Kernel	1	$$FMADD^XLFDT
List Manager	1	PAUSE^VALM1
Pharmacy Data Management	1	($$LS,UNL)^PSSLOCK

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

Name	Comments	DBIA/ICR reference
UNMARK	;
DONE	;
NEW	; get info, write record
EXTEND	; extend stop date on renewal order
SPEED	;
MARK	;
MOVE(X,Y)	; Move comments/dispense drugs from 55 to 53.45.
OC55	;* Order checks for Speed finish and regular finish
NEWOC55	;
UPDREN(PSGORD,RNWDT,PSGOEPR,PSGOFD,PSJNOO,RDUZ)	; update renewed order
UPDRENOE(PSGP,PSGORD,RDATE)	;
READ	; hold screen
EXPOE(DFN,PSJORDER,EXPDT)	; expire old Orders File entry
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
NXTDOW(DOWDFN,DOWSD,DOWFD,DOWSCH,DOWAT)	;
PRNFREQ(SCHED)	;

Name	Field # of Occurrence
NOW^%DTC	EXTEND+10, EXPOE+3
FILE^DICN	UPDREN+7
^DIE	UPDREN+5, UPDREN+12, UPDREN+16, UPDRENOE+2
^DIR	PSGOER+30, UNMARK+2
$$EN^PSBAPIPM	EXTEND+2, EXPIRED+16, EXPIRED+20, EXPIRED+28, EXPIRED+32
^PSGAL5	UNMARK+4, SPEED+4, MARK+2
ABORT^PSGOEE	PSGOER+33, UNMARK+3, EXTEND+13
DATE^PSGOER0	EXTEND+13
EN^PSGPEN	SPEED+1
$$PRNOK^PSGS0	PSGOER+22
DW^PSGS0	PSGOER+18
ENDDC^PSGSICHK	NEWOC55+12
ENPOS^PSGVDS	MARK+3
$$DOW^PSIVUTL	PSGOER+22, EXPIRED+19, EXPIRED+27
$$ISCLOZ^PSJCLOZ	EXTEND+7
CLOZ^PSJCLOZ	EXTEND+8
^PSJCOMR	PSGOER+13
EN1^PSJHL2	UPDRENOE+4, EXPOE+4
$$SCHREQ^PSJLIVFD	EXPIRED+25
PAUSE^PSJLMUT1	NEWOC55+11
$$CHKSCHD^PSJMISC2	PSGOER+26
SETOC^PSJNEWOC	SPEED+7
IN^PSJOCDS	NEWOC55+13
ENUDTX^PSJOREN	UPDRENOE+3
$$ENQ^PSJORP2	EXPIRED+21, EXPIRED+33, NXTDOW+1
$$LASTAT^PSJORP2	EXPIRED+17
ADMIN^PSJORPOE	PRNFREQ+2
$$ACTIVE^PSJORREN	UPDREN+14
$$DATE^PSJUTL2	EXPIRED+9
$$DATE2^PSJUTL2	EXPOE+3
$$LS^PSSLOCK	SPEED+5
UNL^PSSLOCK	SPEED+5
PAUSE^VALM1	PSGOER+16, PSGOER+21, PSGOER+28
$$FMADD^XLFDT	EXPIRED+16, EXPIRED+17, EXPIRED+18, EXPIRED+20, EXPIRED+21, EXPIRED+22, EXPIRED+28, EXPIRED+29, EXPIRED+31, EXPIRED+32 , EXPIRED+33, NXTDOW+1

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+29
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+4
Function Call: WRITE	Prompt: "." Line Location: SPEED+4
Function Call: WRITE	Prompt: ".DONE!" Line Location: SPEED+11
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: !!,"No active dispense drug was found" Line Location: NEWOC55+11
Function Call: WRITE	Prompt: !?5,"Press return to continue " Line Location: READ+2
Routine Call	DIE Line Location: UPDREN+5 UPDREN+12 UPDREN+16 UPDRENOE+2
Routine Call	DIR Line Location: PSGOER+30 UNMARK+2

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.1 - [#51.1]	PSGOER+22
^PS(53.45 - [#53.45]	EXTEND+12!, MOVE+1*
^PS(55 - [#55]	PSGOER+32, UNMARK+4, EXTEND+1, EXTEND+2, EXTEND+10, EXTEND+11, SPEED+10, MARK+2*, MOVE+1, NEWOC55+3 , NEWOC55+4, EXPIRED+8, EXPIRED+10, EXPIRED+13, EXPIRED+14, EXPIRED+23, EXPIRED+26
^PS(59.7 - [#59.7]	EXPIRED+22
^PSDRUG - [#50]	NEWOC55+7
^TMP("PSJDAOC"	SPEED+8!
^TMP("PSODAOC"	SPEED+6*, SPEED+8!

Name	Line Occurrences
$$EXPIRED	PSGOER+14
$$NXTDOW	EXPIRED+19, EXPIRED+30
$$PRNFREQ	EXPIRED+14, EXPIRED+31
DONE	PSGOER+31, PSGOER+32, PSGOER+33, UNMARK+3, EXTEND+13
EXPOE	UPDRENOE+1
MARK	EXTEND+10
MOVE	EXTEND+12
NEW	PSGOER+31
READ	EXTEND+3
UNMARK	PSGOER+32
UPDREN	SPEED+5
UPDRENOE	SPEED+5

Name	Field # of Occurrence
^(	MOVE+1
^("I"	NEWOC55+7
^(2	EXTEND+12!, NEWOC55+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Inpatient Medications

Routine: PSGOER

Information

Source Information

Call Graph

Call Graph Total: 29

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 16

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: