Routine: GMTSPSO8

Information

GMTSPSO8 ;RS/DLC - OP Rx Summary Component by VA Drug Class ;Jan 14, 2026@15:09

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	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