Routine: GMTSPSZO

Package	Total	Call Graph
Health Summary	2	REGDT^GMTSU CKP^GMTSUP
Outpatient Pharmacy	2	PROF^PSO52API ^PSOHCSUM

Entry Points

Name	Comments	DBIA/ICR reference
GMTSPSO	;SLC/JER - OP Rx Summary Component ;12/2/91 13:45 ;
MAIN
HEAD	; Prints Header
WRT	; Writes OP Pharmacy Segment Record
PARSE	; Parses Medication Instructions

Name	Field # of Occurrence
REGDT^GMTSU	WRT+3
CKP^GMTSUP	MAIN+6, MAIN+10, HEAD+1, HEAD+2, WRT+6, WRT+7, WRT+8, WRT+9
PROF^PSO52API	MAIN+4
^PSOHCSUM	MAIN+9

Name	Line Occurrences
Function Call: WRITE	Prompt: "Patient Has Archived OP Prescriptions",! Line Location: MAIN+6
Function Call: WRITE	Prompt: "Patient Has Archived OP Prescriptions",! Line Location: MAIN+8
Function Call: WRITE	Prompt: "Outpatient prescriptions are cancelled 72 hours after admission",! Line Location: MAIN+10
Function Call: WRITE	Prompt: ?67,"Last",! Line Location: HEAD+1
Function Call: WRITE	Prompt: $E($P($P(GMR,U,3),";",2),1,25),?27,$P(GMR,U,6),?38,$P($P(GMR,U,5),";"),?40,$S("EC"[$P($P(GMR,U,5),";"):"("_ECD_")",1:""),?51,$P(GMR,U,7),?57,ID,?67,LFD,?76,"("_$P(GMR,U,8)_")",! Line Location: WRT+6
Function Call: WRITE	Prompt: ?2,MI,! Line Location: WRT+7
Function Call: WRITE	Prompt: ?2,MI(GMI),! Line Location: WRT+8
Function Call: WRITE	Prompt: ?4,"Provider: ",$E(GMD,1,26) Line Location: WRT+9
Function Call: WRITE	Prompt: ?41,"Cost/Fill: $",$J(CF,6,2) Condition for execution: CF Line Location: WRT+9
Function Call: WRITE	Prompt: ! Line Location: WRT+9

Name	Line Occurrences (* Changed, ! Killed)
^DIC(59	MAIN+10
^DPT - [#2]	MAIN+10
^TMP($J	MAIN+3!, MAIN+5, MAIN+6
^UTILITY("PSOO"	MAIN+3!, MAIN+9, MAIN+13, MAIN+15!, WRT+4

Name	Field # of Occurrence
^(	MAIN+10, MAIN+13
^(1	MAIN+10

Name	Field # of Occurrence
CF	WRT+1~, WRT+2*, WRT+9
>> DFN	MAIN+4, MAIN+5, MAIN+6, MAIN+10
ECD	MAIN~, WRT+2*, WRT+6
GMD	WRT+1~, WRT+5*, WRT+9
GMI	WRT+1~, WRT+8, PARSE+1~, PARSE+4
GMR	MAIN~, MAIN+13*, WRT+2, WRT+5, WRT+6
>> GMTS2	MAIN+1
>> GMTSLO	MAIN+11, MAIN+14, HEAD+3
>> GMTSNPG	WRT+6, WRT+7, WRT+8, WRT+9
>> GMTSQIT	MAIN+6, MAIN+10, HEAD+1, HEAD+2, WRT+6, WRT+7, WRT+8, WRT+9
GMV	WRT+1~, WRT+3*
GMW	MAIN~
ID	WRT+1~, WRT+2*, WRT+6
IOSL	HEAD+3
IX	MAIN~, MAIN+13*, WRT+4
LFD	WRT+1~, WRT+2*, WRT+6
MI	WRT+1~, WRT+4*, WRT+7, PARSE+2, PARSE+3, PARSE+4
MI(	WRT+8, PARSE+4*
NL	WRT+1~, WRT+4, WRT+7, WRT+8, PARSE+2, PARSE+3, PARSE+4
NW	PARSE+1~, PARSE+3*
>> PSOACT	MAIN+2*
PSOBEGIN	MAIN~, MAIN+1*, MAIN+2
U	WRT+2, WRT+5, WRT+6
WPL	PARSE+1~, PARSE+3*, PARSE+4
X	WRT+1~, WRT+3*!