Routine: GMTSPSO7

Information

GMTSPSO7 ; SLC/JER/KER - OP Rx Summary Component (V7) ; 08/27/2002

Package	Total	Caller Graph
Health Summary	1	GMTSPSO

Name	Comments	DBIA/ICR reference
WRT	; Writes OP Pharmacy Segment Record
MAIN	; OP Rx HS Component
HEAD	; Prints Header ; Only write the next line when there is data

Name	Field # of Occurrence
^DIWP	WRT+8
$$HF^GMTSU	WRT+1
REGDT4^GMTSU	WRT+5
CKP^GMTSUP	MAIN+7, WRT+10, WRT+15, WRT+18, HEAD+4, HEAD+6, HEAD+7
PROF^PSO52API	MAIN+5
^PSOHCSUM	MAIN+11
ACS^PSOHCSUM	MAIN+10, MAIN+11
PSS^PSS59P7	HEAD+3

Name	Line Occurrences
Function Call: WRITE	Prompt: "Patient Has Archived OP Prescriptions",! Line Location: MAIN+7
Function Call: WRITE	Prompt: "Patient Has Archived OP Prescriptions",! Line Location: MAIN+9
Function Call: WRITE	Prompt: $P($P(GMR,U,3),";",2) Line Location: WRT+11
Function Call: WRITE	Prompt: !,?18,$P(GMR,U,6),?31,$S($G(GMR)["SUSPENDED":"ACTIVE/SUSP",1:$P($P(GMR,U,5),";",2)),?45,$P(GMR,U,7),?54,ID,?65,LFD,?76,"("_$P(GMR,U,8)_")",! Line Location: WRT+12
Function Call: WRITE	Prompt: ?2,"SIG: " Condition for execution: GMSIG=1 Line Location: WRT+17
Function Call: WRITE	Prompt: ?7,MI,! Line Location: WRT+17
Function Call: WRITE	Prompt: ?4,"Provider: ",$E(GMD,1,22) Line Location: WRT+18
Function Call: WRITE	Prompt: ?37,"Cost/Fill: $",$J(CF,6,2) Condition for execution: CF Line Location: WRT+18
Function Call: WRITE	Prompt: ?57,"Exp/Can Dt: "_ECD Line Location: WRT+19
Function Call: WRITE	Prompt: ! Line Location: WRT+20
Function Call: WRITE	Prompt: "Outpatient prescriptions are cancelled 72 hours after admission",! Line Location: HEAD+4
Function Call: WRITE	Prompt: "Outpatient prescriptions are cancelled 72 hours after admission",! Line Location: HEAD+5
Function Call: WRITE	Prompt: !,"Drug....................................",?65,"Last",! Line Location: HEAD+6
Function Call: WRITE	Prompt: ?18,"Rx #",?31,"Stat",?45,"Qty",?54,"Issued",?65,"Filled",?76,"Rem" Line Location: HEAD+8

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	HEAD+4
^TMP("PSOO"	MAIN+4!, MAIN+10, MAIN+11, MAIN+14, MAIN+16!, WRT+7, WRT+8
^TMP($J	MAIN+4!, MAIN+6, MAIN+7, HEAD+3!, HEAD+4
^UTILITY($J	MAIN+16!, WRT+6!, WRT+14, WRT+16

Name	Line Occurrences
HEAD	WRT+11, WRT+15, WRT+18
WRT	MAIN+14

Name	Field # of Occurrence
^(	MAIN+14, HEAD+4

Name	Field # of Occurrence
CF	WRT+1~, WRT+2*, WRT+18
>> DFN	MAIN+5, MAIN+6, MAIN+7, HEAD+4
DIWF	WRT+1~, WRT+6*
DIWL	WRT+1~, WRT+6*, WRT+14, WRT+16
DIWR	WRT+1~, WRT+6*
ECD	MAIN+1~, WRT+2*, WRT+19
GMD	WRT+1~, WRT+9*, WRT+18
GMI	WRT+1~, WRT+13, WRT+14, WRT+16
GMR	MAIN+1~, MAIN+14*, WRT+2, WRT+9, WRT+11, WRT+12, WRT+19
>> GMRANGE	WRT+4
GMSIG	WRT+1~, WRT+13, WRT+17
GMTOP	MAIN+1~, MAIN+13, WRT+11, WRT+17, WRT+20, HEAD+2*
>> GMTS1	WRT+4
>> GMTS2	MAIN+2
>> GMTSLO	MAIN+12, MAIN+15, HEAD+9
>> GMTSNPG	WRT+11, WRT+15, WRT+18
>> GMTSQIT	MAIN+7, WRT+10, WRT+14, WRT+15, WRT+18, HEAD+4, HEAD+6, HEAD+7
GMV	WRT+1~, WRT+5*
GMX	MAIN+1~, MAIN+13, WRT+11, WRT+13, HEAD+4
GUI	WRT+1~*, HEAD+9
ID	WRT+1~, WRT+2*, WRT+4, WRT+12
IOSL	HEAD+9
IX	MAIN+1~, MAIN+13, MAIN+14, WRT+7, WRT+8
LFD	WRT+1~, WRT+2*, WRT+12
MI	WRT+1~, WRT+16*, WRT+17
NL	WRT+1~, WRT+6, WRT+7, WRT+8
PSOACT	MAIN+1~, MAIN+3*
PSOBEGIN	MAIN+1~, MAIN+2*, MAIN+3!
U	WRT+2, WRT+9, WRT+11, WRT+12, WRT+19
X	WRT+1~, WRT+5!, WRT+8

Name	Field # of Occurrence
$T(ACS^PSOHCSUM	MAIN+10, MAIN+11