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	$$FMTHL7^XLFDT
Pharmacy Data Management	1	$$NDCFMT^PSSNDCUT
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOHLDS

Entry Points

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

External References

Name	Field # of Occurrence
NOW^%DTC	ACTLOG+5, ERROR+4
^DIC	GETORC+6, GETORC+10, GETRXD+15
^DIE	FILL+5, REFILL+6, PARTIAL+6
$$GET1^DIQ	ACTLOG+18
$$FMDATE^HLFNC	GETRXD+3, GETRXD+10, GETRXD+22
$$STATUS^PSOBPSUT	FILL+10, REFILL+12
AUTOREL^PSOBPSUT	FILL+8, REFILL+10
CP^PSOCP	FILL+7, REFILL+9
CHKADDR^PSODISPS	EN+13
BINGREL^PSOHLDI1	EN+11
DRGACCT^PSOHLDI1	EN+12
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
$$FMTHL7^XLFDT	ERROR+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.51 - [#52.51]	GETRXD+27
^PS(59 - [#59]	GETRXD+28, GETRXD+29, FILL+4, FILL+6, REFILL+4, REFILL+7, PARTIAL+4, PARTIAL+7
^PS(59.7 - [#59.7]	GETRXD+29
^PSDRUG - [#50]	FILL+2, REFILL+3, PARTIAL+3*
^PSRX - [#52]	EN+19, EN+20, EN+21, GETORC+2, GETRXD+30, 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
^TMP("PSO2"	ERROR+7*

Label References

Name	Line Occurrences
ACTLOG	EN+9, EN+15
END	EN+23
FILL	EN+6
GETHL7	EN+2
GETORC	EN+2
GETPID	EN+2
GETRXD	EN+2
PARTIAL	EN+8
REFILL	EN+7

Naked Globals

Name	Field # of Occurrence
^("OR1"	FILL+1*
^(0	GETRXD+30, 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, ERROR+6, ERROR+10!
ACKDATE	ERROR+6*, ERROR+7, ERROR+10!
ACL	ACTLOG+4, ACTLOG+5, ACTLOG+21, ACTLOG+25, ACTLOG+26, ACTLOG+27, 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+11, FILL+6, REFILL+7, PARTIAL+7*, END+1!
BGRP	EN+11, FILL+6, REFILL+7, PARTIAL+7*, END+2!
BNAM	EN+11, 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
DD	END+1!
>> DFN	GETORC+2*
DIC	GETORC+5!, GETORC+9!, GETRXD+14!*, END+1!
DIC(0	GETORC+5, GETORC+9, GETRXD+14*
DIE	FILL+5!, REFILL+5, REFILL+6!, PARTIAL+5*, PARTIAL+6!, END+1!
DIK	END+1!
DIR	END+1!
>> DISPDT	GETRXD+3*
>> DIV	GETRXD+28*, FILL+4, REFILL+4, PARTIAL+4
DO	END+1!
>> DOB	GETORC+3*
DR	FILL+5!, REFILL+6!, PARTIAL+6*!, END+1!
>> DRG	GETRXD+30*, FILL+2, REFILL+3, PARTIAL+3
DTOUT	END+1!
DUOUT	END+1!
>> EIN	GETRXD+27
>> EXPDT	GETRXD+22*, FILL+1, REFILL+2
>> EXRX	GETRXD+27*, GETRXD+28
F	GETRXD+6!, GETRXD+7, GETRXD+8, GETRXD+9, GETRXD+18!, GETRXD+19, GETRXD+20, GETRXD+21, GETRXD+24!, GETRXD+25* , GETRXD+26
>> FILL	GETRXD+1*
>> FLL	EN+6, EN+7, EN+8, EN+21, GETRXD+28*, ACTLOG+2, ACTLOG+3, ACTLOG+13
>> FLLN	EN+6, EN+7, EN+21, GETRXD+28*, 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+21
>> HLUSER	EN+21
I	GETHL7+2, GETHL7+3, GETHL7+4, GETHL7+5, GETHL7+6, GETHL7+7, ACTLOG+4, END!
>> IRX	GETRXD+28*, GETRXD+30, 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+18!, GETRXD+20, GETRXD+24!, GETRXD+25*
LB	EN+19*, END!
LBI	EN+19, EN+20, EN+21, END!
>> LOT	GETRXD+17, GETRXD+18, GETRXD+20, GETRXD+21, FILL+1, REFILL+2, PARTIAL+2
MEDDISP	EN+5, GETRXD+12*, ACTLOG+6, ACTLOG+9, ACTLOG+24, END!
>> MFG	GETRXD+23, GETRXD+24, GETRXD+25, GETRXD+26, 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+17, GETRXD+22, GETRXD+23, END+4!
NONODE	EN+1~, EN+10, REFILL+1, PARTIAL+1, ACTLOG+11
NOW	EN+21, ACTLOG+5*, ACTLOG+21, 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+13, EN+18, GETRXD+11*, END!
>> PSOCPRX	FILL+7, REFILL+9
>> PSOMSG(	GETHL7+2, GETHL7+3, GETHL7+4, GETHL7+5, GETHL7+6, GETHL7+7
>> PSOPAR	GETRXD+28*
>> PSOPAR7	GETRXD+29*
>> PSORX	GETRXD+4*, ERROR+5
>> PSOSITE	GETRXD+28*, GETRXD+29
>> PSOSYS	GETRXD+29*
PSSN	GETPID+5*, END+4!
PSZ	END+2!
>> QTY	GETRXD+30*, 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+13, GETRXD+14, GETRXD+15, GETRXD+16*, FILL+5, REFILL+6, PARTIAL+6, ACTLOG+21, END+5!
>> RPT	GETRXD+28*
RTDTM	END+3!
RXF	ACTLOG+1~, ACTLOG+2, ACTLOG+3, ACTLOG+21
>> RXID	EN+12, EN+13, EN+19, EN+20, EN+21, GETORC+1*, GETORC+2, ACTLOG+4, ACTLOG+5, ACTLOG+16 , ACTLOG+18, ACTLOG+21, ACTLOG+25, ACTLOG+26, ACTLOG+27
>> RXN	GETRXD+30*
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!
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+14!, GETRXD+22!, 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+14!, GETRXD+15, 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

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: