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 ;05:43 PM 2 Jan 2002 [ 12/09/2003 4:14 PM ]

Source Information

Source file <DIED.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA Fileman 12 (,IX)^DIC  MIX^DIC1  (,BR,E)^DIE0  (B,E,M,N,QY)^DIE1  ^DIE2  ^DIE3  ^DIEQ  ^DIK  
LOADFLD^DIKC1  $$KEYCHK^DIKK2  ^DIR  RW^DIR2  

Caller Graph

Caller Graph Total: 275

Package Total Caller Graph
Registration 88 DGMTXC  DGMTXC2  DGMTXD  DGMTXD1  DGMTXE  DGMTXI  DGMTXI3  DGMTXM  
DGMTXN  DGPMX1  DGPMX13  DGPMX2  DGPMX23  DGPMX27  DGPMX28  DGPMX3  
DGPMX31  DGPMX32  DGPMX4  DGPMX43  DGPMX45  DGPMX5  DGPMX53  DGPMX6  
DGPMX65  DGPMX66  DGPMXA  DGPMXA1  DGPMXAS  DGPMXAS3  DGPTX1  DGPTX11  
DGPTX112  DGPTX113  DGPTX12  DGPTX13  DGPTX14  DGPTX18  DGPTX4  DGPTX41  
DGPTX44  DGPTX5  DGPTX51  DGPTX52  DGPTX53  DGPTX54  DGPTX7  DGPTX73  
DGPTX74  DGPTX77  DGPTX8  DGPTX81  DGPTXA  DGPTXC  DGPTXC1  DGPTXCA  
DGPTXM  DGPTXMS  DGRPTX  DGRPTX10  DGRPTX11  DGRPTX14  DGRPTX17  DGRPTX18  
DGRPTX24  DGRPTX25  DGRPTX27  DGRPTX34  DGRPTX39  DGRPTX41  DGRPTX5  DGRPX7  
DGRPX710  DGRPX711  DGRPX712  DGRPX73  DGRPXC  DGRPXI  DGRPXI3  DGRPXR  
DGX5F  DGX5F1  DGX5F4  DGX5F5  DGX5F6  DGXTS  DGXTS1  DGXTS2  
Radiology Nuclear Medicine 62 RACTEX  RACTEX1  RACTEX11  RACTEX12  RACTEX13  RACTEX14  RACTEX15  RACTEX16  
RACTEX17  RACTEX18  RACTEX2  RACTEX3  RACTEX4  RACTEX5  RACTEX6  RACTEX7  
RACTEX8  RACTOE  RACTOE1  RACTOE2  RACTOE3  RACTOE4  RACTOE5  RACTOE6  
RACTQE  RACTQE1  RACTQE2  RACTQE3  RACTRG  RACTRG1  RACTRG10  RACTRG11  
RACTRG12  RACTRG2  RACTRG5  RACTRG6  RACTRG7  RACTRG8  RACTRG9  RACTTK  
RACTTK1  RACTTK10  RACTTK11  RACTTK12  RACTTK13  RACTTK14  RACTTK15  RACTTK16  
RACTTK17  RACTTK2  RACTTK3  RACTTK4  RACTTK5  RACTTK6  RACTTK7  RACTTK8  
RACTTK9  RACTVR  RACTVR1  RACTWR  RACTWR1  RACTWR2  
Integrated Billing 38 IBXEX  IBXEXI  IBXEXS  IBXFI5  IBXFI51  IBXPAR  IBXPAR1  IBXSC1  
IBXSC11  IBXSC116  IBXSC12  IBXSC19  IBXSC2  IBXSC21  IBXSC22  IBXSC3  
IBXSC32  IBXSC4  IBXSC41  IBXSC42  IBXSC43  IBXSC5  IBXSC51  IBXSC52  
IBXSC53  IBXSC54  IBXSC6  IBXSC61  IBXSC62  IBXSC7  IBXSC71  IBXSC73  
IBXSC74  IBXSC8  IBXSC82  IBXSC8H  IBXST  IBXST1  
Scheduling 19 SDAMXLG  SDAMXOE  SDBT  SDBT1  SDBT10  SDBT2  SDBT3  SDBT4  
SDBT5  SDBT6  SDBT7  SDBT8  SDBT9  SDM1T  SDM1T11  SDXA  
SDXA1  SDXACSE  SDXACSE1  
Automated Information Collection System 11 IBDX96  IBDX97  IBDXI2  IBDXI21  IBDXI22  IBDXI23  IBDXI24  IBDXI5  
IBDXI51  IBDXI93  IBDXI931  
IHS Changes To ADT 9 ADGT04  ADGT041  ADGT044  ADGT06  ADGT061  ADGT062  ADGT063  ADGT16  
ADGT162  
VA Fileman 9 DICATT0  DICATT2  DICATT6  DIE  DIE0  DIE2  DIE3  DIE9  
DIEQ  
IHS Changes To Scheduling 7 ASDT01  ASDT012  ASDT015  ASDT016  ASDT017  ASDT018  ASDT019  
Incomplete Records Tracking 7 DGJXA  DGJXA1  DGJXA3  DGJXE  DGJXE1  DGJXE2  DGJXE3  
Text Integration Utility 7 TIUEDS  TIUEDS10  TIUEDS5  TIUEPN  TIUEPN12  TIUEPN17  TIUEPN7  
IHS Changes To Pharmacy 6 APSPT04  APSPT05  APSPT09  APSPT091  APSPT092  APSPT093  
Pharmacy Point of Sale 4 ABSPIN1  ABSPIN11  ABSPIN12  ABSPIN13  
Medicine 2 MCOPRG  MCOPRG1  
Nursing Service 2 NURAPA  NURAPA1  
Patient Care Component 2 APCDT60  APCDT601  
IHS Generic Interface System 1 INHUT5  
Local Area Programs 1 AZAXTT  

Entry Points

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

External References

Name Field # of Occurrence
^DIC DIC+5
IX^DIC DIC+8
MIX^DIC1 DIC+7
^DIE0 RD
BR^DIE0 B+1
E^DIE0 S+2, F+2
B^DIE1 X+1, UNIQFERR+5, NKEY+2
E^DIE1 B+1
M^DIE1 T, F+3
N^DIE1 S+1, F+2
QY^DIE1 RE+1, S
^DIE2 RD
^DIE3 T
^DIEQ RD
^DIK SCRL+19
LOADFLD^DIKC1 LOADXR+8
$$KEYCHK^DIKK2 KEYCHK+6
^DIR SET+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: " (No Editing)"
  • Line Location: O+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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+1
Function Call: WRITE
  • Prompt: $C(7)_"??"
  • Line Location: UNIQFERR+2
Function Call: WRITE
  • Prompt: $C(7)_"?? Required key field"
  • Line Location: NKEY+1
Routine Call
  • DIC
  • Line Location:
    • DIC+5
Routine Call
  • DIR
  • Line Location:
    • SET+2
Routine Call
  • DIC
  • Line Location:
    • DIC+8

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$KEYCHK Z
@( AST+4, AST+5, AST+6, SCRNL+7, SCRL+5
A RE+1, N, RD, Z, PR, S+1, F+2
AST P
B DQ+1
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 PR, S
P T
PARSE SCRNL+8, SCRL+6
PR RE+1, S+2
R R, R+1
RD PR, S+2, F+3
S PR+1, R, R+1
SCRL AST+3
SCRNL AST+2
TR RE+1
UNIQFERR Z
V T, P+1, AST+4
W O, RE+1
X N, SET+3, P, PR, F+3, AST+5
Y PR
Z P+1, F+3, AST+6

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % T, SET+2*, R+2*
CALL PARSE+1~, PARSE+2*, PARSE+3, PARSE+4
D SCRL+9!, SCRL+12, DIC~, DIC+1, DIC+4, DIC+6
DA KEYCHK+6, SCRL+18~, SCRL+19*
>> DB( RD, T, SET, SET+1, P, F*, UNIQFERR+3
>> DC N, S+1, F+2
DDER T, SET+2, SET+3!
>> DDS X, UNIQFERR+1, NKEY+1
>> DE( O+2, RE+1, PR, PR+1, S+1, F+2, LOADXR+5, LOADXR+14, KEYCHK+4
DG RE+1!, PR+1*, R*, R+1*, R+2, 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" T, Z!, 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 P, LOADXR+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 B*, N, T, PR+1, 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
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*
DILAST SCRNL+1~, SCRNL+8, SCRNL+13, SCRL+1~, SCRL+6, SCRL+21
>> DIP RE+1*, RD+1, Z
DIQUIET SET+1~*
DIR SET~
DIR("V" SET*
DIR(0 SET*
>> 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 N, T, PR+1, 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, TR, W, W+2, DQ+1*, A*, B, B+1, RE+1!, RD
, T, SET, SET+1, P, P+2, V, Z, PR, PR+1, S!
, S+1, S+2, F, F+2, LOADXR+5, LOADXR+14, KEYCHK+4, UNIQFERR+3, SCRNL+8, SCRL+6
DQ( TR, W, W+2, A!, B+1, RE+1, P+2, V, Z, S+1
, S+2, F*, F+2, SCRNL+8, SCRL+6
DQ(0 B+1
DTIME TR, DQ+1*
>> DTOUT TR*, RE+1, S
DU RE+1*, SET, P, PR+1, SCRL+18~
DUZ RD+1, Z
DUZ(0 TR, W, RE+1
DV O+1, O+2, RE+1*, N, RD+1, T, P, P+1, Z, PR
, PR+1, S+1, F+2, F+3, Y, AST+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 TR, W, W+2, RE+1, N, RD, SET, P, P+2, V
, Z, PR, R, R+1, S+1, F+2, NOSCR+3, SCRNL+8, SCRL+6, SCRL+13
, SCRL+17, DIC+1, DIC+4, DIC+6
X O+2*, TR*, N, RD, RD+1*, T, SET+2*, P*, P+1!, P+2*
, Z, PR*, PR+1*, R*, R+1*, R+2, S+1*, S+2, F*, F+1*
, F+2, F+3, Y, KEYCHK+5, SCRNL+12*, SCRNL+14, SCRL+15*, SCRL+22
>> Y O, O+1, O+2, SET+2, P, PR*, PR+1*, R*, R+1*, R+2*
, F, Y*, SCRNL+12, SCRNL+13, SCRL+15, SCRL+17*, SCRL+19, SCRL+21
>> Y(0 SET+2
YS V!
>> ZTQUEUED X, UNIQFERR+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