Routine: PSXDODB1

Information

PSXDODB1 ;BIR/HTW-HL7 2.1 FILE AND PATIENT SAFETY CHECKS ;01/15/02 13:10:52

Source Information

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
CMOP	2	FALERT^PSXDODNT GRP1^PSXNOTE
VA Fileman	2	NOW^%DTC $$GET1^DIQ
Health Level Seven	1	$$HLDATE^HLFNC
Kernel	1	($$FTG,$$GTF)^%ZISH
MailMan	1	^XMD

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
CMOP	1	PSXDODB

Entry Points

Name	Comments	DBIA/ICR reference
LOAD	; used for testing seperate from the call from PSXDODB
BLDSEQ	;build check sequence of SEGMENTS
PUT(REC,DLM,XX)	; ; Set Variable V into piece P of REC using delimiter DLM
EN
PIECE(REC,DLM,XX)	; ; Set variable V = piece P of REC using delimiter DLM
TESTBT	;test the sequence of the messages in the batch ; stored in ^TMP($J,"PSXDOD",I)
EXIT	;
SEGBLD	; data for checking sequencing of segments.
CHECK	;patient safety check; pull variables from segments/elements
ERRMSG	;send error message to PSXCMOPMGR key and copy file to pending.

Name	Field # of Occurrence
NOW^%DTC	TESTBT+22
$$FTG^%ZISH	LOAD+5
$$GTF^%ZISH	TESTBT+27, TESTBT+30, ERRMSG+2
$$GET1^DIQ	TESTBT+26, TESTBT+29, ERRMSG+1, LOAD+3
$$HLDATE^HLFNC	TESTBT+22
FALERT^PSXDODNT	TESTBT+28, TESTBT+31
GRP1^PSXNOTE	ERRMSG+4
^XMD	ERRMSG+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " ",SEG," " Line Location: TESTBT+8
Function Call: WRITE	Prompt: !,"Batch Orders ",PSXERR,!,$G(PTCNTB),?40,$G(PTCNT) Line Location: TESTBT+15
Function Call: WRITE	Prompt: ! Line Location: ERRMSG+13
Function Call: WRITE	Prompt: !,PSXTXT(I,0) Line Location: ERRMSG+13
Function Call: WRITE	Prompt: !,"Order Batch ID ",PSXERR,!,BATIDM,?40,BATIDB Line Location: CHECK+5
Function Call: WRITE	Prompt: !,"Order Sequence ",PSXERR,!,ORDSEQG,?40,ORDSEQH Line Location: CHECK+7
Function Call: WRITE	Prompt: !,"RX Number ",PSXERR,!,RXIDR,?40,RXIDZ Line Location: CHECK+10
Function Call: WRITE	Prompt: !,"Batch Orders ",PSXERR,!,PTCNTB,?40,PTCNT Line Location: CHECK+14
Function Call: WRITE	Prompt: !,"Batch Totals ",PSXERR,!,ORDCNTB,?40,ORDCNT Line Location: CHECK+16

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	TESTBT+3, ERRMSG+2, LOAD+1!

Name	Line Occurrences
BLDSEQ	EN
CHECK	TESTBT+12
EXIT	TESTBT+17, ERRMSG+15
PUT	TESTBT+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TESTBT+22
ACK	TESTBT+19!, TESTBT+20*, TESTBT+23, TESTBT+24
ACK(1	TESTBT+24*
ACK(2	TESTBT+24, TESTBT+25
BATDTM	TESTBT+22*, EXIT+2!
BATID	TESTBT+21*, TESTBT+24, EXIT+1!
BATIDB	TESTBT+21, CHECK+1*, CHECK+4, CHECK+5, EXIT+2!
BATIDM	CHECK+3*, CHECK+4, CHECK+5, EXIT+1!
BHS	CHECK+1*, EXIT+1!
BTS	EN+1!, TESTBT+14, CHECK+12*, EXIT+1!
DIRHOLD	ERRMSG+1*, ERRMSG+2, ERRMSG+9, ERRMSG+14!
DLM	PIECE~, PIECE+2, PUT~, PUT+3
>> FNAME	TESTBT+26, ERRMSG+2, ERRMSG+3, ERRMSG+8, LOAD+4*, LOAD+5
FNAME2	TESTBT+26*, TESTBT+27, TESTBT+28, TESTBT+30, TESTBT+31, EXIT+2!
>> GBL	TESTBT+28, TESTBT+31, LOAD+2*, LOAD+5
>> I	ERRMSG+11, ERRMSG+13, BLDSEQ+2*
IOST	TESTBT+15, ERRMSG+13, CHECK+5, CHECK+7, CHECK+10, CHECK+14, CHECK+16
>> J	BLDSEQ+4*
>> L	ERRMSG+11*
LINE	BLDSEQ+2*, BLDSEQ+3, BLDSEQ+4, EXIT+2!
LN	TESTBT+3*, TESTBT+4, TESTBT+5, TESTBT+6, TESTBT+9, CHECK+1, CHECK+2, CHECK+3, CHECK+8, CHECK+9 , CHECK+12, EXIT+2!
LNNUM	TESTBT+3*, TESTBT+9, EXIT+2!
LSEG	TESTBT+2, TESTBT+9, TESTBT+10, TESTBT+11, BLDSEQ+3*, BLDSEQ+4, EXIT+2!
ORDCNT	TESTBT+2, CHECK+8, CHECK+15, CHECK+16, EXIT+1!
ORDCNTB	CHECK+12*, CHECK+15, CHECK+16, EXIT+1!
ORDSEQG	CHECK+2*, CHECK+6, CHECK+7, EXIT+1!
ORDSEQH	CHECK+3*, CHECK+4, CHECK+6, CHECK+7, CHECK+9, EXIT+1!
P	PIECE+2~, PUT+2~, PUT+3
>> PATH	TESTBT+26, TESTBT+27, TESTBT+28, TESTBT+29, TESTBT+30, TESTBT+31, LOAD+3*, LOAD+5
>> PSXERR	TESTBT+2, TESTBT+10, TESTBT+14, TESTBT+15, TESTBT+17, TESTBT+25, ERRMSG+11, CHECK+4, CHECK+5, CHECK+6* , CHECK+7, CHECK+9, CHECK+10, CHECK+13, CHECK+14, CHECK+15*, CHECK+16
PSXTXT	ERRMSG+14!
PSXTXT(	ERRMSG+13
PSXTXT(1	ERRMSG+7*
PSXTXT(2	ERRMSG+8*
PSXTXT(3	ERRMSG+9*
PSXTXT(4	ERRMSG+10, ERRMSG+11
PTCNT	TESTBT+2, TESTBT+15, CHECK+11, CHECK+13, CHECK+14, EXIT+1!
PTCNTB	TESTBT+15, CHECK+12*, CHECK+13, CHECK+14, EXIT+1!
REC	PIECE~, PIECE+2, PUT~, PUT+3*
RXIDR	CHECK+8*, CHECK+9, CHECK+10, EXIT+1!
RXIDZ	CHECK+9*, CHECK+10, EXIT+1!
SEG	TESTBT+4, TESTBT+5, TESTBT+6, TESTBT+7, TESTBT+9, TESTBT+10, TESTBT+11, TESTBT+12, CHECK+1, CHECK+2 , CHECK+3, CHECK+8, CHECK+9, CHECK+11, CHECK+12, BLDSEQ+4, EXIT+2!
SEGSEQ	BLDSEQ+1!, EXIT+1!
SEGSEQ(	TESTBT+10, BLDSEQ+4*
SEGSTOP	TESTBT+3, TESTBT+10*, EXIT+2!
U	TESTBT+10, CHECK+2, CHECK+9, PIECE+2, PUT+2
V	PIECE+2~, PUT+2~, PUT+3
XMIT	TESTBT+9*, EXIT+2!
>> XMSUB	ERRMSG+3*
>> XMTEXT	ERRMSG+6*
XX	TESTBT+27, TESTBT+30, ERRMSG+11*, PIECE~, PIECE+2, PUT~, PUT+2
>> Y	TESTBT+27, TESTBT+28, TESTBT+30, TESTBT+31, ERRMSG+2, LOAD+5
YY	TESTBT+23*, EXIT+2!

Customize PDF page

Package: CMOP

Routine: PSXDODB1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items