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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DIED

Package: VA FileMan

Routine: DIED


Information

DIED ;SFISC/GFT,XAK - MAJOR INPUT PROCESSOR ;9MAY2016

Source Information

Source file <DIED.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA FileMan 16 $$EZBLD^DIALOG  ($$LABEL,$$SETIN)^DIALOGZ  (,IX)^DIC  MIX^DIC1  (,BR,E,NO)^DIE0  (B,E,M,N,QY)^DIE1  ^DIE2  ^DIE3  
^DIEQ  ($$OUTPUT,$$VALEXT,$$VALEXTS)^DIETLIBF  ^DIK  LOADFLD^DIKC1  $$KEYCHK^DIKK2  $$SET^DIQ  ^DIR  RW^DIR2  

Caller Graph

Caller Graph Total: 272

Package Total Caller Graph
Integrated Billing 98 IBXEX  IBXEXS  IBXPAR  IBXPAR1  IBXS1  IBXS11  IBXS12  IBXS2  
IBXS21  IBXS3  IBXS36  IBXS39  IBXS4  IBXS41  IBXS42  IBXS43  
IBXS44  IBXS5  IBXS51  IBXS52  IBXS53  IBXS54  IBXS6  IBXS63  
IBXS64  IBXS7  IBXS71  IBXS74  IBXS77  IBXS8  IBXS81  IBXS9  
IBXS91  IBXSA  IBXSA2  IBXSA21  IBXSA22  IBXSA25  IBXSA26  IBXSA27  
IBXSA28  IBXSAH  IBXSAH1  IBXSAH10  IBXSAH2  IBXSAH5  IBXSAH6  IBXSAH9  
IBXSC1  IBXSC11  IBXSC114  IBXSC117  IBXSC12  IBXSC121  IBXSC17  IBXSC3  
IBXSC31  IBXSC34  IBXSC35  IBXSC36  IBXSC39  IBXSC4  IBXSC41  IBXSC42  
IBXSC43  IBXSC44  IBXSC5  IBXSC51  IBXSC52  IBXSC53  IBXSC54  IBXSC6  
IBXSC61  IBXSC67  IBXSC68  IBXSC7  IBXSC71  IBXSC712  IBXSC74  IBXSC78  
IBXSC79  IBXSC8  IBXSC82  IBXSC821  IBXSC822  IBXSC823  IBXSC824  IBXSC829  
IBXSC8H  IBXSC8H1  IBXSC8H2  IBXSC8H3  IBXSC8H4  IBXSC8H5  IBXST  IBXST1  
IBXST5  IBXST6  
Registration 70 DGMTXC  DGMTXC2  DGMTXD  DGMTXE  DGMTXI  DGMTXM  DGMTXT  DGPMX1  
DGPMX2  DGPMX22  DGPMX3  DGPMX4  DGPMX5  DGPMX6  DGPMXA  DGPTX1  
DGPTX11  DGPTX12  DGPTX13  DGPTX4  DGPTX41  DGPTX5  DGPTX51  DGPTX52  
DGPTX7  DGPTX73  DGPTX74  DGPTX8  DGPTX81  DGPTXA  DGPTXC  DGPTXC1  
DGPTXM  DGRPTX  DGRPTX27  DGRPTX37  DGRPX7  DGRPX75  DGRPX76  DGRPX77  
DGRPXC  DGRPXI  DGRPXR  DGSATX  DGX4  DGX41  DGX43  DGX44  
DGX5  DGX51  DGX54  DGX55  DGX57  DGX58  DGX5F  DGX5F1  
DGX5F3  DGX5FD  DGX5FD1  DGX5FD3  DGX5FD6  DGX5FD8  DGX5FD9  DGX6  
DGX61  DGX63  DGX7  DGX73  DGX74  DGX75  
IFCAP 20 PRCHT2  PRCHT21  PRCST1  PRCST11  PRCST12  PRCST13  PRCST17  PRCST18  
PRCST19  PRCST2  PRCST21  PRCST22  PRCST25  PRCST26  PRCST27  PRCST4  
PRCST41  PRCST42  PRCST43  PRCST44  
Radiology Nuclear Medicine 17 RACTRG  RACTRG1  RACTRG2  RACTRG3  RACTRG4  RACTRG5  RACTRG6  RACTRG7  
RACTRG8  RACTVR  RACTVR1  RACTVR4  RACTVR5  RACTWR  RACTWR1  RACTWR2  
RACTWR4  
Quasar 10 ACKQTE  ACKQTE1  ACKQTE10  ACKQTE11  ACKQTE2  ACKQTE6  ACKQTE7  ACKQTE8  
ACKQTE9  ACKQTM  
VA FileMan 9 DICATT0  DICATT2  DICATT6  DIE  DIE0  DIE2  DIE3  DIE9  
DIEQ  
Scheduling 8 SDBT  SDBT1  SDBT2  SDBT3  SDBT4  SDM1T  SDM1T10  SDM1T5  
Incomplete Records Tracking 7 DGJXA  DGJXA1  DGJXA2  DGJXE  DGJXE1  DGJXE4  DGJXE5  
Accounts Receivable 6 PRCATA  PRCATA1  PRCATE  PRCATE1  PRCATE2  PRCATSE  
HINQ 6 DVBHCE  DVBHCE18  DVBHCE19  DVBHCE20  DVBHCE5  DVBHCE6  
Fee Basis 5 FBCTAU  FBCTAU1  FBCTAU2  FBCTV  FBCTV3  
Graphics 5 GRPX7  GRPX71  GRPX710  GRPX78  GRPX79  
Text Integration Utility 4 TIUEDS  TIUEDS5  TIUEPN  TIUEPN10  
Albany OIFO 3 A1CKC  A1CKC2  A1CKC3  
Event Capture 3 ECMXP  ECMXP1  ECMXPC  
Automated Medical Information Exchange 1 DVBAXA  

Entry Points

Name Comments DBIA/ICR reference
O
TR
W
DQ ;
A
B ;COME BACK HERE FROM DIE2
RE ;
N
RD
T
P
V
UNIQ
Z
X
PR
R
S
F
Y
Q
SET ;FROM COMPILED TEMPLATES,TOO
READSET(X,DU,DISCR) ;X=INCOMING VALUE, DU=SET OF CODES, DISCR=SCREENING LOGIC X IS KILLED IF BAD
AST ;G V:DV["'",AST^DIE9
RW
LOADXR ;Load all index file xrefs for a field
KEYCHK() ;If this is a key field, return 0 if not unique.
UNIQFERR ;The field is part of a key and is not unique
NKEY ;No value was assigned to this key field
NOSCR ;No screen
SCRNL(DICONT) ;Screen, No LAYGO allowed
SCRL(DICONT) ;Screen, LAYGO allowed
EXIT ;Cleanup and set flag to continue by executing the input transform
DIC(D) ;Make the appropriate ^DIC call based on D
PARSE(IT,FRST,LAST) ;Parse input transform
GETXRL(FIL,FLD,PFIL,LIST) ;Get list of indexes from DIE("PTRIX")

External References

Name Field # of Occurrence
$$EZBLD^DIALOG O+2, UNIQFERR+3, NKEY+1
$$LABEL^DIALOGZ O+2
$$SETIN^DIALOGZ SET+3
^DIC DIC+5
IX^DIC DIC+8
MIX^DIC1 DIC+7
^DIE0 RD
BR^DIE0 B+2
E^DIE0 S+2, F+2
NO^DIE0 RD
B^DIE1 X+1, UNIQFERR+5, NKEY+2
E^DIE1 B+2
M^DIE1 TF+3
N^DIE1 S+1, F+2
QY^DIE1 RE+1, S
^DIE2 RD
^DIE3 T
^DIEQ RD+1
$$OUTPUT^DIETLIBF PR+2
$$VALEXT^DIETLIBF T+2
$$VALEXTS^DIETLIBF T+2
^DIK SCRL+19
LOADFLD^DIKC1 LOADXR+8
$$KEYCHK^DIKK2 KEYCHK+6
$$SET^DIQ R+3
^DIR READSET+2
RW^DIR2 O+1, RW

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: W
  • Line Location: O+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: O+0
Function Call: WRITE
  • Prompt: !?9
  • Condition for execution: $X>48
  • Line Location: O+0
Function Call: WRITE
  • Prompt: !?9
  • Condition for execution: $L(X)+$X>78
  • Line Location: O+2
Function Call: WRITE
  • Prompt: X
  • Line Location: O+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: TR+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: TR+0
Function Call: WRITE
  • Prompt: !?DL+DL-2,$P(DQ(DQ),U,1)_": "
  • Line Location: W+2
Function Call: WRITE
  • Prompt: " "_X
  • Line Location: RD+2
Function Call: WRITE
  • Prompt: $C(7)_"??"
  • Line Location: UNIQFERR+2
Function Call: WRITE
  • Prompt: $C(7)_"?? ",$$EZBLD^DIALOG(3092.2)
  • Line Location: NKEY+1
Routine Call
  • DIALOG
  • Line Location:
    • O+2
    • UNIQFERR+3
    • NKEY+1
Routine Call
  • DIC
  • Line Location:
    • DIC+5
Routine Call
  • DIC
  • Line Location:
    • DIC+8
Routine Call
  • DIR
  • Line Location:
    • READSET+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( PR+1, RR+1, SET+3, SET+6, READSET+3
^DD("DD" R+2, Y
^DD("KEY" - [#.31] N
^DISV( RD+2, Z*

Label References

Name Line Occurrences
$$KEYCHK Z
@( AST+4, AST+5, AST+6, SCRNL+7, SCRL+5
A RE+1, NRD+1, ZPRS+1, F+2
AST P
B DQ+1, RD
DIC NOSCR+4, SCRNL+12, SCRL+14
EXIT SCRNL+5, SCRNL+9, SCRL+7
F PR
GETXRL NOSCR+2, SCRNL+4, SCRL+4
LOADXR Z
N PR
NKEY N
NOSCR P
O PRS
PARSE SCRNL+8, SCRL+6
PR RE+1, S+2
R RR+1
RD PRS+2, F+3
READSET SET+7
S PR+1, PR+2, RR+1
SCRL AST+3
SCRNL AST+2
SET T+3
TR RE+1
UNIQ T+1
UNIQFERR Z
V T+3, P+1, AST+4
W ORE+1
X NTT+3, PPRF+3, AST+5
Y PR
Z P+1, F+3, AST+6

Naked Globals

Name Field # of Occurrence
^( RD+2, RR+1
^("F" LOADXR+13*
^("N" UNIQFERR+4*
^(0 RR+1
^(12.1 SET+6
^(2 PR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% UNIQ!*, R+3*, READSET+1~, READSET+3*, READSET+4*, READSET+5
%( UNIQ!
%(0 UNIQ
CALL PARSE+1~, PARSE+2*, PARSE+3, PARSE+4
D SCRL+9!, SCRL+12, DIC~, DIC+1, DIC+4, DIC+6
DA UNIQ, KEYCHK+6, SCRL+18~, SCRL+19*
>> DB( RD+1, T+2, P, F*, SET+2, UNIQFERR+3
>> DC NS+1, F+2
DDER T+3!, SET+7*, READSET+1~, READSET+2
>> DDS XUNIQFERR+1, NKEY+1
>> DE( O+2, RE+1, PRPR+1, S+1, F+2, LOADXR+5, LOADXR+14, KEYCHK+4
DG RE+1!, PR+1*, PR+2, R*, R+1*, R+2, R+3, S!
DG( Z*
>> DH F*, F+1*, F+3
>> DIC P*, SCRL+17, SCRL+19
>> DIC("PTRIX" EXIT+1!, DIC+9!, GETXRL+1!, GETXRL+2*
>> DIC("S" Z!, SET+7, SCRL+9, SCRL+10
>> DIC(0 P*, DIC+1*, DIC+2*
DICALL SCRL+1~
>> DICATTZ S+1
DICONT AST+2, AST+3, AST+4!, AST+5!, AST+6!, SCRNL~, SCRNL+2!, SCRNL+14*, SCRL~, SCRL+2!
, SCRL+9*, SCRL+17*, SCRL+22*, EXIT+2*
>> DICRIENS LOADXR+4
>> DICRREC LOADXR+4, LOADXR+14
DICSS SCRL+1~, SCRL+10*, SCRL+17
>> DIE PUNIQLOADXR+10
>> DIE("PTRIX" GETXRL+1, GETXRL+2, GETXRL+4
>> DIE("W" W+1
DIEFXREF KEYCHK+3, UNIQFERR+4!
DIEKCHK KEYCHK+1~, KEYCHK+6*, KEYCHK+8
DIER V*!
>> DIETMP LOADXR+1, LOADXR+8, LOADXR+10, LOADXR+13, LOADXR+14, LOADXR+15, KEYCHK+2, KEYCHK+5, KEYCHK+7, UNIQFERR+4
DIFLD O+2, B+1*, NT+2, UNIQPR+1, PR+2, R+3, SET+3, SET+6
, READSET+3, LOADXR+4~*, LOADXR+8, LOADXR+13, LOADXR+14, LOADXR+15, KEYCHK+5, KEYCHK+6, KEYCHK+7, UNIQFERR+4
NOSCR+2, SCRNL+4, SCRL+4
DIFLD( B+1
DIFRST SCRNL+1~, SCRNL+8, SCRNL+9, SCRNL+11, SCRL+1~, SCRL+6, SCRL+7, SCRL+9
>> DIG LOADXR+4
>> DIH LOADXR+4
DIIENS LOADXR+4~*, LOADXR+10, LOADXR+13, LOADXR+14, LOADXR+15, KEYCHK+5, KEYCHK+6, KEYCHK+7, UNIQFERR+4
>> DIK SCRL+19*
DILANG SET+1~, SET+3*, SET+4, SET+5!, READSET+3
DILAST SCRNL+1~, SCRNL+8, SCRNL+13, SCRL+1~, SCRL+6, SCRL+21
>> DIP RE+1*, RD+2, Z
DIPA T+2!, PR+2!
DIQUIET SET+2~*, READSET+2, READSET+5
DIR READSET+1~
DIR("S" READSET+2*
DIR("V" READSET+2*
DIR(0 READSET+2*
DISCR READSET~, READSET+2
>> DIU LOADXR+4
DIXRL NOSCR+1~, NOSCR+2, NOSCR+3*, NOSCR+4, SCRNL+1~, SCRNL+4, SCRNL+5, SCRNL+12, SCRL+1~, SCRL+4
, SCRL+9, SCRL+12*, SCRL+13*, SCRL+14
>> DL W+2
DLAYGO P*, Z!
>> DNM AST+4, AST+5, AST+6, SCRNL+7, SCRL+5
DP O+2, NT+2, PR+1, PR+2, R+3, SET+3, SET+6, READSET+3, LOADXR+4~*
LOADXR+8, LOADXR+10, LOADXR+13, LOADXR+14, LOADXR+15, KEYCHK+5, KEYCHK+6, KEYCHK+7, UNIQFERR+4, NOSCR+2
, SCRNL+4, SCRL+4
DP(0 N
DQ O+2, TRWW+2, DQ+1*, A*, B+1, B+2, RE+1!, RD+1
T+2, PP+2, VUNIQZPRPR+1, S!, S+1
S+2, FF+2, SET+2, LOADXR+5, LOADXR+14, KEYCHK+4, UNIQFERR+3, SCRNL+8, SCRL+6
DQ( TRWW+2, A!, B+2, RE+1, P+2, VUNIQZ
S+1, S+2, F*, F+2, SCRNL+8, SCRL+6
DQ(0 B+2
DTIME TRDQ+1*
>> DTOUT TR*, RE+1, S
DU RE+1*, PPR+1, SET+4*, SET+7, READSET~, READSET+2, SCRL+18~
DUZ RD+2, Z
DUZ("LANG" R+3, SET+3
DUZ(0 TRWRE+1
DV O+1, O+2, RE+1*, NRDRD+2, TT+1, T+3, P
P+1, ZPRPR+1, S+1, F+2, F+3, YAST+1, NOSCR+2
NOSCR+3, SCRNL+4, SCRL+4, SCRL+18~
FIL GETXRL~, GETXRL+4
FLD GETXRL~, GETXRL+4
FLIST LOADXR+2~, LOADXR+8, LOADXR+9
FRST PARSE~, PARSE+3!, PARSE+4*, PARSE+5*, PARSE+6
I PARSE+1~, PARSE+5, PARSE+6*
IT PARSE~, PARSE+2, PARSE+4
LAST PARSE~, PARSE+3!, PARSE+4*
LIST GETXRL~, GETXRL+1!, GETXRL+4*, GETXRL+5!
OLD LOADXR+2~, LOADXR+4*, LOADXR+5*, LOADXR+13
PFIL GETXRL~, GETXRL+4
RLIST LOADXR+2~, LOADXR+8, LOADXR+9, LOADXR+10
U TRWW+2, RE+1, NRDPP+2, VUNIQ
ZPRRR+1, S+1, F+2, READSET+2, READSET+3, NOSCR+3, SCRNL+8
, SCRL+6, SCRL+13, SCRL+17, DIC+1, DIC+4, DIC+6
X O+2!*, TR*, NRDRD+1, RD+2*, T, P*, P+1!, P+2*
, UNIQ!, Z, PR*, PR+1*, R*, R+1*, R+3, S+1*, S+2, F*
F+1*, F+2, F+3, YSET+7, READSET~, READSET+2!, READSET+4*, KEYCHK+5, SCRNL+12*
, SCRNL+14, SCRL+15*, SCRL+22
X("FIELD" O+2*
X("FILE" O+2*
Y OO+1, O+2, P, PR*, PR+1*, R*, R+1*, R+3*, F
, Y*, READSET+1~, READSET+3*, READSET+4, SCRNL+12, SCRNL+13, SCRL+15, SCRL+17*, SCRL+19, SCRL+21
Y(0 READSET+4
YS V!
>> ZTQUEUED XUNIQFERR+1, NKEY+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All