Routine: PSXDODB

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Label References
Local Variables

Information

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

Source Information

Source file <PSXDODB.m>

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
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\|")
MSGSEQER	;send error message to folks & DOD
EN(PATH,FNAME)	; needs directory & file name ; force an error in the next line
EN1	;
EN2	;entry for processing file into Vista Messages
EXIT	;
LOOP
XMZ
LOADTMP	; load data into ^TMP
CLEARFLS(XX,EXT)	;
PIECE(REC,DLM,XX)	; ; Set variable V = piece P of REC using delimiter DLM
ERRMSG	;

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

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

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!

Customize PDF page

Package: CMOP

Routine: PSXDODB

Call Graph Total: 7