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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSXDODAK

Package: CMOP

Routine: PSXDODAK


Information

PSXDODAK ;BIR/PDW-FILE .QACs FACILITY RELEASE PROCESSED ACKs & NAKs ;09/09/02 10:45 AM

Source Information

Source file <PSXDODAK.m>

Call Graph

Call Graph Total: 8

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*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All