Routine: DICOMPW

Information

DICOMPW ;SFISC/GFT-EVALUATE COMPUTED FLD EXPR 1/7/2004;8FEB2012

Package	Total	Call Graph
VA Fileman	8	^DIAC ^DIC YN^DICN EN^DICOMP DRW^DICOMPX DIMP^DICOMPZ ^DIM DICOMPW^DIQQQ

Package	Total	Caller Graph
VA Fileman	11	DIA3 DICOMP DICOMP0 DICOMP1 DICOMPV DIETED DIFGA DIP0 DIP22 DIPTED DIS2
IHS Generic Interface System	1	INHDIA3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"WILL TERMINAL USER BE ALLOWED TO SELECT PROPER ENTRY IN '"_$O(^DD(Y,0,"NM",0))_"' FILE" Line Location: ASKE+1
Function Call: WRITE	Prompt: !,"DO YOU WANT TO PERMIT ADDING A NEW '"_$O(^DD(Y,0,"NM",0))_"' ENTRY" Line Location: ASK1+0
Function Call: WRITE	Prompt: ! Line Location: ASK1+1
Function Call: WRITE	Prompt: "WELL THEN, DO YOU WANT TO FORCE ADDING A NEW ENTRY EVERY TIME" Line Location: ASK1+2
Function Call: WRITE	Prompt: !,"DO YOU WANT AN 'ADDING A NEW "_$O(^DD(Y,0,"NM",0))_"' MESSAGE" Line Location: ASK1+5
Function Call: WRITE	Prompt: !,$C(7),"SORRY, CAN'T EDIT A RESTRICTED"_$S($P($G(^("DI")),U)["Y":" (ARCHIVE)",1:"")_" FILE!" Line Location: ARC+2
Routine Call	DIC Line Location: COLON+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(	M+3, ASKE+1, ASK1, ASK1+5, ARC+2
^DIC - [#1]	COLON+2, JUMP

Name	Field # of Occurrence
^("DI"	ARC+2

Name	Field # of Occurrence
%	COLON+6, M+4, M+5, M+6, ASKE+1, ASKE+2, ASK+2, ASK1+1, ASK1+2, ASK1+3* , ASK1+4, ASK1+5, ASK1+6, DPS+1, DPS+2~, DPS+5*, DPS+6
>> %Y	M+4*, M+5
>> D	COLON+2, JUMP, IJ, M+1, M+3, M+5, ASKE+1, ASKE+2, ASK1+1, ASK1+2* , ASK1+3, ASK1+4, ASK1+5, NO
>> DATE(	DPS+4, DPS+5, DPS+6
>> DBOOL	DPS+1*
DIAC	ASK+2*!
DIC	COLON+1!
DIC("S"	COLON+1*, JUMP!
DIC(0	COLON+1*
>> DICO(2	ASK1+4*
>> DICO(3	M+3, ASK1+6*
DICOMP	COLON, COLON+2, COLON+4, JUMP, Q!, M+1, ASKE+1, ASK+1, ASK1+1, ASK1+3 , ARC+1
DICOMPW	COLON~, COLON+2, COLON+6, JUMP, IJ, Q!
DICOMPX	COLON+3*, Q!
DICOMPX(0	COLON+3*, M+4
DICR	COLON+1~
>> DIFG	JUMP*, Q
>> DIFG("DICOMP"	Q*
DIFILE	ASK+2*!
DIY	COLON+1~
>> DLV	M+1, M+3, M+4
>> DLV0	M+3
DO	COLON+1~
DP	COLON!, COLON+1, COLON+2, COLON+6*, JUMP, IJ
>> DPS	DPS+1, DPS+3, DPS+4, DPS+5, DPS+6, DPS+7, DPS+8*
>> DPS(	DPS+1, DPS+4, DPS+5, DPS+6, DPS+7, DPS+8!
>> DS	M+1, M+2, ASKE+1, ASK1+4
DUZ(0	ASK+1
>> DZ	M+1, M+2, M+3, M+4, M+5*, M+6, ASK1+2
>> I	M+8*
>> I(	COLON+6, IJ*
>> J(	COLON+6, IJ*, M+1, M+3
>> K	DPS+4, DPS+5*, DPS+6, DPS+7
>> K(	DPS+5, DPS+7
>> M	M+7, M+8
U	COLON+1, COLON+2, COLON+6, IJ, M+3, M+4, DPS+5, ARC+2
>> W	M+7
>> W(	DPS+3*
X	COLON+1, COLON+2, COLON+3, COLON+5, COLON+6!, JUMP!, IJ, Q, M+1!, M+4* , M+5, M+6, DPS+1, DPS+2~, DPS+3, DPS+5*
Y	COLON!, COLON+1, COLON+2, COLON+3, COLON+6, JUMP, IJ, M+1, ASKE+1, ASK+2 , ASK1, ASK1+5, ARC+2*
Y(0	COLON+1, COLON+2, ARC+2