Routine: GMTSPSO8

Entry Points

Name	Comments	DBIA/ICR reference
MAIN	; OP Rx HS Component
WRT	; Writes OP Pharmacy Segment Record
HEAD	; Prints Header ; Only write the next line when there is data
GETDC(GMTS50IEN)	; Return drug class code given DRUG file (#50) IEN

Name	Field # of Occurrence
^DIWP	WRT+9
$$HF^GMTSU	WRT+1
REGDT4^GMTSU	WRT+5
CKP^GMTSUP	MAIN+8, WRT+11, WRT+16, WRT+19, HEAD+5, HEAD+6, HEAD+14, HEAD+17, HEAD+18
IEN^PSN50P65	HEAD+12
PROF^PSO52API	MAIN+6
^PSOHCSUM	MAIN+10
ACS^PSOHCSUM	MAIN+9, MAIN+10
DATA^PSS50	GETDC+2
PSS^PSS59P7	HEAD+4

Name	Line Occurrences
Function Call: WRITE	Prompt: "Patient Has Archived OP Prescriptions",! Line Location: MAIN+8
Function Call: WRITE	Prompt: $P($P(GMR,U,3),";",2) Line Location: WRT+12
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+13
Function Call: WRITE	Prompt: ?2,"SIG: " Condition for execution: GMSIG=1 Line Location: WRT+18
Function Call: WRITE	Prompt: ?7,MI,! Line Location: WRT+18
Function Call: WRITE	Prompt: ?4,"Indication: "_IND,! Condition for execution: IND]"" Line Location: WRT+19
Function Call: WRITE	Prompt: ?4,"Provider: ",$E(GMD,1,22) Line Location: WRT+19
Function Call: WRITE	Prompt: ?37,"Cost/Fill: $",$J(CF,6,2) Condition for execution: CF Line Location: WRT+19
Function Call: WRITE	Prompt: ?57,"Exp/Can Dt: "_ECD Line Location: WRT+20
Function Call: WRITE	Prompt: ! Line Location: WRT+21
Function Call: WRITE	Prompt: "Outpatient prescriptions are cancelled 72 hours after admission",! Line Location: HEAD+5
Function Call: WRITE	Prompt: "VA drug class(es) selected: " Line Location: HEAD+7
Function Call: WRITE	Prompt: GMNAME Line Location: HEAD+15
Function Call: WRITE	Prompt: ! Line Location: HEAD+16
Function Call: WRITE	Prompt: !?65,"Last",! Line Location: HEAD+17
Function Call: WRITE	Prompt: ?18,"Rx #",?31,"Stat",?45,"Qty",?54,"Issued",?65,"Filled",?76,"Rem" Line Location: HEAD+19

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	HEAD+5
^TMP("PSOO"	MAIN+5!, MAIN+9, MAIN+10, MAIN+14, MAIN+20!, WRT+6, WRT+8, WRT+9
^TMP($J	MAIN+5!, MAIN+7, MAIN+8, HEAD+4!, HEAD+5, HEAD+12, GETDC+1!, GETDC+4, GETDC+5!
^UTILITY($J	MAIN+20!, WRT+7!, WRT+15, WRT+17

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

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

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