Routine: GMTSPSO7

Information

GMTSPSO7 ;SLC/JER/KER - OP Rx Summary Component (V7) ;Apr 16, 2021@16:08

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

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+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+20
Function Call: WRITE	Prompt: ?4,"Provider: ",$E(GMD,1,22) Line Location: WRT+20
Function Call: WRITE	Prompt: ?57,"Exp/Can Dt: "_ECD Line Location: WRT+22
Function Call: WRITE	Prompt: ! Line Location: WRT+23
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