Routine: PSXMISC1

Information

PSXMISC1 ;BIR/WPB,BAB-Transmission Data Validation ;MAR 1,2002@13:13:34

Source Information

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
CMOP	3	ER7^PSXERR (ACTLOG,DELETE)^PSXRPPL UNMARK^PSXUTL
National Drug File	1	$$PROD2^PSNAPIS
Outpatient Pharmacy	1	($$CHKRX,CHKRX)^PSOBAI
Pharmacy Data Management	1	PSOL^PSSLOCK
Registration	1	(ADD,DEM)^VADPT
VA Fileman	1	NOW^%DTC

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
CMOP	2	PSXBPSUT PSXRPPL

Entry Points

Name	Comments	DBIA/ICR reference
TSTSIG	; include testing for BAD characters in SIG
TSTCHAR	; test each character of SIG for certain characters
CHKDATA	;checks the data elements in PSRX before putting the rx in 550.2
PSOMSG
STOP
CHKACT(RXN)	; SEE IF FILL IS ALREADY ON ACTIVITY LOG FOR FOREIGN OR BAD ADDRESS
ADDROK(TRX)	; return 1 if not foreign and not bad address indicator
NOGO	;any rx that does not pass the following checks will not be transmitted
NG1
MAILOK(TRX)	; return 1 if patient still in mail status & ok to CMOP

External References

Name	Field # of Occurrence
NOW^%DTC	NG1+32, NG1+40
$$PROD2^PSNAPIS	CHKDATA+10
$$CHKRX^PSOBAI	ADDROK+11
CHKRX^PSOBAI	ADDROK+8
PSOL^PSSLOCK	CHKDATA+4
ER7^PSXERR	PSOMSG+1
ACTLOG^PSXRPPL	NG1+32, NG1+40
DELETE^PSXRPPL	NG1+33
UNMARK^PSXUTL	CHKDATA+15
ADD^VADPT	NG1+5, ADDROK+5
DEM^VADPT	NG1+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.5 - [#52.5]	CHKDATA+1, CHKDATA+3, CHKDATA+5, CHKDATA+25, NG1+13
^PS(55 - [#55]	MAILOK+2
^PS(59.7 - [#59.7]	NG1+25, NG1+26
^PSDRUG - [#50]	CHKDATA+8, CHKDATA+9, CHKDATA+15, CHKDATA+31, NG1+23
^PSDRUG("AQ"	CHKDATA+13
^PSRX - [#52]	CHKDATA+5, CHKDATA+6, CHKDATA+7, CHKDATA+16, CHKDATA+19, CHKDATA+22, CHKDATA+23, CHKDATA+24, CHKDATA+26, NOGO+5 , NG1, NG1+1, NG1+2, NG1+3, NG1+5, NG1+16, NG1+18, NG1+19, NG1+20, TSTSIG+1 , TSTSIG+2, MAILOK+2, ADDROK+2, CHKACT+4, CHKACT+5
^PSRX("B"	NG1+10
^TMP($J	NG1+36, TSTCHAR+2, TSTCHAR+3, TSTCHAR+4, TSTCHAR+5, ADDROK+4, ADDROK+7, ADDROK+8, ADDROK+12, ADDROK+13 , ADDROK+14*

Name	Line Occurrences
$$MAILOK	NG1+31
CHKACT	NG1+38
NG1	NOGO+5
STOP	CHKDATA+43
TSTCHAR	TSTSIG+1, TSTSIG+2
TSTSIG	NG1+4

Name	Field # of Occurrence
^(0	NG1+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NG1+32!, NG1+40!
C	TSTCHAR+1~, TSTCHAR+5*
CNTR	NG1+10*, NG1+11, NG1+15!
COM	NG1+32, NG1+40, CHKACT+1~, CHKACT+3*, CHKACT+5
DAYS	NG1+1*, STOP!
DFN	NG1+5, NG1+36, MAILOK+1~, MAILOK+2, ADDROK+1~, ADDROK+2*, ADDROK+4, ADDROK+7, ADDROK+8, ADDROK+12 , ADDROK+13, ADDROK+14
DRUG	NG1+3*, NG1+22, NG1+23, STOP!
DRUGCHK	CHKDATA+2!, CHKDATA+10, CHKDATA+11, CHKDATA+12, CHKDATA+14, STOP!
DT	MAILOK+3
>> DTTM	NG1+32, NG1+40
DUPFLG	NG1+10, NG1+13, NG1+14, NG1+15!
DUPRX	NG1+10*, NG1+12, NG1+13, NG1+15!
FDATE	NG1+3*, NG1+30, STOP!
>> FILNUM	CHKDATA+19*, CHKDATA+21, CHKDATA+23, CHKDATA+24, CHKDATA+26
I	TSTCHAR+1~, TSTCHAR+3, TSTCHAR+4, TSTCHAR+5*
I1	NG1+13*, NG1+15!
I2	NG1+13*, NG1+15!
JJ	CHKACT+1~, CHKACT+5*
L	TSTSIG+2~*
PHARCLK	NG1+2*, STOP!
PHARCLK1	STOP!
PHY	NG1*, STOP!
PSOBADR	ADDROK+9~, ADDROK+11*, ADDROK+12, ADDROK+13
PSOFORGN	ADDROK+1~, ADDROK+6*, ADDROK+7
PSOMC	MAILOK+1~, MAILOK+2*, MAILOK+3
PSOMDT	MAILOK+1~, MAILOK+2*, MAILOK+3
>> PSOMSG	CHKDATA+4*, PSOMSG
PSORX	ADDROK+9~, ADDROK+10*, ADDROK+11
>> PSOSITE	CHKDATA+28
PSREC	NG1+13*, NG1+15!
>> PSSWSITE	NG1+25*, NG1+26
PSTAT	NG1+3*, NG1+29, STOP!
>> PSXCK	CHKDATA+15*
>> PSXCS	CHKDATA+37, CHKDATA+39
PSXCSC	CHKDATA+30~, CHKDATA+31*, CHKDATA+33, CHKDATA+35
PSXCSD	CHKDATA+30~, CHKDATA+35*
>> PSXCSRX	CHKDATA+30, CHKDATA+35, CHKDATA+37, CHKDATA+39
PSXDGST	CHKDATA+2!, CHKDATA+11*
>> PSXDIV	CHKDATA+26*, CHKDATA+28
>> PSXDTRG	NG1+13
>> PSXFIRST	NG1+39, CHKACT+2, CHKACT+5
>> PSXOK	CHKDATA+3, CHKDATA+5, CHKDATA+6, CHKDATA+13, CHKDATA+14, CHKDATA+15, CHKDATA+16, CHKDATA+22, CHKDATA+23, CHKDATA+24 , CHKDATA+25, CHKDATA+28, CHKDATA+33, CHKDATA+37, CHKDATA+39, CHKDATA+43, NG1+33, NG1+37, PSOMSG+1
>> PSXPTR	CHKDATA+3*, CHKDATA+5, CHKDATA+6, CHKDATA+7, CHKDATA+16, CHKDATA+19, CHKDATA+23, CHKDATA+24, CHKDATA+26, NG1+16 , NG1+18, NG1+19, NG1+20, NG1+38
PSXRXERR	CHKDATA+2!, NOGO+3, NOGO+4, NOGO+5, NG1, NG1+1, NG1+2, NG1+5, NG1+7, NG1+9* , NG1+14, NG1+21, NG1+22, NG1+27, NG1+28, NG1+29, NG1+30, NG1+39!, NG1+41, PSOMSG* , PSOMSG+1
PTRA	CHKDATA+9*, CHKDATA+10, STOP!
PTRB	CHKDATA+9*, CHKDATA+10, STOP!
QTY	NOGO+5*, STOP!
>> REC	CHKDATA+1, CHKDATA+3, CHKDATA+5, CHKDATA+25
>> REF	CHKDATA+19*
REL	CHKDATA+22*, STOP!
>> RF	CHKACT+4*
RFCNT	CHKACT+1~, CHKACT+4*, CHKACT+5
RXERR	NOGO+3, NOGO+4, NOGO+5, NG1, NG1+1, NG1+2, NG1+5, NG1+7, NG1+9, NG1+17 , NG1+19, NG1+20, NG1+21, NG1+22, NG1+27, NG1+28, NG1+29, NG1+30, NG1+41, PSOMSG* , STOP!
RXEX	CHKDATA+7*, NOGO+3, NOGO+4, NG1+10, STOP!
>> RXF	CHKDATA+21*, CHKDATA+22, NOGO+3, NOGO+5, NG1, NG1+1, NG1+2, NG1+19, NG1+20
RXN	CHKDATA+3*, CHKDATA+4, CHKDATA+22, NOGO+5, NG1, NG1+1, NG1+2, NG1+3, NG1+5, NG1+31 , TSTSIG+1, TSTSIG+2, CHKACT~, CHKACT+4, CHKACT+5
RXNUM	CHKDATA+7*, CHKDATA+8, CHKDATA+9, CHKDATA+13, CHKDATA+15, CHKDATA+31, STOP!
SIG	NG1+28, STOP!, TSTSIG+1, TSTSIG+2, TSTCHAR+5*
TRX	MAILOK~, MAILOK+2, ADDROK~, ADDROK+2, ADDROK+10
U	CHKDATA+5, CHKDATA+9, CHKDATA+16, CHKDATA+22, CHKDATA+26, NOGO+5, NG1, NG1+1, NG1+2, NG1+3 , NG1+5
>> VA("PID"	NG1+9
>> VADM(1	NG1+7
>> VAPA(1	NG1+5, STOP!
>> VAPA(11	NG1+5
>> VAPA(25	ADDROK+6
>> VAPA(4	NG1+5, STOP!
>> VAPA(5	NG1+5, STOP!
>> VAPA(6	NG1+5, STOP!
WARNS	CHKDATA+2!, NG1+23*, NG1+27
XC	NG1+10*, NG1+15!
>> XDFN	CHKDATA+5
XX	CHKACT+1~, CHKACT+5*
ZX	CHKDATA+10, CHKDATA+11, NG1+18, NG1+19, NG1+20, STOP!

Customize PDF page

Package: CMOP

Routine: PSXMISC1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items