Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls