Routine: BHSPSO7A

Entry Points

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
SEL^BHSPOS	MAIN+14
^DIWP	WRT+8
$$HF^GMTSU	WRT+1
REGDT4^GMTSU	WRT+5
CKP^GMTSUP	MAIN+13, WRT+10, WRT+15, WRT+18, HEAD+3, HEAD+4, HEAD+5

Name	Line Occurrences
Function Call: WRITE	Prompt: "Patient Has Archived OP Prescriptions",! Line Location: MAIN+13
Function Call: WRITE	Prompt: $P($P(GMR,U,3),";",2) Line Location: WRT+11
Function Call: WRITE	Prompt: !,?22,$P(GMR,U,6),?35,$P($P(GMR,U,5),";"),?39,$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+3
Function Call: WRITE	Prompt: !,"Drug....................................",?65,"Last",! Line Location: HEAD+4
Function Call: WRITE	Prompt: ?22,"Rx #",?34,"Stat",?39,"Qty",?54,"Issued",?65,"Filled",?76,"Rem" Line Location: HEAD+6

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	HEAD+3
^PS(55 - [#55]	MAIN+12, MAIN+13
^PS(59.7 - [#59.7]	HEAD+3
^PSDRUG - [#50]	MAIN+10
^TMP("BHS"	MAIN+4!, MAIN+14, MAIN+17, MAIN+19!, WRT+7, WRT+8
^UTILITY($J	MAIN+19!, WRT+6!, WRT+14, WRT+16

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

Name	Field # of Occurrence
^(	MAIN+17, HEAD+3
^("ARC"	MAIN+12

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