Routine: GMTSPSZO

Information

GMTSPSZO ;SLC/JER - OP Rx 5.6 Summary Component ;12/2/91 13:45 ;

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