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: DICATT1

Package: VA FileMan

Routine: DICATT1


Information

DICATT1 ;SFISC/GFT - XAK-NODE AND PIECE, SUBFILE ;8APR2016

Source Information

Source file <DICATT1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 5 (CHECK,N)^DICATT  (,NO,TYPE)^DICATT2  YN^DICN  IX1^DIK  DICATT1^DIQQQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
VA FileMan 10 DICATT  DICATT0  DICATT2  DICATT4  DICATT5  DICATT6  DICATTDE  DICATTDM  
DICATTUD  DIQQQ  

Entry Points

Name Comments DBIA/ICR reference
M
E ;FROM DICATT2 WHEN <SPACEBAR> DUPLICATES A FIELD
SUB ;Ask which SUBSCRIPT -- FROM ABOVE, AND FROM 9+1^DICATT ('MUMPS') TYPE, DIZ contains pieces 2 & 3 of ^DD zero node, use $P(DIZ,U) ;p20
SB
PIECE
PC
BACK
PQ
USED
U
MAX
MX
W
V
DE
2
TOO
ESTORE(DIZ) ;also called from DICATTDM for screen mode

External References

Name Field # of Occurrence
CHECK^DICATT PC+3, BACK
N^DICATT DE
^DICATT2 DICATT1+9, 2
NO^DICATT2 DICATT1+10
TYPE^DICATT2 BACK
YN^DICN M
IX1^DIK DE
DICATT1^DIQQQ SUB+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"WILL "_F_" FIELD BE MULTIPLE"
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !,"FOR A GIVEN ENTRY, WILL THERE BE MORE THAN 1 "_F,!," ON FILE AT ONCE?"
  • Line Location: M+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SUB+4
Function Call: WRITE
  • Prompt: !?5,$C(7),"Control Characters are not allowed."
  • Line Location: SUB+5
Function Call: WRITE
  • Prompt: !?5,$C(7),"Negative subscripts are not allowed."
  • Line Location: SUB+6
Function Call: READ
  • Variable: P
  • Timeout: DTIME
  • Line Location: PC+3
Function Call: WRITE
  • Prompt: $C(7),!,"CAN'T BE <",L
  • Line Location: PC+4
Function Call: WRITE
  • Prompt: $C(7),"??"
  • Line Location: PC+6
Function Call: WRITE
  • Prompt: " TYPE A NUMBER FROM 1 TO 99"
  • Line Location: PQ+0
Function Call: WRITE
  • Prompt: !?9,"OR AN $EXTRACT RANGE (E.G., ""E2,4"")"
  • Line Location: PQ+1
Function Call: WRITE
  • Prompt: !?15,"CURRENTLY ASSIGNED:",!
  • Line Location: PQ+2
Function Call: WRITE
  • Prompt: ?11,$S(Y:"PIECE ",1:"")_Y,?22,"FIELD #"_P_", '"_$P(^(0),U,1)_"'",!
  • Line Location: PQ+2
Function Call: WRITE
  • Prompt: !,$C(7),X_" ALREADY USED FOR "_$P(^DD(A,$O(^(X,0)),0),U,1)
  • Line Location: U+0
Function Call: WRITE
  • Prompt: $C(7),!?9,"CAN'T STORE A "_$S($P(DIZ,U)["K":"MUMPS",1:"MULTIPLE")_" FIELD IN AN ALREADY-USED SUBSCRIPT!"
  • Line Location: V+0
Function Call: WRITE
  • Prompt: $C(7),!," TOO MUCH TO STORE AT THAT SUBSCRIPT!"
  • Line Location: TOO+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( SUB+1, SUB+2, SB, PC, PC+2, PC+4, PQ+2, U, MAX, MX+1
, V, DE*
^DD("STRING_LIMIT" DICATT1+9, SUB+8

Label References

Name Line Occurrences
$$ESTORE SUB+2, SB, PC+1
2 DICATT1+8
BACK M, SUB+7
DE USED
M DICATT1+9, M+1
MAX DICATT1+9, SUB+2, SUB+8
MX DICATT1+9, E+1, MAX
PC PC
PIECE PC+4, PC+5, PQ+3
PQ PC+4
SB SUB+3
SUB M, SUB+5, SUB+6, SUB+7, SUB+8, SB, PC+6, U, V
TOO DICATT1+10, SUB+8
U SB
USED PC+4, PC+5
V SB
W MX+1, MX+2

Naked Globals

Name Field # of Occurrence
^( PQ+2, USED, U, MAX
^("" SUB+2, SB
^("DT" DE*
^(0 PQ+2, MX+2, MX+3
^(3 E+1, DE*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % M*
>> A SUB+1, SUB+2, SB, PC, PC+2, PC+4, PQ+2, U, MAX, MX+1
, V, DE
>> DA DICATT1+8, DICATT1+9, DE
>> DA(1 DE*
DE M!, E+1, DE
DE(3 E+1*, DE
DG DICATT1+9*, M!
>> DIK DE*
DIZ SUB+1, SUB+2, SB, PC+1, V, V+1, ESTORE~, ESTORE+1
>> DP DICATT1+9*, E+1*, MAX*, MX+1
DT DE
DTIME SUB+4, PC+3
>> DTOUT SUB+4*, PC+3*, BACK
DUZ(0 SUB+3, PC+3
>> E E+1
>> F M, M+1, DE
>> L DICATT1+9*, E+1*, PC+1, PC+4, MAX
>> M 2*
>> N DICATT1+9*, E+1*, PC+4*, MAX*, MAX+1*, MX, MX+1
>> O DICATT1+9
>> P PIECE*, PC*, PC+3*, PC+4, PC+5, PQ+2*, USED, MX+1*, MX+2*
>> Q SUB+7
>> S SUB+7, USED, V+1
>> T DICATT1+9*, E+1*, SUB+1*, SUB+2, SUB+8, MAX*, MX*, W*
U DICATT1+9, E+1, SUB+1, SUB+2, SUB+4, SUB+7, SB, PC+1, PC+6, PQ+2
, U, MX+1, MX+2, V, V+1, DE, 2
>> V M*, E+1*, SUB+1*, SUB+2, SB, PIECE*, PC*, PC+1, 2*
>> W DICATT1+8*, DICATT1+9*, SB*, PC, PC+2, PC+4, PC+6*, PQ+2, USED*, MX+1*
, MX+2*, MX+3*, W, V, V+1*, DE, 2*
>> X SUB+4*, SUB+5, SUB+6, SUB+7, SUB+8, SB*, PC*, PC+3*, PC+6, USED*
, U, MX+2*
>> Y DICATT1+9*, SUB+1*, SUB+2*, SUB+4, SUB+8*, SB, PIECE*, PC*, PC+1*, PC+2*
, PC+3, PC+5, PQ+1, PQ+2*, MAX
>> Z V+1, 2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All