Routine: ACD4P1P

Package	Total	Call Graph
Alcohol Chemical Dependency	4	^ACD4P1PB (DIC,DIE,DIK)^ACDFMC ^ACDL ^ACDONIT
VA Fileman	1	^DIK

Entry Points

Name	Comments	DBIA/ICR reference
REPOINT	; REPOINT DATA FILES
FILE200	; CONVERT FILE 6 POINTERS TO FILE 200 POINTERS
TOBACCO	; DELETE TOBACCO FROM DRUGS USED AND SET NEW FIELD
SERVICE	; DELETE CDMIS SERVICE TP AND TPR
PGMFIX	; DELETE PROGRAM DATA
EOJ	;
VXREFS	; KILL CDMIS VISIT XREFS
PROBSDEL	; DELETE ENTRIES FROM FILE
REPOINT2	; REPOINT SPECIFIC FILE
START	;
COMPONEN	; DELETE CDMIS COMPONENETS LARGE, SMALL, & SPECL DROP IN
LOCATION	; DELETE CDMIS LOCATION SCHOOL-*
TOBACCO2	; FIX ONE FILE
REPF	; REPOINT FIELD
GBLKILL	; KILL GBLS TO BE RESTORED, INFORM OPERATOR
PROBS	; DELETE SELECTED PROBLEMS FROM APPROPRIATE FILES
REPCS	; REPOINT CDMIS CLIENT SVCS

External References

Name	Field # of Occurrence
^ACD4P1PB	FILE200+1
DIC^ACDFMC	PGMFIX+7
DIE^ACDFMC	REPF+2, REPCS+2, TOBACCO2+19
DIK^ACDFMC	PGMFIX+5, SERVICE+3, SERVICE+5, LOCATION+4, LOCATION+7, LOCATION+10, LOCATION+13, COMPONEN+3, COMPONEN+5, COMPONEN+7
^ACDL	START+3
^ACDONIT	START+2
^DIK	TOBACCO+9, TOBACCO2+10, PROBS+10, PROBSDEL+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Beginning the post-init routine ",$T(+0) Line Location: START+1
Function Call: WRITE	Prompt: !!,"Installing Protocols..." Line Location: START+2
Function Call: WRITE	Prompt: !!,"Installing List templates..." Line Location: START+3
Function Call: WRITE	Prompt: !!,"Virgin install so post-init not necessary.",! Line Location: START+4
Function Call: WRITE	Prompt: !!,"Either DUZ is not set or you do not have programmer access. I don't",!,"know how you got here but I cannot run this post-int routine.",!! Line Location: START+5
Function Call: WRITE	Prompt: !!,"Now converting your CDMIS SERVICE file." Line Location: SERVICE+1
Function Call: WRITE	Prompt: "." Line Location: SERVICE+3
Function Call: WRITE	Prompt: "." Line Location: SERVICE+5
Function Call: WRITE	Prompt: !!,"Now converting your CDMIS LOCATION file." Line Location: LOCATION+1
Function Call: WRITE	Prompt: "." Line Location: LOCATION+4
Function Call: WRITE	Prompt: "." Line Location: LOCATION+7
Function Call: WRITE	Prompt: "." Line Location: LOCATION+10
Function Call: WRITE	Prompt: "." Line Location: LOCATION+13
Function Call: WRITE	Prompt: !!,"Now converting your CDMIS COMPONENT file." Line Location: COMPONEN+1
Function Call: WRITE	Prompt: "." Line Location: COMPONEN+3
Function Call: WRITE	Prompt: "." Line Location: COMPONEN+5
Function Call: WRITE	Prompt: "." Line Location: COMPONEN+7
Function Call: WRITE	Prompt: !!,"Now repointing files that point to the CDMIS COMPONENT file." Line Location: REPOINT+1
Function Call: WRITE	Prompt: !!,"Now repointing files that point to the CDMIS SERVICE file." Line Location: REPOINT+14
Function Call: WRITE	Prompt: "." Line Location: REPF+3
Function Call: WRITE	Prompt: "." Line Location: REPCS+3
Function Call: WRITE	Prompt: !!,"Now converting tobacco use to new field." Line Location: TOBACCO+1
Function Call: WRITE	Prompt: !!,"Cannot locate TOBACCO entries in CDMIS DRUG file. No conversion necessary.",! Line Location: TOBACCO+4
Function Call: WRITE	Prompt: "." Line Location: TOBACCO2+20
Function Call: WRITE	Prompt: !!,"Now converting CDMIS PROBLEM file." Line Location: PROBS+1
Function Call: WRITE	Prompt: !!,"Cannot find PREVIOUS TREATMENT in CDMIS PROBLEM file. No conversion necessary.",! Line Location: PROBS+3
Function Call: WRITE	Prompt: !!,"Selected file globals will now be killed. You must now",! Line Location: GBLKILL+1
Function Call: WRITE	Prompt: "restore the globals from acd_0410.g",!! Line Location: GBLKILL+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACDCOMP - [#9002170.1]	Classic Fileman Calls
^ACDPROB - [#9002170.3]	Classic Fileman Calls
^ACDDRUG - [#9002170.5]	Classic Fileman Calls
^ACDLOT - [#9002170.8]	Classic Fileman Calls
^ACDCS - [#9002172]	Classic Fileman Calls
^ACDF5PI - [#9002173]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACDCOMP("B"	COMPONEN+2, COMPONEN+4, COMPONEN+6, COMPONEN+8
^ACDCS - [#9002172]	REPOINT+16
^ACDDRUG - [#9002170.5]	GBLKILL+3!
^ACDDRUG("B"	TOBACCO+2, TOBACCO+3
^ACDF5PI - [#9002173]	PGMFIX+2, PGMFIX+3, PGMFIX+9*
^ACDLOT - [#9002170.8]	GBLKILL+3!
^ACDLOT("C"	LOCATION+3, LOCATION+6, LOCATION+9, LOCATION+12, LOCATION+15
^ACDPROB - [#9002170.3]	GBLKILL+3!
^ACDPROB("C"	PROBS+2
^ACDSERV(	GBLKILL+3!
^ACDSERV("C"	SERVICE+2, SERVICE+4, SERVICE+6
^ACDVIS("E"	VXREFS+1!
^ACDVIS("F"	VXREFS+2!
^ACDVIS("G"	VXREFS+3!
^ACDVIS("H"	VXREFS+4!
^TMP("ACD"	START+4!

Label References

Name	Line Occurrences
COMPONEN	START+10
EOJ	START+16
FILE200	START+14
GBLKILL	START+15
LOCATION	START+9
PGMFIX	START+6
PROBS	START+13
PROBSDEL	PROBS+5, PROBS+7, PROBS+9
REPCS	REPOINT+16
REPF	REPOINT2+6
REPOINT	START+11
REPOINT2	REPOINT+3, REPOINT+5, REPOINT+7, REPOINT+9, REPOINT+11, REPOINT+13
SERVICE	START+8
TOBACCO	START+12
TOBACCO2	TOBACCO+6, TOBACCO+8
VXREFS	START+7

Naked Globals

Name	Field # of Occurrence
^(	REPOINT2+2, TOBACCO2+2, TOBACCO2+7, PROBSDEL+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACDCIEN	EOJ+1!
ACDCIEN("DROP	IN CENTER" , COMPONEN+8*, REPF+1
ACDCIEN("LARG	E DROP IN" , COMPONEN+2*, COMPONEN+3, REPOINT2+8
ACDCIEN("SMAL	L DROP IN" , COMPONEN+4*, COMPONEN+5, REPOINT2+9
ACDCIEN("SPEC	L DROP IN" , COMPONEN+6*, COMPONEN+7, REPOINT2+10
ACDFP	REPOINT+2, REPOINT+4, REPOINT+6, REPOINT+8, REPOINT+10, REPOINT+12, REPOINT2+4, EOJ+2!
ACDGBL	REPOINT+2, REPOINT+4, REPOINT+6, REPOINT+8, REPOINT+10, REPOINT+12, REPOINT2+2, REPF+1, TOBACCO+5, TOBACCO+7 , TOBACCO2+2, TOBACCO2+7, TOBACCO2+10, TOBACCO2+18, PROBS+4, PROBS+6, PROBS+8*, PROBSDEL+2, PROBSDEL+4, PROBSDEL+6 , EOJ+2!
ACDHIT	REPOINT+16, REPOINT+17, REPOINT+18, REPOINT+19, REPOINT+20, REPOINT+21, REPOINT2+6, REPOINT2+7, REPOINT2+8, REPOINT2+9 , REPOINT2+10*, EOJ+2!
ACDLIEN	EOJ+1!
ACDLIEN("1"	LOCATION+15*, REPCS+1
ACDLIEN("11"	LOCATION+3*, LOCATION+4, REPOINT+18
ACDLIEN("12"	LOCATION+6*, LOCATION+7, REPOINT+19
ACDLIEN("13"	LOCATION+9*, LOCATION+10, REPOINT+20
ACDLIEN("14"	LOCATION+12*, LOCATION+13, REPOINT+21
ACDMIEN	TOBACCO2+5, TOBACCO2+7, TOBACCO2+10, PROBSDEL+3, PROBSDEL+4, PROBSDEL+6, EOJ+2!
ACDN11	PGMFIX+3*, PGMFIX+8, PGMFIX+9, EOJ+2!
ACDNODE	PROBS+4, PROBS+6, PROBS+8*, PROBSDEL+4, PROBSDEL+6, EOJ+1!
ACDNODE0	REPOINT2+2, REPOINT2+3, REPOINT2+6, TOBACCO2+2, TOBACCO2+3, EOJ+2!
ACDPGM	PGMFIX+1, PGMFIX+2, PGMFIX+3, PGMFIX+4, PGMFIX+6, PGMFIX+9, EOJ+2!
ACDPIEN	PROBS+2*, PROBS+3, PROBS+10, PROBSDEL+5, EOJ+1!
ACDRIEN	REPOINT+15, REPOINT+16, REPOINT2+1, REPOINT2+2, REPF+1, REPCS+1, TOBACCO2+1, TOBACCO2+2, TOBACCO2+7, TOBACCO2+10 , TOBACCO2+18, PROBSDEL+1, PROBSDEL+2, PROBSDEL+4, PROBSDEL+6, EOJ+1!
ACDSIEN	EOJ+1!
ACDSIEN("OTH"	SERVICE+6*
ACDSIEN("TP"	SERVICE+2*, SERVICE+3
ACDSIEN("TPR"	SERVICE+4*, SERVICE+5
ACDTOB	TOBACCO2+4!, TOBACCO2+12, TOBACCO2+14, TOBACCO2+17, TOBACCO2+18
ACDTOB(	TOBACCO2+9*, TOBACCO2+16
ACDTOB(0	TOBACCO2+13
ACDTOB1	TOBACCO+2*, TOBACCO+4, TOBACCO+9, TOBACCO2+8, TOBACCO2+14, TOBACCO2+16, EOJ+2!
ACDTOB2	TOBACCO+3*, TOBACCO+4, TOBACCO+9, TOBACCO2+8, TOBACCO2+16, EOJ+2!
ACDY	REPOINT2+4*, EOJ+1!
>> DA	PGMFIX+4, SERVICE+3, SERVICE+5, LOCATION+4, LOCATION+7, LOCATION+10, LOCATION+13, COMPONEN+3, COMPONEN+5, COMPONEN+7 , REPF+1, REPCS+1, TOBACCO+9, TOBACCO2+10, TOBACCO2+18, PROBS+10, PROBSDEL+6*
>> DA(1	TOBACCO2+10, PROBSDEL+6
>> DIC	PGMFIX+6*
>> DIC(0	PGMFIX+6*
>> DIE	REPF+1, REPCS+1, TOBACCO2+18*
>> DIK	PGMFIX+4, SERVICE+3, SERVICE+5, LOCATION+4, LOCATION+7, LOCATION+10, LOCATION+13, COMPONEN+3, COMPONEN+5, COMPONEN+7 , TOBACCO+9, TOBACCO2+10, PROBS+10, PROBSDEL+6
>> DLAYGO	PGMFIX+6*
>> DR	REPF+1, REPCS+1, TOBACCO2+18*
DUZ	START+5
DUZ(0	START+5
F	REPOINT2+5*, REPOINT2+14!, REPF+1
P	REPOINT2+5*, REPOINT2+6, REPOINT2+14!
U	REPOINT+16, REPOINT2+6
>> X	PGMFIX+6, REPOINT+16, REPOINT+18, REPOINT+19, REPOINT+20, REPOINT+21, REPOINT2+4, REPOINT2+5, REPOINT2+6, REPOINT2+8 , REPOINT2+9, REPOINT2+10, TOBACCO2+7, TOBACCO2+8, TOBACCO2+9, TOBACCO2+15, TOBACCO2+16*, TOBACCO2+17
>> Y	TOBACCO+9, TOBACCO2+13, TOBACCO2+14, TOBACCO2+16, PROBSDEL+4, PROBSDEL+5

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACD4P1P

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items