Routine: PSGOE9

Package	Total	Call Graph
Inpatient Medications	10	$$GTNEDFD^PSGOE7 ($$CHECK,DH)^PSGOE8 ENFF^PSGOE92 ENDRG^PSGOEF1 ENHLP^PSGOEM EN^PSGS0 CMPLX^PSJCOM1 EDITDOSE^PSJDOSE $$OINAME^PSJLMUTL $$COMPLEX^PSJOE
VA Fileman	3	^DIC MIX^DIC1 YN^DICN
Registration	1	(FULL,PAUSE)^VALM1

Entry Points

Name	Comments	DBIA/ICR reference
26	; schedule
A7DEF	;BHW;PSJ5188;Added tag. Called by A26 to set default Schedule type.
A7
A26
A101	;
3	; med route
A109	;
A3
109	; dosage ordered
DONE	;
7	; schedule type
DEL	; delete entry
101	; Orderable Item (AKA primary drug)

External References

Name	Field # of Occurrence
^DIC	A3+7, A26+12
MIX^DIC1	A101+9
YN^DICN	101+2, A101+10, DEL+1
$$GTNEDFD^PSGOE7	A101+13
$$CHECK^PSGOE8	A109+6, A109+7, A109+8
DH^PSGOE8	101+2, A101+10
ENFF^PSGOE92	A101+7, A109+10, A3+6, A7+6, A26+5
ENDRG^PSGOEF1	A101+15
ENHLP^PSGOEM	A101+5, A101+6, A109+9, A109+12, A3+4, A3+5, A7+5, A7DEF+2, A26+3, A26+4 , A26+7
EN^PSGS0	A26+7
CMPLX^PSJCOM1	A7+2
EDITDOSE^PSJDOSE	A109+3
$$OINAME^PSJLMUTL	A101+12, A101+14
$$COMPLEX^PSJOE	A101+1, A109+1, A3, A7, A26
FULL^VALM1	A7+2
PAUSE^VALM1	A101+2, A109+2, A3+1, A26+1, A26+8

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	Timeout: DTIME Variable: X 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	Timeout: DTIME Variable: X 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	Timeout: DTIME Variable: X 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	Timeout: DTIME Variable: X Line Location: A7+3
Function Call: WRITE	Prompt: $C(7) Line Location: A7+3
Function Call: WRITE	Prompt: " "_PSGSTN Line Location: A7+7
Function Call: WRITE	Prompt: $S(X=$P(Y,"^"):" "_$P(Y,"^",2),1:$P($P(Y,"^",2),X,2)) Line Location: A7DEF+1
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: A7DEF+2
Function Call: WRITE	Prompt: !!?5,"Schedule may not be edited for active complex orders." Line Location: A26+1
Function Call: READ	Timeout: DTIME Variable: X 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+7
Function Call: WRITE	Prompt: !!,"NOTE: This change in schedule also changes the ADMIN TIMES.",! Line Location: A26+8
Function Call: WRITE	Prompt: $C(7)," <NOTHING DELETED>" Line Location: DEL+1
Routine Call	DIC Line Location: A3+7 A26+12

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+11
^PS(51.2 - [#51.2]	A3+3
^PS(53.1 - [#53.1]	A7+1
^PS(53.45 - [#53.45]	A101+14!*
^PS(55 - [#55]	A7+1
^PSDRUG("ASP"	A101+14

Label References

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

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	101+2, 101+3, A101+10, A101+11, DEL+1*
>> BACK	101+1, 109+1, 3+1, 7+1, 26+1*, DONE+1
D	A101+9!*
DIC	A101+9!, A3+7!, A26+10~, A26+12*
DIC("S"	A101+9, A3+7
DIC(0	A101+9, A3+7, A26+12*
DTIME	A101+3, A109+4, A3+2, A7+3, A26+2
F	DONE+2!
F0	DONE+2!
>> MSG	101+1, 109+1, 3+1, 7+1, 26+1, A26+8
P2ND	A7+1~*
PARENT	A7+1~*, A7+2
>> PSGAT	A26+8*
>> PSGDO	A101+14, A109+3, A109+4, A109+5, A109+6, A109+8, A109+13*
PSGF2	101+1, 109+1, 3+1, 7+1, 26+1*, DONE+1, DONE+2!
>> PSGMR	A3+2, A3+3, A3+4, A3+8*
>> PSGMRN	A3+2, A3+3, A3+8*
>> PSGNEDFD	A101+13, A7DEF+1
>> 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+1, 7+1, 26+1, DONE+1
>> PSGOEEF(39	A26+8*
>> PSGOEEF(7	A26+13*
>> PSGOOPD	101+1*
>> PSGOOPDN	101+1*
>> PSGORD	A7, A7+1, A7+2
>> PSGP	A101+1, A109+1, A3, A7, A7+1, A7+2, A26
>> PSGPD	101+1, A101+3, A101+4, A101+5, A101+12, A101+14, A101+15
>> PSGPDN	101+1, A101+3, A101+4, A101+12, A101+14
>> PSGPDNX	A101+14*
>> PSGPDRG	A101+12*, A101+13
>> PSGPDRGN	A101+12*
>> PSGS0Y	A26+8
>> PSGSCH	A26+2, A26+3, A26+8, A26+11, A26+12
PSGSCIEN	A26+7~, A26+11*, A26+12
PSGSFLG	A26+7~*
>> PSGST	A7DEF+1*
>> PSGSTN	A7+3, A7+4, A7DEF+1*
>> PSJNEWOE	A26+8
>> PSJORD	A101+1, A109+1, A3, A26
PSJSLUP	A26+7~*
>> PSJSYSP	A101+14, A109+6, A109+7, A109+8
X	A101+3, A101+4, A101+5, A101+6, A101+7, A101+14, 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, A7+1~, A7+3, A7+4, A7+5, A7+6, A7DEF+1, A7DEF+2, A26+2 , A26+3, A26+4, A26+5, A26+7, A26+8, A26+10~, A26+12, A26+13
Y	A101+7, A101+9, A101+12, A101+14, A109+10, A3+6, A3+7, A3+8, A7+1~, A7+6 , A7DEF+1*, A26+5, A26+10~
Y(0	A3+8, A26+13

Customize PDF page

Package: Inpatient Medications

Routine: PSGOE9

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: