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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACDDE3A

Package: Alcohol Chemical Dependency

Routine: ACDDE3A


Information

ACDDE3A ;IHS/ADC/EDE/KML - DATA ENTRY/CHECK CONTACT TYPES;

Source Information

Source file <ACDDE3A.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Alcohol Chemical Dependency 1 (DSPHIST,DSPVSIT,PAUSE)^ACDDEU  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Alcohol Chemical Dependency 1 ACDDE3  

Entry Points

Name Comments DBIA/ICR reference
CHKFU ; EP - CHECK FOLLOWUP
; ADD MODE
; should have been a t/d/c, may have followups
CHKTD ; EP - CHECK TRANS/DISC/CLOSE
; ADD MODE
; should be initial or reopen with no t/d/c
CHKRE ; EP - CHECK REOPEN
; ADD MODE
; should have been a t/d/c, may have followups
CHKCS ; EP - CHECK CLIENT SERVICE
; ADD MODE
; should be initial or reopen with no t/d/c

External References

Name Field # of Occurrence
DSPHIST^ACDDEU CHKRE+35, CHKTD+26
DSPVSIT^ACDDEU CHKRE+19, CHKFU+13, CHKTD+14, CHKCS+16
PAUSE^ACDDEU CHKTD+13, CHKTD+14, CHKCS+16
^DIR CHKRE+20, CHKRE+36, CHKFU+14, CHKTD+27

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,IORVON,"Last non-followup CDMIS VISIT for component ",ACDCOMCL,"/",ACDCOMTL,!,"on or prior to ",ACDVDTE," was not a TRANS/DISC/CLOSE.",IORVOFF,!
  • Line Location: CHKRE+19
Function Call: WRITE
  • Prompt: !,IORVON,"Subsequent ",$S(ACDFLG=1:"TRANS/DISC/CLOSE",1:"REOPEN")," CDMIS VISIT for component ",ACDCOMCL,"/",ACDCOMTL,!,"after ",ACDVDTE,".",IORVOFF,!
  • Line Location: CHKRE+34
Function Call: WRITE
  • Prompt: !,IORVON,"Last non-followup CDMIS VISIT for component ",ACDCOMCL,"/",ACDCOMTL,!,"was not a TRANS/DISC/CLOSE.",IORVOFF,!
  • Line Location: CHKFU+13
Function Call: WRITE
  • Prompt: !,IORVON,"Impossible error in ADDTD^ACDDE. Notify programmer.",IORVOFF,!!
  • Line Location: CHKTD+13
Function Call: WRITE
  • Prompt: !,IORVON,"There is already a TRANS/DISC/CLOSE CDMIS VISIT for component",!,ACDCOMCL,"/",ACDCOMTL," on or before ",ACDVDTE,".",IORVOFF,!
  • Line Location: CHKTD+14
Function Call: WRITE
  • Prompt: !,IORVON,"Subsequent TRANS/DISC/CLOSE CDMIS VISIT for component ",ACDCOMCL,"/",ACDCOMTL,!,"after ",ACDVDTE,".",IORVOFF,!
  • Line Location: CHKTD+25
Function Call: WRITE
  • Prompt: !,IORVON,"There is a TRANS/DISC/CLOSE CDMIS VISIT for component",!,ACDCOMCL,"/",ACDCOMTL," before ",ACDVDTE,".",IORVOFF,!
  • Line Location: CHKCS+16
Routine Call
  • DIR
  • Line Location:
    • CHKRE+20
    • CHKRE+36
    • CHKFU+14
    • CHKTD+27

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("$ZE" CHKTD+13
^%ZOSF("ERRTN" CHKTD+13
^ACDVIS - [#9002172.1] CHKRE+8, CHKRE+14, CHKRE+26, CHKFU+8, CHKTD+8, CHKTD+17, CHKCS+8
^TMP("ACD" CHKRE+4, CHKRE+7, CHKRE+13, CHKRE+24, CHKRE+25, CHKFU+4, CHKFU+7, CHKTD+4, CHKTD+7, CHKTD+15
, CHKTD+16, CHKCS+4, CHKCS+7

Label References

Name Line Occurrences
@( CHKTD+13

Naked Globals

Name Field # of Occurrence
^("$ZE" CHKTD+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACDCOMC CHKRE+9, CHKRE+15, CHKRE+27, CHKFU+9, CHKTD+9, CHKTD+18, CHKCS+9
>> ACDCOMCL CHKRE+19, CHKRE+34, CHKFU+13, CHKTD+14, CHKTD+25, CHKCS+16
>> ACDCOMT CHKRE+9, CHKRE+15, CHKRE+27, CHKFU+9, CHKTD+9, CHKTD+18, CHKCS+9
>> ACDCOMTL CHKRE+19, CHKRE+34, CHKFU+13, CHKTD+14, CHKTD+25, CHKCS+16
>> ACDFLG CHKRE+23*, CHKRE+28*, CHKRE+29*, CHKRE+34
>> ACDLI CHKCS+3*, CHKCS+7, CHKCS+11*, CHKCS+16
>> ACDLT CHKCS+3*, CHKCS+7, CHKCS+10*, CHKCS+16
>> ACDQ CHKRE+3*, CHKRE+4, CHKRE+7, CHKRE+9*, CHKRE+11, CHKRE+13, CHKRE+15*, CHKRE+18*, CHKRE+21*, CHKRE+24
, CHKRE+25, CHKRE+28*, CHKRE+29*, CHKRE+33*, CHKRE+37*, CHKRE+39, CHKFU+4, CHKFU+7, CHKFU+9*, CHKFU+12*
, CHKFU+15*, CHKTD+4, CHKTD+7, CHKTD+9*, CHKTD+12*, CHKTD+13*, CHKTD+14*, CHKTD+15, CHKTD+16, CHKTD+19*
, CHKTD+20*, CHKTD+24*, CHKTD+28*, CHKTD+30, CHKCS+4, CHKCS+7*, CHKCS+15*, CHKCS+16*
>> ACDVDTE CHKRE+19, CHKRE+34, CHKTD+14, CHKTD+25, CHKCS+16
>> ACDVDTI CHKRE+5, CHKFU+5, CHKTD+5, CHKCS+5, CHKCS+16
>> ACDX CHKRE+3*, CHKRE+4*, CHKRE+5, CHKRE+7, CHKRE+13, CHKRE+24*, CHKRE+25, CHKFU+3*, CHKFU+4*, CHKFU+5
, CHKFU+7, CHKTD+3*, CHKTD+4*, CHKTD+5, CHKTD+7, CHKTD+15*, CHKTD+16, CHKCS+3*, CHKCS+4*, CHKCS+5
, CHKCS+7, CHKCS+10, CHKCS+11
>> ACDY CHKRE+6*, CHKRE+7*, CHKRE+8, CHKRE+12*, CHKRE+13*, CHKRE+14, CHKRE+19, CHKRE+24, CHKRE+25*, CHKRE+26
, CHKFU+6*, CHKFU+7*, CHKFU+8, CHKFU+13, CHKTD+6*, CHKTD+7*, CHKTD+8, CHKTD+13, CHKTD+14, CHKTD+15
, CHKTD+16*, CHKTD+17, CHKTD+20*, CHKTD+25, CHKCS+6*, CHKCS+7*, CHKCS+8, CHKCS+16
DA CHKRE+20!, CHKRE+36!, CHKFU+14!, CHKTD+27!
DIR CHKRE+20!, CHKRE+36!, CHKFU+14!, CHKTD+27!
DIR("A" CHKRE+20*, CHKRE+36*, CHKFU+14*, CHKTD+27*
DIR("B" CHKRE+20*, CHKRE+36*, CHKFU+14*, CHKTD+27*
DIR(0 CHKRE+20*, CHKRE+36*, CHKFU+14*, CHKTD+27*
>> IORVOFF CHKRE+19, CHKRE+34, CHKFU+13, CHKTD+13, CHKTD+14, CHKTD+25, CHKCS+16
>> IORVON CHKRE+19, CHKRE+34, CHKFU+13, CHKTD+13, CHKTD+14, CHKTD+25, CHKCS+16
U CHKRE+9, CHKRE+15, CHKRE+19, CHKRE+27, CHKRE+28, CHKRE+29, CHKFU+9, CHKFU+13, CHKTD+9, CHKTD+14
, CHKTD+18, CHKTD+19, CHKTD+20, CHKCS+9, CHKCS+10, CHKCS+11
>> X CHKRE+8*, CHKRE+9, CHKRE+14*, CHKRE+15, CHKRE+19, CHKRE+26*, CHKRE+27, CHKRE+28, CHKRE+29, CHKFU+8*
, CHKFU+9, CHKFU+13, CHKTD+8*, CHKTD+9, CHKTD+13*, CHKTD+14, CHKTD+17*, CHKTD+18, CHKTD+19, CHKTD+20
, CHKCS+8*, CHKCS+9, CHKCS+10, CHKCS+11
>> Y CHKRE+21, CHKRE+37, CHKFU+15, CHKTD+28
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All