Routine: PSGOE9

Package	Total	Call Graph
Inpatient Medications	14	($$ENLU,$$ENSTN)^PSGMI (CKMRSL,MRSL)^PSGOE4 $$GTNEDFD^PSGOE7 ($$CHECK,$$SCHTP,DH)^PSGOE8 (34,41)^PSGOE91 ENFF^PSGOE92 ENDRG^PSGOEF1 ENHLP^PSGOEM ($$PRNOK,EN)^PSGS0 $$DOW^PSIVUTL CMPLX^PSJCOM1 EDITDOSE^PSJDOSE $$OINAME^PSJLMUTL $$COMPLEX^PSJOE
VA FileMan	3	^DIC MIX^DIC1 YN^DICN
List Manager	1	(FULL,PAUSE)^VALM1

Entry Points

Name	Comments	DBIA/ICR reference
101	; Orderable Item (AKA primary drug)
A101	;
109	; dosage ordered
A109	;
3	; med route
A3
7	; schedule type
A7
26	; schedule
A26
DONE	;
DEL	; delete entry

External References

Name	Field # of Occurrence
^DIC	A3+9
MIX^DIC1	A101+9
YN^DICN	101+2, A101+11, DEL+1
$$ENLU^PSGMI	A26+4
$$ENSTN^PSGMI	A7+4, A7+15, A26+15, A26+16, A26+19
CKMRSL^PSGOE4	A3+8
MRSL^PSGOE4	A3+5
$$GTNEDFD^PSGOE7	A101+14
$$CHECK^PSGOE8	A109+6, A109+7, A109+8
$$SCHTP^PSGOE8	A7+11, A7+13
DH^PSGOE8	101+2, A101+11
34^PSGOE91	A26+26
41^PSGOE91	A26+23
ENFF^PSGOE92	A101+7, A109+10, A3+7, A7+9, A26+6
ENDRG^PSGOEF1	A101+16
ENHLP^PSGOEM	A101+5, A101+6, A109+9, A109+12, A3+4, A3+6, A7+8, A26+3, A26+5, A26+8
$$PRNOK^PSGS0	A7+7, A26+16
EN^PSGS0	A26+8
$$DOW^PSIVUTL	A26+4
CMPLX^PSJCOM1	A7+2
EDITDOSE^PSJDOSE	A109+3
$$OINAME^PSJLMUTL	A101+13, A101+15
$$COMPLEX^PSJOE	A101+1, A109+1, A3, A7, A26
FULL^VALM1	A7+2
PAUSE^VALM1	A101+2, A109+2, A3+1, A7+19, A26+1, A26+25

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"WARNING! If you change the drug of an order, the Dosage Ordered and Dispense",!,"Drug(s) are deleted." Line Location: 101+2
Function Call: WRITE	Prompt: !,"Do you wish to continue" Line Location: 101+2
Function Call: WRITE	Prompt: !!?5,"Orderable Item may not be edited for active complex orders." Line Location: A101+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: A101+3
Function Call: WRITE	Prompt: !,"ORDERABLE ITEM: ",$S(PSGPD:PSGPDN_"// ",1:"") Line Location: A101+3
Function Call: WRITE	Prompt: $C(7)," (Required)" Line Location: A101+5
Function Call: WRITE	Prompt: !!?5,"Dosage may not be edited for active complex orders." Line Location: A109+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: A109+4
Function Call: WRITE	Prompt: !,"DOSAGE ORDERED: ",$S(PSGDO]"":PSGDO_"// ",1:"") Line Location: A109+4
Function Call: WRITE	Prompt: $C(7)," (Required) " Line Location: A109+6
Function Call: WRITE	Prompt: $C(7)," (Required)" Line Location: A109+7
Function Call: WRITE	Prompt: $C(7)," ",$S(X?1.P!(X=""):"(Required)",1:"??") Line Location: A109+12
Function Call: WRITE	Prompt: !!?5,"Med Route may not be edited for active complex orders." Line Location: A3+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: A3+2
Function Call: WRITE	Prompt: !,"MED ROUTE: ",$S(PSGMR:PSGMRN_"// ",1:"") Line Location: A3+2
Function Call: WRITE	Prompt: " "_$P(^(0),"^",3) Line Location: A3+3
Function Call: WRITE	Prompt: $C(7)," (Required)" Line Location: A3+4
Function Call: WRITE	Prompt: !!?5,"This order is part of a complex order. Please review the following ",!?5,"associated orders before changing this order." Line Location: A7+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: A7+3
Function Call: WRITE	Prompt: $C(7) Line Location: A7+3
Function Call: WRITE	Prompt: " ??" Line Location: A7+6
Function Call: WRITE	Prompt: " ??" Line Location: A7+7
Function Call: WRITE	Prompt: !," SCHEDULE ("_PSGSCH_") is not a ONE TIME Schedule." Line Location: A7+11
Function Call: WRITE	Prompt: !," SCHEDULE ("_PSGSCH_") is not a CONTINUOUS Schedule." Line Location: A7+13
Function Call: WRITE	Prompt: !!?5,"Schedule may not be edited for active complex orders." Line Location: A26+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: A26+2
Function Call: WRITE	Prompt: !,"SCHEDULE: ",$S(PSGSCH]"":PSGSCH_"// ",1:"") Line Location: A26+2
Function Call: WRITE	Prompt: $C(7)," (Required)" Line Location: A26+3
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: A26+8
Function Call: WRITE	Prompt: !!,"NOTE: This change in schedule also changes the ADMIN TIMES and SCHEDULE TYPE.",! Line Location: A26+20
Function Call: WRITE	Prompt: $C(7)," <NOTHING DELETED>" Line Location: DEL+1
Routine Call	DIC Line Location: A3+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(50.7 - [#50.7]	Classic Fileman Calls
^PS(51.2 - [#51.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.7 - [#50.7]	A101+4
^PS(51.1 - [#51.1]	A26+17, A26+18
^PS(51.2 - [#51.2]	A3+3
^PS(53.1 - [#53.1]	A7+1
^PS(53.45 - [#53.45]	A101+15!*
^PS(55 - [#55]	A7+1
^PSDRUG("ASP"	A101+15

Label References

Name	Line Occurrences
@(	A101+7, A109+10, A3+7, A7+9, A26+6, DONE+1
A101	A101+5, A101+7, A101+9, A101+12
A109	A109+6, A109+7, A109+9, A109+10, A109+12
A26	A26+3, A26+5, A26+6, A26+8
A3	A3+4, A3+7, A3+9
A7	A7+6, A7+7, A7+8, A7+9, A7+11, A7+13
DONE	101+3, A101+1, A101+3, A101+4, A101+10, A101+15, A101+17, A109+1, A109+3, A109+4 , A109+8, A109+13, A3, A3+2, A3+3, A3+10, A7+3, A7+4, A7+20, A26 , A26+2

Naked Globals

Name	Field # of Occurrence
^(	A101+15
^(0	A3+3
^(1	A101+15*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	101+2, 101+3, A101+11, A101+12, DEL+1*
>> BACK	101+1, 109+1, 3+2, 7+1, 26+1, A26+23, DONE+1
D	A101+9!*
DIC	A101+9!, A3+9!
DIC("S"	A101+9, A3+9
DIC(0	A101+9, A3+9
>> DIRUT	A101+17
>> DOW	A26+4*, A26+15
DTIME	A101+3, A109+4, A3+2, A7+3, A26+2
>> DTOUT	A101+17
>> DUOUT	A101+17
F	DONE+2!
F0	DONE+2!
>> MSG	101+1, 109+1, 3+2, 7+1, A7+18, 26+1, A26+21*
ND2P1	A26+11!
P2ND	A7+1~*
PARENT	A7+1~*, A7+2
>> PSGAT	A7+16, A26+13, A26+23
>> PSGDO	A101+15, A109+3, A109+4, A109+5, A109+6, A109+8, A109+13*
PSGDUR	A26+11!
PSGF2	101+1, 109+1, 3+2, 7+1, 26+1, A26+23, A26+26*, DONE+1, DONE+2!
>> PSGMR	A3+2, A3+3, A3+4, A3+10*
>> PSGMRN	A3+2, A3+3, A3+10*
>> PSGNEDFD	A101+14*
>> PSGOAT	A7+16, A26+23
>> PSGOEE	A101+1, A101+3, A109+1, A109+4, A3, A3+2, A7+3, A26, A26+2, DONE+1
>> PSGOEEF(	101+1, 109+1, 3+2, 7+1, 26+1, A26+23*, DONE+1
>> PSGOEEF(34	A26+26*
>> PSGOEEF(39	A7+18, A26+21
>> PSGOEEF(7	A26+26*
>> PSGOOPD	101+1*
>> PSGOOPDN	101+1*
>> PSGORD	A7, A7+1, A7+2
>> PSGOROE1	101+2, A101+17*
>> PSGOST	A7+14, A26+16
>> PSGP	A101+1, A109+1, A3, A7, A7+1, A7+2, A26
>> PSGPD	101+1, A101+3, A101+4, A101+5, A101+10, A101+13, A101+15, A101+16
>> PSGPDN	101+1, A101+3, A101+4, A101+13, A101+15
>> PSGPDNX	A101+15*
>> PSGPDRG	A101+13*, A101+14
>> PSGPDRGN	A101+13*
>> PSGRF	A26+22, A26+26
PSGRMV	A26+11!
PSGRMVT	A26+11!
PSGS0XT	3+1~
>> PSGS0Y	A26+13
>> PSGSCH	A7+7, A7+11, A7+13, A26+2, A26+3, A26+9, A26+12, A26+16, A26+17
>> PSGSCIEN	A26+17*, A26+18
PSGSFLG	A26+8~*
>> PSGST	A7+4, A7+14, A7+15, A26+15, A26+16, A26+18, A26+19, A26+22, A26+26
>> PSGSTN	A7+3, A7+4, A7+15, A26+15, A26+16, A26+19*
>> PSJNEWOE	A7+19, A26+25
>> PSJORD	A101+1, A109+1, A3, A26
PSJSLUP	A26+8~*
>> PSJSYSP	A101+15, A109+6, A109+7, A109+8
X	A101+3, A101+4, A101+5, A101+6, A101+7, A101+15, A109+3, A109+4, A109+5, A109+6 , A109+7, A109+8, A109+9, A109+10, A109+11, A109+12, A109+13, A3+2, A3+3, A3+4* , A3+5, A3+6, A3+7, A7+1~, A7+3, A7+4, A7+5, A7+6, A7+7, A7+8 , A7+9, A7+11, A7+13, A7+15, A7+16, A26+2, A26+3, A26+4, A26+5, A26+6 , A26+8*, A26+9, A26+12
XX	A26+10~, A26+17*
Y	A101+7, A101+9, A101+10, A101+13, A101+15, A109+10, A3+7, A3+9, A3+10, A7+1~ , A7+9, A26+6
Y(0	A3+10

Customize PDF page

Package: Inpatient Medications

Routine: PSGOE9

Information

Source Information

Call Graph

Call Graph Total: 18

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: