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*

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDDEM

Call Graph Total: 9