Routine: PSOHLDIS

Package	Total	Call Graph
Outpatient Pharmacy	6	($$STATUS,AUTOREL)^PSOBPSUT CP^PSOCP CHKADDR^PSODISPS (BINGREL,DRGACCT,MAIL)^PSOHLDI1 EN^PSOHLSN1 SAVNDC^PSONDCUT
VA FileMan	4	NOW^%DTC ^DIC ^DIE $$GET1^DIQ
Health Level Seven	1	$$FMDATE^HLFNC
Kernel	1	($$FMTE,$$FMTHL7)^XLFDT
Pharmacy Data Management	1	$$NDCFMT^PSSNDCUT
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOHLDS

Name	Comments	DBIA/ICR reference
EN	;main entry and process
GETHL7	;get HL7 segments from msg
GETPID	;get PID segment data
GETORC	;get ORC segment data
GETRXD	;get RXD segment data
FILL	;Orig fill
REFILL	;refill
PARTIAL	;partial fill dispensed
ACTLOG	;activity log entry
ALCOM	;activity log entry - tracking information
ERROR	;sends the error message back to the sending station
END

Name	Field # of Occurrence
NOW^%DTC	ACTLOG+5, ALCOM+5, ERROR+4
^DIC	GETORC+6, GETORC+10, GETRXD+16
^DIE	FILL+5, REFILL+6, PARTIAL+6
$$GET1^DIQ	ACTLOG+18
$$FMDATE^HLFNC	GETRXD+3, GETRXD+10, GETRXD+23
$$STATUS^PSOBPSUT	FILL+10, REFILL+12
AUTOREL^PSOBPSUT	FILL+8, REFILL+10
CP^PSOCP	FILL+7, REFILL+9
CHKADDR^PSODISPS	EN+15
BINGREL^PSOHLDI1	EN+13
DRGACCT^PSOHLDI1	EN+14
MAIL^PSOHLDI1	ACTLOG+15, ACTLOG+20
EN^PSOHLSN1	FILL+8, REFILL+10
SAVNDC^PSONDCUT	FILL+10, REFILL+12
$$NDCFMT^PSSNDCUT	FILL+10, REFILL+12
DEM^VADPT	GETORC+2
$$FMTE^XLFDT	ALCOM+7
$$FMTHL7^XLFDT	ERROR+6

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^PSRX - [#52]	Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.51 - [#52.51]	GETRXD+28
^PS(59 - [#59]	GETRXD+29, GETRXD+30, FILL+4, FILL+6, REFILL+4, REFILL+7, PARTIAL+4, PARTIAL+7
^PS(59.7 - [#59.7]	GETRXD+30
^PSDRUG - [#50]	FILL+2, REFILL+3, PARTIAL+3*
^PSRX - [#52]	EN+21, EN+22, EN+23, GETORC+2, GETRXD+31, FILL+1, FILL+6, FILL+7, REFILL+1, REFILL+2 , REFILL+3, REFILL+7, REFILL+9, PARTIAL+1, PARTIAL+2, PARTIAL+3, PARTIAL+7, ACTLOG+4, ACTLOG+5, ACTLOG+16 , ACTLOG+21, ACTLOG+25, ACTLOG+26, ACTLOG+27, ALCOM+2, ALCOM+4, ALCOM+6, ALCOM+7
^TMP("PSO2"	ERROR+7*

Name	Line Occurrences
ACTLOG	EN+11, EN+17
ALCOM	EN+6
END	EN+5, EN+25
FILL	EN+8
GETHL7	EN+2
GETORC	EN+2
GETPID	EN+2
GETRXD	EN+2
PARTIAL	EN+10
REFILL	EN+9

Name	Field # of Occurrence
^("OR1"	FILL+1*
^(0	GETRXD+31, REFILL+2, PARTIAL+2
^(1	REFILL+2, PARTIAL+2
^(2	FILL+1*, FILL+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ACTLOG+5, ALCOM+5, ERROR+6, ERROR+10!
ACKDATE	ERROR+6*, ERROR+7, ERROR+10!
ACL	ACTLOG+4, ACTLOG+5, ACTLOG+21, ACTLOG+25, ACTLOG+26, ACTLOG+27, ALCOM+2*, ALCOM+3, ALCOM+4, ALCOM+6 , ALCOM+7, END!
ACTN	ACTLOG+1~, ACTLOG+14, ACTLOG+19
ADA	END+1!
ATXT	ACTLOG+1~, ACTLOG+6, ACTLOG+10, ACTLOG+12, ACTLOG+13, ACTLOG+17, ACTLOG+18, ACTLOG+21
BDA	END+1!
BDIV	EN+13, FILL+6, REFILL+7, PARTIAL+7*, END+1!
BGRP	EN+13, FILL+6, REFILL+7, PARTIAL+7*, END+2!
BNAM	EN+13, FILL+6, REFILL+7, PARTIAL+7*, END+2!
BNAME	END+1!
BNGRXP	END+1!
BNGSUS	END+1!
BRT	FILL+6, REFILL+7, PARTIAL+7*, END+2!
BRX	END+1!
CMOP	END+3!
CNT1	END+1!
CPHARM	GETORC+8, GETORC+9, GETORC+10, GETORC+11*, FILL+1, REFILL+2, PARTIAL+2, END+5!
CPHARMN	GETORC+10, GETORC+11, ACTLOG+27, END+5!
CT	END+1!
DA	FILL+5!, REFILL+5, REFILL+6!, PARTIAL+5*, PARTIAL+6!, END+1!
DA(1	REFILL+5, PARTIAL+5
DCNT	ALCOM+1~, ALCOM+4, ALCOM+5, ALCOM+6, ALCOM+7
DD	END+1!
>> DFN	GETORC+2*
DIC	GETORC+5!, GETORC+9!, GETRXD+15!*, END+1!
DIC(0	GETORC+5, GETORC+9, GETRXD+15*
DIE	FILL+5!, REFILL+5, REFILL+6!, PARTIAL+5*, PARTIAL+6!, END+1!
DIK	END+1!
DIR	END+1!
>> DISPDT	GETRXD+3*
>> DIV	GETRXD+29*, FILL+4, REFILL+4, PARTIAL+4
DO	END+1!
>> DOB	GETORC+3*
DR	FILL+5!, REFILL+6!, PARTIAL+6*!, END+1!
>> DRG	GETRXD+31*, FILL+2, REFILL+3, PARTIAL+3
DTOUT	END+1!
DUOUT	END+1!
>> EIN	GETRXD+28
>> EXPDT	GETRXD+23*, FILL+1, REFILL+2
>> EXRX	GETRXD+28*, GETRXD+29
F	GETRXD+6!, GETRXD+7, GETRXD+8, GETRXD+9, GETRXD+19!, GETRXD+20, GETRXD+21, GETRXD+22, GETRXD+25!, GETRXD+26* , GETRXD+27
>> FILL	GETRXD+1*
>> FLL	EN+8, EN+9, EN+10, EN+23, GETRXD+29*, ACTLOG+2, ACTLOG+3, ACTLOG+13
>> FLLN	EN+8, EN+9, EN+23, GETRXD+29*, FILL+8, FILL+10, REFILL+1, REFILL+2, REFILL+3, REFILL+5 , REFILL+7, REFILL+8, REFILL+10, REFILL+12, PARTIAL+1, PARTIAL+2, PARTIAL+3, PARTIAL+5, PARTIAL+7, ACTLOG+2
FPER	GETORC+4, GETORC+5, GETORC+6, GETORC+7*, FILL+1, REFILL+2, PARTIAL+2, END+5!
FPERN	GETORC+6, GETORC+7, ACTLOG+26, END+5!
>> GIVECOD	GETRXD+2*
GRP	END+1!
GRTP	END+1!
>> HLRPT	EN+23
>> HLUSER	EN+23
I	GETHL7+2, GETHL7+3, GETHL7+4, GETHL7+5, GETHL7+6, GETHL7+7, ACTLOG+4, ALCOM+1~, ALCOM+2, ALCOM+4 , END!
>> IRX	GETRXD+29*, GETRXD+31, FILL+1, FILL+5, FILL+6, FILL+7, FILL+8, FILL+10, REFILL+1, REFILL+2 , REFILL+3, REFILL+5, REFILL+7, REFILL+9, REFILL+10, REFILL+12, PARTIAL+1, PARTIAL+2, PARTIAL+3, PARTIAL+5 , PARTIAL+7
JOES	END+1!
L	GETRXD+6!, GETRXD+8, GETRXD+19!, GETRXD+21, GETRXD+25!, GETRXD+26*
LB	EN+21*, END!
LBI	EN+21, EN+22, EN+23, END!
>> LOT	GETRXD+18, GETRXD+19, GETRXD+21, GETRXD+22, FILL+1, REFILL+2, PARTIAL+2
>> MDUP	EN+5
MEDDISP	EN+7, GETRXD+12*, ACTLOG+6, ACTLOG+9, ACTLOG+24, END!
>> MFG	GETRXD+24, GETRXD+25, GETRXD+26, GETRXD+27, FILL+1, REFILL+2, PARTIAL+2
NAM	END+2!
NAME	GETORC+3*, END+3!
NDA	END+2!
>> NDC	GETRXD+5, GETRXD+6, GETRXD+8, GETRXD+9, FILL+8, FILL+10, REFILL+10, REFILL+12, PARTIAL+2
NFLAG	END+2!
NME	END+2!
NODE1	GETHL7+3*, END+4!
NODE2	GETHL7+4*, END+4!
NODE3	GETHL7+5*, GETPID+1, END+4!
NODE4	GETHL7+6*, GETORC+1, GETORC+4, GETORC+8, END+4!
NODE5	GETHL7+7*, GETRXD+1, GETRXD+2, GETRXD+3, GETRXD+4, GETRXD+5, GETRXD+10, GETRXD+11, GETRXD+12, GETRXD+13 , GETRXD+14, GETRXD+18, GETRXD+23, GETRXD+24, END+4!
NONODE	EN+1~, EN+12, REFILL+1, PARTIAL+1, ACTLOG+11
NOW	EN+23, ACTLOG+5, ACTLOG+21, ALCOM+5, ALCOM+7, END!
ODA	END+2!
OK	GETHL7+1!, ERROR+5, ERROR+10!, END+3!
PCLM	GETPID+7*, END+4!
PICN	GETPID+4*, END+4!
>> PID	GETPID+1*, GETPID+2
PIDD	GETPID+2*, GETPID+3, GETPID+4, GETPID+5, GETPID+6, GETPID+7, END+4!
PIDID	GETPID+3*, GETPID+4, GETPID+5, GETPID+6, GETPID+7, END+4!
PPID	GETPID+6*, END+4!
PRT	EN+15, EN+20, GETRXD+11*, END!
>> PSOCPRX	FILL+7, REFILL+9
>> PSOMSG(	GETHL7+2, GETHL7+3, GETHL7+4, GETHL7+5, GETHL7+6, GETHL7+7
>> PSOPAR	GETRXD+29*
>> PSOPAR7	GETRXD+30*
>> PSORX	GETRXD+4*, ERROR+5
>> PSOSITE	EN+14, GETRXD+29*, GETRXD+30
>> PSOSYS	GETRXD+30*
PSSN	GETPID+5*, END+4!
PSZ	END+2!
>> QTY	GETRXD+31*, FILL+2
RDOM	END+3!
RDTM	END+4!
REJ	ERROR+5*, ERROR+10!
>> RELDT	GETRXD+10*, FILL+4, FILL+5, FILL+8, REFILL+4, REFILL+6, REFILL+10, PARTIAL+4, PARTIAL+6
REQT	END+3!
RPHARM	GETRXD+14, GETRXD+15, GETRXD+16, GETRXD+17*, FILL+5, REFILL+6, PARTIAL+6, ACTLOG+21, END+5!
>> RPT	GETRXD+29*
RTDTM	END+3!
RXF	ACTLOG+1~, ACTLOG+2, ACTLOG+3, ACTLOG+21
>> RXID	EN+14, EN+15, EN+21, EN+22, EN+23, GETORC+1*, GETORC+2, ACTLOG+4, ACTLOG+5, ACTLOG+16 , ACTLOG+18, ACTLOG+21, ACTLOG+25, ACTLOG+26, ACTLOG+27, ALCOM+2, ALCOM+4, ALCOM+6, ALCOM+7
>> RXN	GETRXD+31*
RXO	END+2!
>> RXP	FILL+7, REFILL+9
>> SEX	GETORC+3*
SITEN	END+3!
SITENUM	END+3!
SSN	END+2!
TDFN	END+2!
TFLAG	END+2!
TIC	END+2!
TICK	END+2!
TIEN	END+2!
TM	END+2!
TM1	END+2!
TRKLOC	EN+6, GETRXD+13*, ACTLOG+28, ALCOM+7, END+5!
TSSN	END+2!
USER	ERROR+10!
VADM	GETORC+3!
VADM(1	GETORC+3
VADM(3	GETORC+3
VADM(5	GETORC+3
X	GETORC+5!, GETORC+9!, GETRXD+3!, GETRXD+10!, GETRXD+15!, GETRXD+23!, END+2!
XQADATA	END+3!
XQAID	END+4!
XQAMSG	END+3!
XQAROU	END+4!
XQMSG	END+3!
XQSOP	END+3!
XX	GETPID+2*, END+2!
Y	GETORC+5!, GETORC+6, GETORC+9!, GETORC+10, GETRXD+15!, GETRXD+16, ERROR+10!, END+2!, END+3!
YY	REFILL+8~*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOHLDIS

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: