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 |  Local Variables |  All
Print Page as PDF
Routine: ACDDEM

Package: Alcohol Chemical Dependency

Routine: ACDDEM


Information

ACDDEM ;IHS/ADC/EDE/KML - DATA ENTRY EDIT MODE;

Source Information

Source file <ACDDEM.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Alcohol Chemical Dependency 6 SAVBILL^ACDDE  (GETTC,INIT)^ACDDE2  (DSPVSIT,HDR)^ACDDEU  (DIC,DIE,DIK)^ACDFMC  ^ACDKILL  ^ACDPCCL  
VA Fileman 2 DD^%DT  ^DIR  
IHS VA Utilities 1 PFTV^XBPFTV  

Entry Points

Name Comments DBIA/ICR reference
EDTTD ; EDIT TRANS/DISC/CLOSE
EDTOT ; EDIT CRISIS/BRIED INT
EDTCS ; EDIT CLIENT SERVICE
EDTFU ; EDIT FOLLOWUP
EDTTC ; EDIT FILES BASED ON TYPE CONTACT
EDIT ; EP - EDIT CDMIS FORMS
EDTIN ; EDIT INITIAL
EDTTDC ; EDIT CDMIS TRANS/DISC/CLOSE
EDTRE ; EDIT REOPEN
VISIT ; EDIT VISIT AND SUBORDINATE FILE ENTRIES
GETPAT ; GET PATIENT
EOJ ; END OF JOB
EDTIR ; EDIT INFO/REFERRAL
EDTIIF ; EDIT CDMIS INIT/INFO/FU
EDVISIT ; EDIT CDMIS VISIT RECORD
MAIN ; MAINLINE LOGIC
SLCTCS ; SELECT ONE CS ENTRY
LOOP ; LOOP WITHIN COMPONENT CODE/TYPE

External References

Name Field # of Occurrence
DD^%DT SLCTCS+8
SAVBILL^ACDDE VISIT+11
GETTC^ACDDE2 LOOP+8
INIT^ACDDE2 MAIN+1
DSPVSIT^ACDDEU VISIT+7
HDR^ACDDEU LOOP+6
DIC^ACDFMC GETPAT+3, VISIT+2
DIE^ACDFMC EDVISIT+3, EDTCS+8, EDTIIF+5, EDTTDC+5
DIK^ACDFMC EDTCS+6
^ACDKILL EOJ+1
^ACDPCCL VISIT+12
^DIR VISIT+8, EDTCS+3, SLCTCS+14, SLCTCS+23
PFTV^XBPFTV SLCTCS+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: VISIT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EDTTC+1
Function Call: WRITE
  • Prompt: !?5,I_") DAY "_$J(X,2)_ACDDDAY("DAY",X)
  • Line Location: SLCTCS+12
Function Call: WRITE
  • Prompt: ?40,J_") DAY "_$J(X,2)_ACDDDAY("DAY",X)
  • Line Location: SLCTCS+12
Function Call: WRITE
  • Prompt: !
  • Line Location: SLCTCS+13
Function Call: WRITE
  • Prompt: !,IORVON,"No CDMIS INIT/INFO/FU entry associated with this visit!",IORVOFF,!
  • Line Location: EDTIIF+2
Function Call: WRITE
  • Prompt: !,IORVON,"No CDMIS TRANS/DISC/CLOSE entry associated with this visit!",IORVOFF,!
  • Line Location: EDTTDC+2
Routine Call
  • DIR
  • Line Location:
    • VISIT+8
    • EDTCS+3
    • SLCTCS+14
    • SLCTCS+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^ACDIIF - [#9002170] Classic Fileman Calls
^ACDTDC - [#9002171] Classic Fileman Calls
^ACDCS - [#9002172] Classic Fileman Calls
^ACDVIS - [#9002172.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACDCS - [#9002172] SLCTCS+5, SLCTCS+20
^ACDCS("C" SLCTCS+5
^ACDIIF("C" EDTIIF+1
^ACDTDC("C" EDTTDC+1
^ACDVIS - [#9002172.1] SLCTCS+3
^DPT - [#2] GETPAT+6
^TMP("ACD" SLCTCS+2!, SLCTCS+5*, SLCTCS+20, SLCTCS+21!

Label References

Name Line Occurrences
@( EDTTC+2
EDTIIF EDTIN+1, EDTRE+1, EDTFU+1, EDTOT+1, EDTIR+1
EDTTC VISIT+10
EDTTDC EDTTD+1
EDVISIT VISIT+9
EOJ MAIN+2, MAIN+4
GETPAT LOOP+10
LOOP MAIN+3
MAIN EDIT+2
SLCTCS EDTCS+1
VISIT LOOP+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACDCEIEN EDTCS+2, EDTCS+5, EDTCS+6, EDTCS+7, SLCTCS+1*, SLCTCS+25*
>> ACDCONT LOOP+3*, LOOP+10, EDTTC+2
>> ACDCONTL LOOP+3*
>> ACDCSC SLCTCS+4*, SLCTCS+7*, SLCTCS+11, SLCTCS+14
>> ACDCSCUT SLCTCS+11*, SLCTCS+12
ACDCSDAY SLCTCS+16*, SLCTCS+20, SLCTCS+21!
ACDDDAY SLCTCS+2!, SLCTCS+17!
ACDDDAY( SLCTCS+7*, SLCTCS+12, SLCTCS+16
ACDDDAY("DAY" SLCTCS+5, SLCTCS+9*, SLCTCS+12
>> ACDDFN LOOP+5*, GETPAT+6*
>> ACDDFNP LOOP+5*, GETPAT+6*, VISIT+1, VISIT+5, VISIT+11, VISIT+12, EDVISIT+1, EDTCS+5, EDTIIF+3, EDTTDC+3
>> ACDFHCP VISIT+5, VISIT+11, EDVISIT+1, EDTCS+5, EDTIIF+3, EDTTDC+3
>> ACDFPCC VISIT+5, VISIT+12, EDVISIT+1, EDTCS+5, EDTIIF+3, EDTTDC+3
ACDLC SLCTCS+20*, SLCTCS+21!
>> ACDLPTYP LOOP+1*
>> ACDMODE EDIT+1*
>> ACDNODEF LOOP+7*
>> ACDPCCL( VISIT+5*, VISIT+11, VISIT+12, EDVISIT+1*, EDTCS+5*, EDTIIF+3*, EDTTDC+3*
>> ACDPROV LOOP+2*
>> ACDPROVN LOOP+2*
>> ACDQ MAIN+2, MAIN+3, LOOP+9, LOOP+11, LOOP+13*, GETPAT+1*, GETPAT+7*
ACDVDATE SLCTCS+3*, SLCTCS+7, SLCTCS+17!
>> ACDVDTE LOOP+4*
>> ACDVDTI LOOP+4*
>> ACDVIEN VISIT+4*, VISIT+5, VISIT+7, EDVISIT+1, EDVISIT+2, EDTCS+5, SLCTCS+3, SLCTCS+5, EDTIIF+1, EDTIIF+3
, EDTTDC+1, EDTTDC+3
ACDX SLCTCS+18!
ACDX( SLCTCS+20*, SLCTCS+25
>> AUPNLK("ALL" GETPAT+2*, GETPAT+4!
DA VISIT+8!, EDVISIT+2*, EDTCS+3!, EDTCS+6*, EDTCS+7*, SLCTCS+23!, EDTIIF+1*, EDTIIF+2, EDTIIF+3, EDTTDC+1*
, EDTTDC+2, EDTTDC+3
>> DIC GETPAT+3*, VISIT+1*
>> DIC("S" GETPAT+3*, VISIT+1*
>> DIC(0 GETPAT+3*, VISIT+1*
>> DIE EDVISIT+2*, EDTCS+7*, EDTIIF+4*, EDTTDC+4*
>> DIK EDTCS+6*
DIR VISIT+8!, EDTCS+3!, SLCTCS+14!, SLCTCS+23!
DIR("A" VISIT+8*, SLCTCS+14*, SLCTCS+22*
DIR("B" VISIT+8*, EDTCS+3*
DIR(0 VISIT+8*, EDTCS+3*, SLCTCS+14*, SLCTCS+19*, SLCTCS+20*
>> DIRUT EDTCS+4, SLCTCS+15, SLCTCS+24
>> DR EDVISIT+2*, EDTCS+7*, EDTIIF+4*, EDTTDC+4*
>> I SLCTCS+12*
>> IORVOFF EDTIIF+2, EDTTDC+2
>> IORVON EDTIIF+2, EDTTDC+2
>> J SLCTCS+12*
U GETPAT+6, SLCTCS+3, SLCTCS+5, SLCTCS+20
>> W SLCTCS+20*
>> X SLCTCS+5*, SLCTCS+7, SLCTCS+9, SLCTCS+12*, SLCTCS+20*
Y GETPAT+5, GETPAT+6, VISIT+3, VISIT+4, VISIT+9, EDTCS+5, EDTCS+6, SLCTCS+4*, SLCTCS+5*, SLCTCS+6~
, SLCTCS+7*, SLCTCS+9, SLCTCS+16, SLCTCS+20*, SLCTCS+25
>> Z SLCTCS+20*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All