Routine: PSGOE8

Package	Total	Call Graph
Inpatient Medications	7	$$GTNEDFD^PSGOE7 ENFF^PSGOE82 ENDRG^PSGOEF1 ENHLP^PSGOEM EN^PSGS0 EDITDOSE^PSJDOSE $$OINAME^PSJLMUTL
VA Fileman	3	^DIC MIX^DIC1 YN^DICN
Registration	1	PAUSE^VALM1

Package	Total	Caller Graph
Inpatient Medications	3	PSGOE9 PSGOEV PSJHLV

Entry Points

Name	Comments	DBIA/ICR reference
DH	;
26	; schedule
A7DEF	;BHW;PSJ5188;Added tag. Called by A26 to set default Schedule type.
A7
A26
A101	;
PNDREN(PNDON)	;
3	; med route
A109	;
CHECK(PSJSYSP)	; Check to see if multiple dispense drugs ; Input - PSJSYSP ; Returns 0 = only one. ; 1 = more than one ; Checks Inactive Date and doesn't count if < or = today.
A3
109	; dosage ordered
DONE	;
7	; schedule type
DEL	; delete entry
101	;Orderable Item

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
ENFF^PSGOE82	A101+7, A109+11, A3+6, A7+3, A26+5
ENDRG^PSGOEF1	A101+16
ENHLP^PSGOEM	A101+5, A101+6, A109+10, A109+13, A3+4, A3+5, A7+2, A7DEF+2, A26+3, A26+4 , A26+7
EN^PSGS0	A26+7
EDITDOSE^PSJDOSE	A109+4
$$OINAME^PSJLMUTL	A101+12, A101+14
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 at this point." 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 at this point." Line Location: A109+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: A109+5
Function Call: WRITE	Prompt: !,"DOSAGE ORDERED: ",$S(PSGDO]"":PSGDO_"// ",1:"") Line Location: A109+5
Function Call: WRITE	Prompt: $C(7)," (Required) " Line Location: A109+7
Function Call: WRITE	Prompt: $C(7)," (Required) " Line Location: A109+8
Function Call: WRITE	Prompt: $C(7)," ",$S(X?1.P!(X=""):"(Required)",1:"??") Line Location: A109+13
Function Call: WRITE	Prompt: !!?5,"Med Route may not be edited at this point." 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: READ	Timeout: DTIME Variable: X Line Location: A7+0
Function Call: WRITE	Prompt: $C(7) Line Location: A7+0
Function Call: WRITE	Prompt: " "_PSGSTN Line Location: A7+4
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 at this point." 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
Function Call: WRITE	Prompt: !!?2,"When the drug of an order is changed, the Dosage Ordered and Dispense Drug(s)",!,"for the order are no longer valid, and therefore deleted from the order.",!,"If possible, a new corresponding dispense drug will be added to the order." Line Location: DH+1
Function Call: WRITE	Prompt: !!?2,"Answer 'YES' to continue with this change. Answer 'NO' to select another",!,"drug or to accept the drug as it was. Enter an '^' the exit this edit." Line Location: DH+2
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.45 - [#53.45]	A101+14!, A101+15*, CHECK+6, CHECK+7
^PSDRUG("ASP"	A101+14

Label References

Name	Line Occurrences
$$CHECK	A109+7, A109+8, A109+9
$$PNDREN	A101+1, A109+1, A3, A26
@(	A101+7, A109+11, A3+6, A7+3, A26+5, DONE+1
A101	A101+5, A101+7, A101+9, A101+11
A109	A109+7, A109+8, A109+10, A109+11, A109+13
A26	A26+3, A26+4, A26+5, A26+7
A3	A3+4, A3+6, A3+7
A7	A7+2, A7+3, A7DEF+2
A7DEF	A26+13
DH	A101+10
DONE	101+3, A101+3, A101+4, A101+17, A109+4, A109+5, A109+9, A109+14, A3+2, A3+3 , A3+8, A7, A7+1, A7DEF+4, A26+2

Naked Globals

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

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*
DT	CHECK+8
DTIME	A101+3, A109+5, A3+2, A7, A26+2
F	DONE+2!
F0	DONE+2!
F2	101+1, 109+1, A109+3, 3+1, 7+1, 26+1*, DONE+1, DONE+2!
>> MSG	101+1, 109+1, 3+1, 7+1, 26+1, A26+8
PNDON	PNDREN~, PNDREN+1, PNDREN+2
>> PSGAT	A26+8*
>> PSGDO	A101+14, A109+4, A109+5, A109+6, A109+7, A109+9, A109+14*
>> PSGMR	A3+2, A3+3, A3+4, A3+8*
>> PSGMRN	A3+2, A3+3, A3+8*
>> PSGNEDFD	A101+13, A7DEF+1
>> PSGOEE	A101+3, A109+3, A109+5, A3+2, A7, A26+2, DONE+1
>> PSGOEEF(	101+1, 109+1, A109+3*, 3+1, 7+1, 26+1, DONE+1
>> PSGOEEF(39	A26+8*
>> PSGOEEF(7	A26+13*
PSGOES	A26+7~
>> PSGOOPD	101+1*
>> PSGOOPDN	101+1*
>> PSGORD	A101+1, A109+1, A3, A26
>> PSGPD	101+1, A101+3, A101+4, A101+5, A101+12, A101+14, A101+16
>> PSGPDN	101+1, A101+3, A101+4, A101+12, A101+14
>> PSGPDNX	A101+14*
>> PSGPDRG	A101+12, A101+13, A101+14
>> PSGPDRGN	A101+12, A101+14
>> 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, A7+1, A7DEF+1*
PSJINACT	CHECK+5~, CHECK+7*, CHECK+8
>> PSJNEWOE	A26+8
PSJRBCNT	CHECK+5~, CHECK+9, CHECK+10
PSJRSB	CHECK+5~, CHECK+6*, CHECK+7
PSJSLUP	A26+7~*
PSJSYSP	A101+14, A101+15, A109+7, A109+8, A109+9, CHECK~, CHECK+6, CHECK+7
>> PSJSYSU	101+2
>> RNWL	PNDREN+2*, PNDREN+3
X	A101+3, A101+4, A101+5, A101+6, A101+7, A101+14, A101+15, A109+4, A109+5, A109+6* , A109+7, A109+8, A109+9, A109+10, A109+11, A109+12, A109+13, A109+14, A3+2, A3+3* , A3+4, A3+5, A3+6, A7, A7+1, A7+2, A7+3, 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+11, A3+6, A3+7, A3+8, A7+3, A7DEF+1* , A26+5, A26+10~
Y(0	A3+8, A26+13

Customize PDF page

Package: Inpatient Medications

Routine: PSGOE8

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: