Routine: ACD4P1PB

Package	Total	Call Graph
VA Fileman	2	FILE^DICN ^DIE
Kernel	1	$$LGR^%ZOSV

Package	Total	Caller Graph
Alcohol Chemical Dependency	1	ACD4P1P

Entry Points

Name	Comments	DBIA/ICR reference
CONVERR	; ERROR DESCRIPTIONS
CHG72	; CHANGE FILE 9002172
CHG70P7	; CHANGE FILE 9002170.7
CHG73P5	; CHANGE FILE 9002173.5
REPFLD	; REPOINT FIELD
KILL	; ----- KILL D0, D1, ETC.
CONVERT()	; CONVERT FILE 6 POINTER TO FILE 200 POINTER
CHGACDF	; CHANGE CDMIS FIELDS
CHG72P7	; CHANGE FILE 9002172.7
CHG72P1	; CHANGE FILE 9002172.1
D0DA	; ----- Set DA array from D0 (etc).
CONVERT2	;

External References

Name	Field # of Occurrence
$$LGR^%ZOSV	CONVERT+2
FILE^DICN	CHGACDF+13
^DIE	REPFLD+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"File 6 to file 200 conversion already done.",! Line Location: CHGACDF+2
Function Call: WRITE	Prompt: !,"I am now going to repoint your CDMIS provider pointers to point",!," to the NEW PERSON file. Please wait.",! Line Location: CHGACDF+4
Function Call: WRITE	Prompt: !!,"Adding of CONVERSIION FLAG failed. Notify programmer.",!! Line Location: CHGACDF+15
Function Call: WRITE	Prompt: !,"Changing file 9002170.7",! Line Location: CHG70P7+1
Function Call: WRITE	Prompt: !,"Changing file 9002172",! Line Location: CHG72+1
Function Call: WRITE	Prompt: !,"Changing file 9002172.1",! Line Location: CHG72P1+1
Function Call: WRITE	Prompt: !,"Changing file 9002172.7",! Line Location: CHG72P7+1
Function Call: WRITE	Prompt: !,"Changing file 9002173.5",! Line Location: CHG73P5+1
Function Call: WRITE	Prompt: !,"Sorry, someone else is editing this record. Try later." Line Location: REPFLD+5
Function Call: WRITE	Prompt: ACDZR,!," "_$P($T(CONVERR+E),";;",2),!," "_M,! Line Location: CONVERT+5
Routine Call	DIE Line Location: REPFLD+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACDCNV - [#9002171.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACDCNV("B"	CHGACDF+1
^ACDCS - [#9002172]	CHG72+4, CHG72+6, CHG72+7
^ACDCSCS - [#9002172.7]	CHG72P7+4, CHG72P7+6, CHG72P7+8, CHG72P7+9
^ACDINTV - [#9002173.5]	CHG73P5+4, CHG73P5+6, CHG73P5+7
^ACDPD - [#9002170.7]	CHG70P7+4, CHG70P7+5, CHG70P7+8, CHG70P7+10, CHG70P7+11
^ACDVIS - [#9002172.1]	CHG72P1+4, CHG72P1+5
^DIC(16 - [#16]	CONVERT2+4, CONVERT2+5, CONVERT2+6
^DIC(6 - [#6]	CONVERT2+3
^VA(200 - [#200]	CONVERT2+9

Label References

Name	Line Occurrences
$$CONVERT	CHG70P7+6, CHG70P7+12, CHG72+8, CHG72P1+6, CHG72P7+10, CHG73P5+8
CHG70P7	CHGACDF+5
CHG72	CHGACDF+6
CHG72P1	CHGACDF+7
CHG72P7	CHGACDF+8
CHG73P5	CHGACDF+9
CONVERT2	CONVERT+3
D0DA	REPFLD+2
KILL	CHG70P7+2, CHG72+2, CHG72P1+2, CHG72P7+2, CHG73P5+2
REPFLD	CHG70P7+6, CHG70P7+12, CHG72+8, CHG72P1+6, CHG72P7+10, CHG73P5+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACDIEN	CHG70P7+6, CHG70P7+12, CHG72+8, CHG72P1+6, CHG72P7+10, CHG73P5+8, REPFLD+4, REPFLD+9!
>> ACDQ	CHGACDF+1*
ACDZR	CONVERT+1~, CONVERT+2*, CONVERT+5
D	CHGACDF+14!, REPFLD+8!
D0	CHGACDF+14!, CHG70P7+3, CHG70P7+4, CHG70P7+5, CHG70P7+6, CHG70P7+8, CHG70P7+10, CHG70P7+11, CHG70P7+12, CHG72+3* , CHG72+4, CHG72+6, CHG72+7, CHG72+8, CHG72P1+3, CHG72P1+4, CHG72P1+5, CHG72P1+6, CHG72P7+3, CHG72P7+4* , CHG72P7+6, CHG72P7+8, CHG72P7+9, CHG72P7+10, CHG73P5+3, CHG73P5+4, CHG73P5+6, CHG73P5+7, CHG73P5+8, REPFLD+3~ , REPFLD+8!, D0DA+2
D1	CHGACDF+14!, CHG70P7+7, CHG70P7+8, CHG70P7+10, CHG70P7+11, CHG70P7+12, CHG72+5, CHG72+6, CHG72+7, CHG72+8 , CHG72P7+5, CHG72P7+6, CHG72P7+8, CHG72P7+9, CHG72P7+10, CHG73P5+5, CHG73P5+6, CHG73P5+7, CHG73P5+8, REPFLD+3~ , REPFLD+8!
D2	CHG70P7+9, CHG70P7+10, CHG70P7+11, CHG70P7+12, CHG72P7+7, CHG72P7+8, CHG72P7+9, CHG72P7+10, REPFLD+3~
DA	CHGACDF+14!, REPFLD+1~, REPFLD+4, REPFLD+8!, D0DA+2, D0DA+4*
DA(	D0DA+3*
DD	CHGACDF+12!
DI	CHGACDF+14!, REPFLD+8!
DIADD	CHGACDF+14!, REPFLD+8!
DIC	CHGACDF+11*, CHGACDF+14!, REPFLD+8!
DIC(0	CHGACDF+11*
DICR	CHGACDF+14!, REPFLD+8!
DIE	CHGACDF+14!, REPFLD+4*, REPFLD+8!
DINUM	CHGACDF+14!, REPFLD+8!
DLAYGO	CHGACDF+14!, REPFLD+8!
DO	CHGACDF+12!
DQ	CHGACDF+14!, REPFLD+8!
DR	CHGACDF+14!, REPFLD+4*, REPFLD+8!
E	CONVERT+1~, CONVERT+4, CONVERT2+1, CONVERT2+3, CONVERT2+4, CONVERT2+5, CONVERT2+7, CONVERT2+9
>> F	CHG70P7+6, CHG70P7+12, CHG72+8, CHG72P1+6, CHG72P7+10, CHG73P5+8, REPFLD+4
>> G	CHG70P7+6, CHG70P7+12, CHG72+8, CHG72P1+6, CHG72P7+10, CHG73P5+8, REPFLD+4
I	D0DA+1, D0DA+3, D0DA+4, KILL+1~, KILL+2*
>> J	D0DA+1, D0DA+2, D0DA+3
M	CONVERT+1~, CONVERT+5, CONVERT2+2, CONVERT2+8
U	CHG70P7+5, CHG70P7+11, CHG72+7, CHG72P1+5, CHG72P7+9, CHG73P5+7
X	CHGACDF+11, CHG70P7+6, CHG70P7+12, CHG72+8, CHG72P1+6, CHG72P7+10, CHG73P5+8, REPFLD+4, CONVERT+1~, CONVERT+4 , CONVERT+7, CONVERT2+6*, CONVERT2+7, CONVERT2+8, CONVERT2+9
>> Y	CHGACDF+15, CHG70P7+5, CHG70P7+6, CHG70P7+11, CHG70P7+12, CHG72+7, CHG72+8, CHG72P1+5, CHG72P1+6, CHG72P7+9* , CHG72P7+10, CHG73P5+7*, CHG73P5+8, CONVERT2+2, CONVERT2+3, CONVERT2+4, CONVERT2+5, CONVERT2+6

Marked Items

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACD4P1PB

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items