Routine: PSXDODAK

Package	Total	Call Graph
VA Fileman	3	NOW^%DTC ^DIE $$GET1^DIQ
CMOP	2	FALERT^PSXDODNT (DOD,DODINV,DODRX)^PSXVEND
Health Level Seven	1	$$FMDATE^HLFNC
Kernel	1	($$FTG,$$GTF)^%ZISH
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
PUT(REC,DLM,XX)	; ; Set Variable V into piece P of REC using delimiter DLM
RXNDX	; backfill the RX multiple RXNDX field #40 of file 552.4
EN(PATH,FNAME)	; needs directory & file name ; force an error in the next line
EXIT	;
MSA	; pull variables from MSA segment and call into PSXVEND $RX or $INV
PIECE(REC,DLM,XX)	; ; Set variable V = piece P of REC using delimiter DLM
ERRMSG	;send error message to folks & DOD

External References

Name	Field # of Occurrence
NOW^%DTC	EN+20
$$FTG^%ZISH	EN+8
$$GTF^%ZISH	ERRMSG+3
^DIE	RXNDX+8
$$GET1^DIQ	ERRMSG+1, RXNDX+2
$$FMDATE^HLFNC	EN+17
FALERT^PSXDODNT	ERRMSG+4
DOD^PSXVEND	EN+22
DODINV^PSXVEND	MSA+14
DODRX^PSXVEND	MSA+13
^XMD	ERRMSG+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"UPDATING ",MSGNUM Line Location: EN+21
Function Call: WRITE	Prompt: !,LN Line Location: MSA+3
Function Call: WRITE	Prompt: !,"ENTRY AA BB ",AA," ",BB Line Location: MSA+8
Function Call: WRITE	Prompt: ! Line Location: ERRMSG+14
Function Call: WRITE	Prompt: !,PSXTXT(I,0) Line Location: ERRMSG+14
Routine Call	DIE Line Location: RXNDX+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSX(552.4	MSA+6, MSA+7, RXNDX+1, RXNDX+3
^TMP($J	EN+6!, EN+10, EN+11, EN+24, EXIT+1!, ERRMSG+3, ERRMSG+4

Label References

Name	Line Occurrences
ERRMSG	EN+5, EN+9, EN+10, MSA+6, MSA+10
EXIT	EN+3
MSA	EN+24
PIECE	EN+16, MSA+4, RXNDX+4

Naked Globals

Name	Field # of Occurrence
^(	RXNDX+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+20
>> AA	MSA+7*, MSA+8, MSA+9
>> ACKTM	EN+20*
>> BB	MSA+7*, MSA+8, MSA+9
BHS	EN+11*, EN+12, EN+16, EXIT+2!
DA	MSA+12!, RXNDX+6!, RXNDX+7*, RXNDX+8!
DA(1	RXNDX+7*
DD	MSA+12!
DIC	MSA+12!
DIE	MSA+12!, RXNDX+6!, RXNDX+7*, RXNDX+8!
DIRHOLD	ERRMSG+1*, ERRMSG+3, ERRMSG+4, ERRMSG+12, ERRMSG+15!
DLM	PIECE~, PIECE+2, PUT~, PUT+3
DO	MSA+12!
DR	MSA+12!, RXNDX+6!, RXNDX+7*, RXNDX+8!
FHS	EN+11*, EN+12, EXIT+2!
>> FILL	MSA+5, RXNDX+5
FNAME	EN~, EN+4, EN+8, EN+9, EN+10, EN+13, MSA+6, MSA+10, ERRMSG+3, ERRMSG+4 , ERRMSG+5, ERRMSG+11
>> GBL	EN+7, EN+8, ERRMSG+4
HOLD	EXIT+2!, ERRMSG+1*, ERRMSG+2
>> I	ERRMSG+14*
IOST	EN+21, MSA+3, MSA+8, ERRMSG+14
>> LN	EN+24*, MSA+3, MSA+4
>> LNNUM	EN+24*
MSG	EN+17, EN+19, EXIT+2!, MSA+11
MSGNUM	EN+19*, EN+21, EXIT+2!
>> ORDDA	RXNDX+1*, RXNDX+2, RXNDX+3, RXNDX+7
P	PIECE+2~, PUT+2~, PUT+3
PATH	EN~, EN+4, EN+8, EN+9, EN+10
PDT	EN+17, EXIT+2!, MSA+11
>> PSXERR	EN+5, EN+9, EN+10, EN+13, MSA+6, MSA+10, ERRMSG+10
>> PSXPDT	EN+17*, MSA+11
PSXTXT	ERRMSG+15!
PSXTXT(	ERRMSG+14
PSXTXT(1	ERRMSG+9*
PSXTXT(2	ERRMSG+10*
PSXTXT(3	ERRMSG+11*
PSXTXT(4	ERRMSG+12*
REC	PIECE~, PIECE+2, PUT~, PUT+3*
>> RXDA	RXNDX+3*, RXNDX+7
>> RXN	MSA+5*
>> RXNDX	MSA+5*, MSA+6, MSA+7, MSA+10
>> RXNM	RXNDX+5
>> RXNUM	MSA+5*
>> SEG	EN+24*
>> SITE	RXNDX+2*, RXNDX+5
>> SS	EN+19, MSA+11
>> STAT	MSA+5*
TXMZ	EN+17*, EXIT+2!
>> TYP	MSA+13, MSA+14
U	EN+9, EN+10, PIECE+2, PUT+2, RXNDX+4
V	PIECE+2~, PUT+2~, PUT+3
>> VAL	RXNDX+5*
>> XMSUB	ERRMSG+5*
>> XMTEXT	ERRMSG+8*
>> XMY("G.PSXX C	MOP MANAGERS" , ERRMSG+7*
XX	PIECE~, PIECE+2, PUT~, PUT+2, ERRMSG+3, RXNDX+3, RXNDX+4
>> Y	EN+8, EN+9, ERRMSG+3, ERRMSG+4
>> YY	EN+16, MSA+4, RXNDX+4*

Customize PDF page

Package: CMOP

Routine: PSXDODAK

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: