Routine: PSOHLDS5

Package	Total	Call Graph
Registration	5	$$BADADR^DGUTL3 6^VADPT BLDPID^VAFCQRY MAKEIT^VAFHLU $$EN^VAFHLZTA
Health Level Seven	3	($$HLDATE,$$HLNAME)^HLFNC INIT^HLFNC2 GENERATE^HLMA
Pharmacy Data Management	3	$$NDCFMT^PSSNDCUT $$HAZ^PSSUTIL ($$DRUG,$$WTEXT)^PSSWRNA
VA FileMan	3	NOW^%DTC $$GET1^DIQ ^DIWP
National Drug File	2	($$DFSU,$$PROD0)^PSNAPIS $$EN^PSNPPIO
Outpatient Pharmacy	2	($$SPACE,START)^PSOHLDS3 BLDPID^PSOTPHL2
Scheduling	1	(SEGPRSE,SEQPRSE)^SCMSVUT5

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSORLLLI PSORWRAP

Name	Comments	DBIA/ICR reference
HLSAVE(PSOLBL)	;Save HL data into PSOHLSV array
HLSVNTE(PSONARR)	;Save HL data into Patient Narrative array
NTE2SV(CNT,NTECNT,PSOSITE)	; Patient Narrative
PID(PSI)	;patient ID segment
CHKRX(PSODFN)	;CHECK ADDRESS BY DFN
CHKTEMP(PSODFN)	; see if active temporary address
PV1(PSI)	;patient visit segment
PV2(PSI)	;patient visit segment (additional information)
ORC(PSI)	;common order segment
NTE2(PSI)	; Site Narratives
NTE1(PSI)	;SIG
NTE3(PSI)	;Drug Warning Narrative
NTE4(PSI)	;Profile information
RXE(PSI)	;
RXD(PSI)	;pharmacy dispense segment
NTEPMI(PSI)	;build NTE segment for PMI sheets ;*255
RXR(PSI)	;pharmacy route segment
ZZZ(PSI)	;ZZZ segment for HL7 hazardous text ;*524
SEND	;Send message to Host Site with Dispensing information from OPAI fill

Name	Field # of Occurrence
NOW^%DTC	SEND+13
$$BADADR^DGUTL3	CHKRX+5
$$GET1^DIQ	PID+18, RXE+7
^DIWP	NTE2SV+5, NTE2SV+10, NTE2SV+14
$$HLDATE^HLFNC	RXD+14, SEND+13
$$HLNAME^HLFNC	ORC+7, ORC+9
INIT^HLFNC2	SEND+6
GENERATE^HLMA	SEND+23
$$DFSU^PSNAPIS	RXE+4
$$PROD0^PSNAPIS	RXE+3
$$EN^PSNPPIO	NTEPMI+2
$$SPACE^PSOHLDS3	NTEPMI+16
START^PSOHLDS3	NTE4+2
BLDPID^PSOTPHL2	SEND+7
$$NDCFMT^PSSNDCUT	RXD+9
$$HAZ^PSSUTIL	ZZZ+3
$$DRUG^PSSWRNA	NTE3+6
$$WTEXT^PSSWRNA	NTE3+11
SEGPRSE^SCMSVUT5	PID+10, PID+20
SEQPRSE^SCMSVUT5	PID+12, PID+22
6^VADPT	CHKTEMP+4
BLDPID^VAFCQRY	PID+5
MAKEIT^VAFHLU	PID+33
$$EN^VAFHLZTA	PID+14

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^PSDRUG - [#50]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	ORC+15
^PS(50.606 - [#50.606]	RXE+12
^PS(50.7 - [#50.7]	RXE+12
^PS(54 - [#54]	RXD+11
^PS(55 - [#55]	RXE+6
^PS(59 - [#59]	NTE2SV+5, NTE2SV+10, NTE2SV+14, ORC+12
^PS(59.7 - [#59.7]	NTE3+4, NTE3+5
^PSDRUG - [#50]	NTE3+3, RXE+9, RXE+12, RXE+22, RXD+2, RXD+3, RXD+4, RXD+6, RXD+7, RXD+12 , SEND+11, SEND+12
^PSRXR(52.09 - [#52.09]	SEND+4, SEND+5, SEND+8
^TMP("HLA"	NTE2SV+4, NTE2SV+6, NTE2SV+7, NTE2SV+9, NTE2SV+11, NTE2SV+13, NTE2SV+15, NTE2SV+17
^TMP("HLS"	SEND+2
^TMP("PSO"	PID+38, PID+39, PV1+4, PV2+5, ORC+17, NTE2+4, NTE2+8, NTE2+9, NTE2+13, NTE2+14 , NTE2+18, NTE2+19, NTE1+5, NTE1+7, NTE3+8, NTE3+10, NTE3+12, NTE3+17, NTE3+19, NTE3+20 , RXE+29, RXD+19, NTEPMI+5, NTEPMI+12, NTEPMI+14, NTEPMI+15, NTEPMI+17, NTEPMI+18, NTEPMI+20, RXR+4 , ZZZ+8*
^TMP($J	NTEPMI+3, NTEPMI+5, NTEPMI+8, NTEPMI+9, NTEPMI+12, NTEPMI+21!
^UTILITY($J	NTE2SV+5!, NTE2SV+7, NTE2SV+10!, NTE2SV+11, NTE2SV+14!, NTE2SV+15

Name	Line Occurrences
$$CHKRX	PID+17
$$CHKTEMP	PID+16, PID+19, CHKRX+6

Name	Field # of Occurrence
^(	NTE2SV+5, NTE2SV+10, NTE2SV+14
^("ND"	RXE+9, RXD+12, SEND+11
^(0	NTE2SV+5, NTE2SV+10, NTE2SV+14, ORC+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	SEND+1~, SEND+13
A	NTEPMI+1~, NTEPMI+6!, NTEPMI+7*, NTEPMI+21!
A(	NTEPMI+7*, NTEPMI+8, NTEPMI+9, NTEPMI+12
ADDSEQ	PID+12!, PID+32, PID+42!
ADDSEQ(	PID+25, PID+26, PID+27, PID+28, PID+29*
ADDSEQ(""	PID+24
ADDSEQ(1	PID+18*
BADA	PID+17~, PID+18
CNT	NTE2SV~, NTE2SV+4, NTE2SV+6, NTE2SV+7, NTE2SV+9, NTE2SV+11, NTE2SV+13, NTE2SV+15, NTE2SV+17, PID+2~ , PID+37, PID+39, NTE2+1~, NTE2+2, NTE2+7, NTE2+8, NTE2+9, NTE2+12, NTE2+13, NTE2+14 , NTE2+17, NTE2+18, NTE2+19, NTE2+20, NTE3+1~, NTE3+8, NTE3+10, NTE3+12, NTE3+17, NTE3+19 , NTE3+20, NTEPMI+6, NTEPMI+7, NTEPMI+9, NTEPMI+11, NTEPMI+15, NTEPMI+21!
CNT1	NTEPMI+6, NTEPMI+12, NTEPMI+14, NTEPMI+15, NTEPMI+16, NTEPMI+17, NTEPMI+18, NTEPMI+19, NTEPMI+20, NTEPMI+21!
>> CS	ORC+5, ORC+7, ORC+9, ORC+13, ORC+15, RXE+9, RXE+11, RXE+14, RXE+22, RXE+27 , RXD+11, RXD+12, RXD+13, RXD+17
CURRLN	NTEPMI+1~, NTEPMI+10, NTEPMI+14, NTEPMI+16
DFN	PID+1, PID+5, PID+14, PID+16, PID+17, PID+18, PID+19, CHKTEMP+2~, CHKTEMP+3, PV1+1 , PV2+2, ORC+2, NTE3+6, NTE4+1, RXE+6, NTEPMI+1, RXR+1, SEND+1~, SEND+5, SEND+7
DIW	NTE2SV+1~
DIWF	NTE2SV+1~, NTE2SV+5, NTE2SV+10, NTE2SV+14*
DIWI	NTE2SV+1~
DIWL	NTE2SV+1~, NTE2SV+5, NTE2SV+7, NTE2SV+10, NTE2SV+11, NTE2SV+14*, NTE2SV+15
DIWR	NTE2SV+1~, NTE2SV+5, NTE2SV+10, NTE2SV+14*
DIWT	NTE2SV+1~
DIWTC	NTE2SV+1~
DIWX	NTE2SV+1~
DRIEN	ZZZ+1~, ZZZ+2*, ZZZ+3
DT	RXD+14
EN	NTE3+13~, NTE3+16*
>> ERR	PID+5, SEND+7
FLDX	NTE3+1~, NTE3+11*, NTE3+18
FS	NTE2SV+1~, NTE2SV+3, NTE2SV+4, NTE2SV+6, NTE2SV+7, NTE2SV+9, NTE2SV+11, NTE2SV+13, NTE2SV+15, NTE2SV+17 , PV1+3, PV2+4, NTE2+2, NTE2+4, NTE1+4, NTE1+5, NTE3+8, NTE3+19, NTE3+20, RXD+12 , RXD+15, RXD+16, RXD+17, RXD+18, NTEPMI+5, NTEPMI+20, RXR+3, ZZZ+8
HAZD	ZZZ+1~, ZZZ+6, ZZZ+7, ZZZ+8
HAZH	ZZZ+1~, ZZZ+4, ZZZ+5, ZZZ+8
>> HL	SEND+6, SEND+7, SEND+23
>> HL1	PID+5
>> HL1("ECH"	PID+3, PID+12, PID+22
>> HL1("FS"	PID+3, PID+10, PID+20
>> HL1("Q"	PID+3
>> HL1("VER"	PID+3
HLARR	SEND+1~, SEND+2*, SEND+17, SEND+18, SEND+19, SEND+20, SEND+21, SEND+24
>> HLECH	PID+3*
>> HLFS	PID+3*
>> HLP	SEND+23
>> HLP("SUBSCRIBER"	SEND+22*
>> HLQ	PID+3*
>> HLVER	PID+3*
I	PID+2~, PID+37, PID+38, PID+39, RXD+1~, RXD+11, NTEPMI+1~, NTEPMI+8*, NTEPMI+9, NTEPMI+12 , NTEPMI+21!
J	NTE3+1~, NTE3+9, NTEPMI+11, NTEPMI+12, NTEPMI+18, NTEPMI+21!
LLL	NTE2SV+1~, NTE2SV+7, NTE2SV+11, NTE2SV+15*
LTH	NTE3+13~, NTE3+14*, NTE3+15
NTE3	NTE3+1~, NTE3+8*
NTE4	NTE4+1~, NTE4+3
NTECNT	NTE2SV~, NTE2SV+4, NTE2SV+6, NTE2SV+7, NTE2SV+9, NTE2SV+11, NTE2SV+13, NTE2SV+15, NTE2SV+17
ORC	ORC+3~, ORC+4, ORC+5, ORC+7, ORC+9, ORC+10, ORC+11, ORC+13, ORC+15, ORC+16 , ORC+17
>> PAS	PID+1, PID+41*
PMI	NTEPMI+1~, NTEPMI+2*
PREVLN	NTEPMI+1~, NTEPMI+10, NTEPMI+15, NTEPMI+16
PRORFTOT	RXE+1~
PRSEPID	PID+10!, PID+33, PID+42!
PRSEPID(11	PID+12, PID+32!*
PRSEZTA	PID+20!, PID+42!
PRSEZTA(3	PID+28
PRSEZTA(4	PID+29
PRSEZTA(5	PID+22
PRSEZTA(6	PID+27
PSI	PID~, PID+38, PID+39, PID+40, PV1~, PV1+4, PV1+5, PV2~, PV2+5, PV2+6* , ORC~, ORC+17, NTE2~, NTE2+2, NTE2+4, NTE2+8, NTE2+9, NTE2+13, NTE2+14, NTE2+18 , NTE2+19, NTE2+20, NTE1~, NTE1+5, NTE1+7, NTE1+8, NTE3~, NTE3+8, NTE3+10, NTE3+12 , NTE3+17, NTE3+18, NTE3+19, NTE3+20, NTE4~, NTE4+3, RXE~, RXE+29, RXD~, RXD+19 , NTEPMI~, NTEPMI+5, NTEPMI+12, NTEPMI+14, NTEPMI+15, NTEPMI+17, NTEPMI+18, NTEPMI+20, NTEPMI+21, RXR~ , RXR+4, ZZZ~, ZZZ+8, ZZZ+9*
PSNMSG	NTEPMI+1~, NTEPMI+2
PSOBADR	CHKRX+3~, CHKRX+4, CHKRX+5, CHKRX+6, CHKRX+7*, CHKRX+8
PSOCLD	NTE1+1~, NTE1+6, NTE1+7
PSOCNT	HLSVNTE+1~, HLSVNTE+3, HLSVNTE+6, HLSVNTE+7, HLSVNTE+8, HLSVNTE+9, HLSVNTE+10, HLSVNTE+11*
PSOCOPAY	HLSVNTE+1~, HLSVNTE+3, HLSVNTE+8, HLSVNTE+11
PSOCSUB	RXE+1~, RXE+7*, RXE+28
PSOCSUB1	RXE+1~, RXE+7*
PSODEA	RXD+1~, RXD+2*, RXD+16
>> PSODEXP	SEND+19
PSODFN	CHKRX~, CHKRX+5, CHKRX+6, CHKTEMP~, CHKTEMP+3, NTE4+1*
PSODND1	SEND+1~, SEND+11*, SEND+12
PSODND2	SEND+1~, SEND+11*, SEND+12
PSODND3	SEND+1~, SEND+11*, SEND+12
PSODNNOW	SEND+1~, SEND+13*
PSODOMVR	SEND+1~, SEND+4*, SEND+18, SEND+22
PSODONE	SEND+1~, SEND+14, SEND+15, SEND+16
PSODOSE	RXE+1~, RXE+12, RXE+13, RXE+14, RXE+15
PSODOSEN	RXE+1~, RXE+12, RXE+13, RXE+14
PSODR	NTE1+1~, NTE1+2, NTE1+6, NTE1+7
PSODRR	NTE1+1~, NTE1+2!, NTE1+3, NTE1+4, NTE1+5!
PSOFOUR	SEND+1~, SEND+8*, SEND+20
PSOHCNT	SEND+1~, SEND+15*, SEND+16, SEND+17
PSOHDT	RXD+1~, RXD+14*, RXD+15
PSOHFLAG	SEND+1~, SEND+11*, SEND+12
>> PSOHLOT	SEND+19
>> PSOHLSV("CAP"	RXD+17
>> PSOHLSV("COPA	Y NARR" , HLSAVE+8!, Y STATUS" , HLSAVE+3, HLSAVE+8*, HLSVNTE+11, PV2+4, NTE2+15
>> PSOHLSV("DAYS	SUPPLY" , RXD+17
>> PSOHLSV("FILL	NUMBER" , HLSAVE+7*, RXE+20, RXE+21
>> PSOHLSV("L_DRUGIEN"	NTE3+2
>> PSOHLSV("NARR	COPAY" , HLSVNTE+11, NTE2+3, NTE2+15, NTE2+16, NTE2+19, NON-REFILLABLE" , HLSVNTE+10, NTE2+3, NTE2+10 , NTE2+11, NTE2+14, REFILLABLE" , HLSVNTE+9*, NTE2+3, NTE2+5, NTE2+6, NTE2+9
>> PSOHLSV("OUT	REQ PHARMACIST" , ORC+6
>> PSOHLSV("PROVIDER"	ORC+8
>> PSOHLSV("QUANTITY"	RXE+18
>> PSOHLSV("REQU	EST TYPE" , ORC+11
>> PSOHLSV("ROUTING"	RXD+17
>> PSOHLSV("RX N	UMBER" , ORC+5, RXE+25, RXD+15
>> PSOHLSV("SIG"	NTE1+1
>> PSOHLSV("TOTA	L FILLS" , RXE+19, RXE+20, RXD+15
>> PSOHMAN	SEND+19
>> PSOHNDC	SEND+19
PSOHONE	SEND+1~, SEND+8*, SEND+11
PSOHSIEN	SEND+1~, SEND+9*, SEND+19
PSOHSITE	ORC+1~, ORC+12*, ORC+13, ORC+14, ORC+15, ORC+16
PSOHSRX	SEND+1~, SEND+10*, SEND+18
PSOHSSUB	SEND+1~, SEND+10*, SEND+19
PSOHSTYP	SEND+1~, SEND+9*, SEND+10, SEND+18
PSOHSZ	SEND+1~, SEND+8*, SEND+9, SEND+10, SEND+18
PSOHZIP	ORC+1~, ORC+14*, ORC+15
PSOIPTR	RXE+1~, RXE+12*, RXE+13
PSOLBL	HLSAVE~, HLSAVE+2
PSOLBL(	HLSAVE+3, HLSAVE+4
PSOLCDRG	NTE3+1~, NTE3+2*, NTE3+3, NTE3+6
>> PSOLDRUG	RXE+7, RXE+9, RXE+12, RXE+22, RXD+2, RXD+3, RXD+4, RXD+6, RXD+7, RXD+12 , RXD+13, NTEPMI+2, ZZZ+2
>> PSOLLNM	RXE+9, RXE+27, RXD+13
PSONARR	HLSVNTE~, HLSVNTE+2
PSONARR(	HLSVNTE+4, HLSVNTE+5
>> PSOND1	RXE+2, RXE+3, RXE+4, RXE+9, RXD+12, RXD+13
>> PSOND2	RXE+9, RXD+12
>> PSOND3	RXE+2, RXE+3, RXE+4, RXE+9, RXD+12, RXD+13
PSONDC	RXD+1~, RXD+4, RXD+8, RXD+9, RXD+10, RXD+16
PSONDCL	RXD+1~, RXD+6*, RXD+7
PSONDCLS	RXD+1~, RXD+5, RXD+6, RXD+8
PSONDCND	RXD+1~, RXD+7*, RXD+8
PSONONRF	HLSVNTE+1~, HLSVNTE+3, HLSVNTE+7, HLSVNTE+8*, HLSVNTE+10
>> PSOOLAN	NTE3+11
>> PSOONLAP	ORC+10
>> PSOOTLAN	RXE+28
>> PSOPAID("IEN"	SEND+4, SEND+5, SEND+8
>> PSOPAR	NTE4+2
PSOPROT	SEND+1~, SEND+3*, SEND+6, SEND+23
PSORF	HLSVNTE+1~, HLSVNTE+3, HLSVNTE+6, HLSVNTE+7, HLSVNTE+8, HLSVNTE+9
PSORFGIV	RXE+1~, RXE+21*, RXE+25
PSORFRM	RXE+1~, RXE+20*, RXE+25
>> PSORFTOT	RXE+19*, RXE+22
PSOROP3	ORC+1~, ORC+6, ORC+7, ORC+8, ORC+9
PSOROP4	ORC+1~, ORC+7, ORC+9
PSORRDAT	SEND+1~, SEND+7
PSORRDAT(	SEND+16, SEND+17
PSORWARN	RXD+1~, RXD+3*, RXD+11
PSOSITE	NTE2SV~, NTE2SV+2, NTE2SV+5, NTE2SV+10, NTE2SV+14, ORC+12, RXD+5, RXD+8
PSOSRDEN	SEND+1~, SEND+11*, SEND+12
PSOSRXD2	SEND+1~, SEND+12*, SEND+19
PSOSRXD3	SEND+1~, SEND+13*, SEND+19
PSOSRXD4	SEND+1~, SEND+9*, SEND+19
PSOSRXD7	SEND+1~, SEND+9*, SEND+19
PSOSTALK	RXE+1~, RXE+6*, RXE+28
PSOTEMP	CHKRX+3~, CHKRX+6, CHKRX+7, CHKTEMP+3, CHKTEMP+4*, CHKTEMP+5
PSOTSIG	NTE1+1~*
PSOTSIG(	NTE1+2, NTE1+4*, NTE1+6, NTE1+7
PSOTXT	HLSAVE+4, HLSAVE+6, HLSAVE+8, HLSVNTE+1~, HLSVNTE+5, HLSVNTE+6, HLSVNTE+7, HLSVNTE+8, HLSVNTE+9, HLSVNTE+10 , HLSVNTE+11
PSOUNIT	RXE+1~, RXE+4*, RXE+11
PSOVNAME	RXE+1~, RXE+2, RXE+3, RXE+27
PSOXN	RXE+1~, RXE+4, RXE+5, RXE+10*, RXE+11
>> PSOXN2	RXE+9, RXD+12
PSOXNDF1	RXE+1~, RXE+4*, RXE+13
PSPID	PID+4!, PID+5, PID+7*, PID+35!, PID+42!
PSPID(	PID+8!, PID+36, PID+37, PID+38, PID+39
PSPID(1	PID+7!, PID+35*
PSPID1	PID+4!, PID+33!, PID+35, PID+42!
PSPID1(	PID+36
PSSWSITE	NTE3+1~, NTE3+4*, NTE3+5
PSZIP	ORC+1~, ORC+14*
PV1	PV1+2~, PV1+3*, PV1+4
PV2	PV2+3~, PV2+4, PV2+5
>> RS	RXE+27, RXE+28, RXD+11, RXD+16
RXD	RXD+1~, RXD+12, RXD+13, RXD+15, RXD+16, RXD+17, RXD+18, RXD+19
RXE	RXE+8~, RXE+9, RXE+10, RXE+11, RXE+14, RXE+15, RXE+16, RXE+17, RXE+18, RXE+22 , RXE+23, RXE+24, RXE+25, RXE+26, RXE+27, RXE+28, RXE+29
RXR	RXR+2~, RXR+3*, RXR+4
SPOT	PID+24*, PID+25, PID+26, PID+27, PID+28, PID+29, PID+42!
ST	NTE3+13~, NTE3+16*
TEXT	NTE3+1~, NTE3+11*, NTE3+12, NTE3+14, NTE3+16
TMPADD	PID+22!, PID+42!
TMPADD(1	PID+25
TXT	NTE3+13~, NTE3+16*, NTE3+17
U	HLSVNTE+5
VAPA	CHKTEMP+2~
VAPA(9	CHKTEMP+4
VAR	ZZZ+1~, ZZZ+3*, ZZZ+4, ZZZ+6
W	NTE3+1~, NTE3+9*, NTE3+11
WARN	NTE3+1~, NTE3+3, NTE3+6, NTE3+7, NTE3+9
>> WNS	RXD+11*, RXD+18
WW	NTE3+13~, NTE3+15, NTE3+16, RXD+11
X	HLSAVE+1~, HLSAVE+3, HLSAVE+4, HLSVNTE+1~, HLSVNTE+4, HLSVNTE+5, NTE2SV+1~, NTE2SV+5, NTE2SV+10, NTE2SV+14* , PID+2~, PID+8, PID+36, NTE2+1~, NTE2+5, NTE2+6, NTE2+9, NTE2+10, NTE2+11, NTE2+14 , NTE2+15*, NTE2+16, NTE2+19, RXE+1~
X1	HLSAVE+1~, HLSAVE+5!, HLSAVE+6*
X2	HLSAVE+1~, HLSAVE+5!, HLSAVE+6, HLSAVE+7, PID+2~, PID+14!
X3	HLSAVE+1~, HLSAVE+5!, HLSAVE+7*
Y	PID+2~, PID+8, PID+36
ZZ	NTE2SV+1~, NTE2SV+5, NTE2SV+10, NTE2SV+14*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOHLDS5

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: