Routine: DICATT1

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

Package

Total

Call Graph

(CHECK,N)^DICATT (,NO,TYPE)^DICATT2 YN^DICN IX1^DIK DICATT1^DIQQQ

Package	Total	Caller Graph
VA Fileman	9	DICATT DICATT0 DICATT2 DICATT4 DICATT5 DICATT6 DICATTDE DICATTDM DIQQQ

Package

Total

Caller Graph

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	Timeout: DTIME Variable: X Line Location: SUB+3
Function Call: WRITE	Prompt: !?5,$C(7),"Control Characters are not allowed." Line Location: SUB+4
Function Call: READ	Timeout: DTIME Variable: P 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

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

Name	Field # of Occurrence
>> %	M*
>> A	SUB, SUB+1, SB, PC, PQ+2, U, MAX, MX+1, V, DE
>> DA	DICATT1+3, DICATT1+4, DE
>> DA(1	DE*
DE	M!, E+1, DE
DE(3	E+1*, DE
DG	DICATT1+4*, M!
>> DIK	DE*
>> DIZ	SUB, V, V+1
>> DP	DICATT1+4, E+1, MAX*, MX+1
DT	DE
DTIME	SUB+3, PC+3
>> DTOUT	SUB+3, PC+3, BACK
DUZ(0	SUB+2, PC+3
>> E	E+1
>> F	M, M+1, DE
>> L	DICATT1+4, E+1, PC+1, PC+4, MAX
>> M	2*
>> N	DICATT1+4, E+1, PC+4, MAX, MAX+1*, MX, MX+1
>> O	DICATT1+4
>> P	PIECE, PC, PC+1, PC+3, PC+4, PC+5, PQ+2, USED, MX+1, MX+2
>> Q	SUB+5
>> S	SUB+5, USED, V+1
>> T	DICATT1+4, E+1, SUB, SUB+1, SUB+6, MAX, MX, W
U	DICATT1+4, E+1, SUB+3, SUB+5, PC+6, PQ+2, U, MX+1, MX+2, V , V+1, DE, 2
>> V	M, E+1, SUB, SUB+1, SB, 2
>> W	DICATT1+3, DICATT1+4, SB, PC, PC+6, PQ+2, USED, MX+1, MX+2, MX+3 , W, V, V+1, DE, 2
>> X	SUB+3, SUB+4, SUB+5, SUB+6, SB, PC, PC+1, PC+6, USED, U , MX+2
>> Y	DICATT1+4, SUB, SUB+1, SUB+3, SUB+6, SB, PIECE, PC, PC+1, PC+2 , PC+3, PQ+1, PQ+2*, MAX
>> Z	V+1, 2

Information