Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ACD4P1P

Package: Alcohol Chemical Dependency

Routine: ACD4P1P


Information

ACD4P1P ;IHS/ADC/EDE/KML - POST-INIT CONVERSIONS FOR V4.1;

Source Information

Source file <ACD4P1P.m>

Call Graph

Call Graph Total: 5

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

Marked Items

Name Field # of Occurrence
$T( START+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All