Routine: PSGOER

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

Call Graph

^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

NOW^%DTC FILE^DICN ^DIE ^DIR

Kernel

$$FMADD^XLFDT $$PATCH^XPDUTL

Barcode Medication Administration

$$EN^PSBAPIPM

IHS Omnicell Pyxis Interface

RENEW^BOPCAP

Pharmacy Data Management

($$LS,UNL)^PSSLOCK

Registration

PAUSE^VALM1

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

Package

Total

Caller Graph

Inpatient Medications

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

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