Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSXDODB1

Package: CMOP

Routine: PSXDODB1


Information

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

Source Information

Source file <PSXDODB1.m>

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.

External References

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

Global Variables Directly Accessed

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

Label References

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!

Marked Items

Name Field # of Occurrence
$T(SEGBLD+I BLDSEQ+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All