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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSXDODB

Package: CMOP

Routine: PSXDODB


Information

PSXDODB ;BIR/HTW-HL7 Message Conversion ;25 Jul 2002 10:02 PM

Source Information

Source file <PSXDODB.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
MailMan 2 XMZ^XMA2  (,ENT1)^XMD  
VA FileMan 2 $$GET1^DIQ  ^DIR  
CMOP 1 EN^PSXDODB1  
Health Level Seven 1 $$FMDATE^HLFNC  
Kernel 1 ($$DEL,$$FTG,$$GTF,$$LIST)^%ZISH  

Entry Points

Name Comments DBIA/ICR reference
EN(PATH,FNAME) ; needs directory & file name
; force an error in the next line
EN1 ;
EN2 ;entry for processing file into Vista Messages
XMZ
PIECE(REC,DLM,XX) ;
; Set variable V = piece P of REC using delimiter DLM
PUT(REC,DLM,XX) ;
; Set Variable V into piece P of REC using delimiter DLM
GETELM(STR,PIECES,SEPS) ;
; uses STRing and
; returns value of the element located by path of pieces and separators
; ex: 1st address line = $$getelm(ORC,"22,1","|,^")
; or = $$getelm(XMIT,"4,2,1","|,\F\,\S|")
ERRMSG ;
MSGSEQER ;send error message to folks & DOD
EXIT ;
LOADTMP ; load data into ^TMP
CLEARFLS(XX,EXT) ;
LOOP

External References

Name Field # of Occurrence
$$DEL^%ZISH LOOP+8
$$FTG^%ZISH EN+6
$$GTF^%ZISH MSGSEQER+3
$$LIST^%ZISH LOOP+2
$$GET1^DIQ MSGSEQER+2, LOOP+1
^DIR LOOP+7
$$FMDATE^HLFNC EN1+10
EN^PSXDODB1 EN1+2
XMZ^XMA2 XMZ
^XMD MSGSEQER+12
ENT1^XMD XMZ+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MSGSEQER+13
Function Call: WRITE
  • Prompt: !,PSXTXT(I,0)
  • Line Location: MSGSEQER+13
Function Call: WRITE
  • Prompt: !,"path ",PATH,!,"files ",EXT
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !,FILE
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: $$DEL^%ZISH(PATH,"PSXL")
  • Line Location: LOOP+8
Routine Call
  • DIR
  • Line Location:
    • LOOP+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSX(554 - [#554] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J EN+4!, EN+8, EN1+7, EN1+8!, MSGSEQER+3, EXIT+8!, LOADTMP+1!, LOADTMP+2*
^XMB(3.9 - [#3.9] XMZ+5*, LOADTMP+2

Label References

Name Line Occurrences
ERRMSG EN+3, EN+7, EN+8
EXIT EN1+3, XMZ+9
LOOP LOOP+9
XMZ XMZ

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDRESS EXIT+5!
BATDTM EXIT+5!
BATID EN1+10*, EXIT+5!
BATIDB EXIT+1!, EXIT+5!
BATIDM EXIT+1!, EXIT+5!
BATNM EN1+10*, EN2+4, EXIT+5!
BHS EXIT+1!
BTS EXIT+1!
DIR LOOP+7!
DIR("A" LOOP+7*
DIR("B" LOOP+7*
DIR(0 LOOP+7*
DIRHOLD MSGSEQER+2*, MSGSEQER+3, MSGSEQER+11, MSGSEQER+14!
DIVISION EXIT+5!
DIVNM EXIT+5!
DIVNUM EXIT+5!
DLM PIECE~, PIECE+2, PUT~, PUT+3, EXIT+1!
DODORD EXIT+1!
DT XMZ+5
END EXIT+1!
EXPDT EXIT+5!
EXT CLEARFLS~, LOOP+1, LOOP+3
>> F1 EN1+12*
FACNM EN1+10*, EN2+4, EXIT+5!
FHS EXIT+1!
>> FILE LOOP+5*
FNAME EN~, EN+2, EN+6, EN+7, EN+8, MSGSEQER+3, MSGSEQER+4, MSGSEQER+10, EXIT+1!
FNAME2 EXIT+5!
FNAME3 EXIT+5!
G EN1+7*, EN1+8, EN1+9*, EN1+10*, EN1+12*, EN1+13*, EN1+15*, EN1+16, EN1+18*, EN1+21
, EN1+22, EN1+23*, EXIT+1!
GBL EN+5*, EN+6, EXIT+1!
>> GL EN1+4*, XMZ+4
I GETELM+5~, GETELM+6*, GETELM+7*, MSGSEQER+13*, EXIT+1!, LOADTMP+2*, LOOP+5*, LOOP+6
IOST MSGSEQER+13
ISSDT EXIT+5!
J EXIT+1!
JJ EXIT+1!
LINE EXIT+1!
LL EXIT+1!
LMSGLOC EN2+1*, EXIT+1!
LN XMZ+4*, EXIT+2!
LNCNT EN2+1*, EXIT+2!
LNNUM XMZ+4*, EXIT+2!
LSEG EXIT+2!
LSTRFLDT EXIT+6!
M XMZ+1*, XMZ+2, XMZ+3, XMZ+4, EXIT+2!
MAILID EXIT+6!
MCNT EN2+1*, XMZ+3*, XMZ+4*, XMZ+5, EXIT+2!
MSH EXIT+2!
NTE1 EN1+12*, XMZ+3, EXIT+2!
NTE1ADD EXIT+6!
NTE1DIV EXIT+6!
NTE1LOC EXIT+6!
NTE2 EXIT+2!
NTE3 EXIT+2!
NTE4 EXIT+2!
NTE7 EXIT+2!
ORC EXIT+2!
ORDCNT EN2+1*, EXIT+2!
ORDCNTB EXIT+2!
P PIECE+2~*, PUT+2~*, PUT+3, GETELM+5~, GETELM+6*, GETELM+7, EXIT+3!
P( GETELM+6*, GETELM+7
P1 EXIT+3!
P2 EXIT+3!
P3 EXIT+3!
PATH EN~, EN+2, EN+6, EN+7, EN+8, EXIT+3!, LOOP+1*, LOOP+2, LOOP+3, LOOP+8
PI GETELM+5~, GETELM+6*, EXIT+3!
PID EXIT+3!
PID0 EXIT+6!
PIECE EXIT+6!
PIECES GETELM~, GETELM+6
PNAME EXIT+3!
PRVNM EN1+16*, EN1+17*, EN1+18, EN1+19!
PRVNMF EN1+17*, EN1+19!
PRVNML EN1+17*, EN1+19!
PRVPHY EXIT+6!
PSXERR EN+3*, EN+7*, EN+8*, EN1+1*, EN1+3, MSGSEQER+9, EXIT+3!
PSXF EXIT+6!, LOOP!
PSXF( LOOP+1*
PSXL LOOP!, LOOP+4
PSXL( LOOP+5
PSXTXT MSGSEQER+14!, EXIT+3!, EXIT+8!
PSXTXT( MSGSEQER+13
PSXTXT(1 MSGSEQER+8*
PSXTXT(2 MSGSEQER+9*
PSXTXT(3 MSGSEQER+10*
PSXTXT(4 MSGSEQER+11*
PTCNT EXIT+3!
PTCNTB EXIT+3!
PTNM EN1+22*, EN1+23*, EN1+24!
PTNMF EN1+22*, EN1+23, EN1+24!
PTNML EN1+22*, EN1+23, EN1+24!
REC PIECE~, PIECE+2, PUT~, PUT+3*, EXIT+3!
RFLDT EXIT+6!
RX1 EXIT+3!
RXCNT EXIT+6!
RXDATES EXIT+6!
RXE EXIT+3!
RXID1 EXIT+3!
RXIDC EXIT+3!
RXIDE EXIT+3!
RXNUM EXIT+6!
RXZNUM EXIT+6!
S GETELM+5~, EXIT+4!
S( GETELM+6*, GETELM+7
S1 EXIT+4!
S2 EXIT+4!
S3 EXIT+4!
SEG EXIT+4!
SEGSEQ EXIT+4!
SEPS GETELM~, GETELM+6, EXIT+4!
SIG EXIT+7!
>> SITE EN1+10*, EN1+12, EN2+4
SITEID EXIT+7!
START EXIT+7!
STR GETELM~, GETELM+5, EXIT+4!
STR0 EXIT+4!
TRANDTS EXIT+7!
U EN+7, EN+8, EN1+10, XMZ+5, PIECE+2, PUT+2
V PIECE+2~*, PUT+2~*, PUT+3, GETELM+5~*, GETELM+7*, GETELM+8, EXIT+4!
VALUE EXIT+4!
>> X LOADTMP+2*
XM EN1+10*, XMZ+2, EXIT+4!
>> XMDUZ EN2+4*
>> XMSUB EN2+4*, MSGSEQER+4*
>> XMTEXT MSGSEQER+7*
>> XMY("G.PSXX C MOP MANAGERS" , MSGSEQER+6*
>> XMY("S.PSXX C MOP SERVER" , XMZ+6*
XMZ XMZ, XMZ+5, EXIT+7!
XX EN1+10*, PIECE~, PIECE+2, PUT~, PUT+2, EXIT+4!, CLEARFLS~, LOOP+1
Y EN+6*, EN+7, MSGSEQER+3*, EXIT+4!, LOOP+2*, LOOP+7
YY EXIT+4!
>> Z EN1+7*, EN1+8
ZR1 EXIT+4!
ZX1 EXIT+4!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All