Routine: PSXDODB

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	;

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

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!

Customize PDF page

Package: CMOP

Routine: PSXDODB

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: