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 |  All
Print Page as PDF
Routine: ACDDE3

Package: Alcohol Chemical Dependency

Routine: ACDDE3


Information

ACDDE3 ;IHS/ADC/EDE/KML - CDMIS DE - CONTACT TYPES;

Source Information

Source file <ACDDE3.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Alcohol Chemical Dependency 6 GETPROV^ACDDE2  (CHKCS,CHKFU,CHKRE,CHKTD)^ACDDE3A  (GENCS,GENIIF,GENTDC)^ACDDE3B  (CHKFIN,DEV,PAUSE)^ACDDEU  (DIK,FILE)^ACDFMC  DISPLAY^ACDPFACE  
IHS VA Utilities 2 $$VAL^XBDIQ1  PFTV^XBPFTV  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
ADDRE ; EP - ADD REOPEN
; ADD MODE
ADDIN ; EP - ADD INITIAL
; ADD MODE
ADDCS ; EP - ADD CLIENT SERVICE
; ADD MODE
GENVSIT2 ; SET DR BASED ON CONTACT TYPE
; if IR or OT set and quit
ADDFU ; EP - ADD FOLLOWUP
; ADD MODE
CHKFIN ; CHECK FOR INITIAL CONTACT TYPE
DSPCSH ; DISPLAY CLIENT SVC HISTORY FOR THIS CS VISIT
ADDTD ; EP - ADD TRANS/DISC/CLOSE
; ADD MODE
GENVSIT ; GENERATE NEW CDMIS VISIT
CBNAME ; GET NAME FOR CRISIS BRIEF
ADDIR ; EP - ADD INFO/REFERRAL
FACE ; PRINT FACE SHEED IF WANTED
ADDCS2 ; EP - GET CS VISIT OR GENERATE A NEW ONE
ADDOT ; EP - ADD CRISIS/BRIEF INT

External References

Name Field # of Occurrence
GETPROV^ACDDE2 GENVSIT2+11
CHKCS^ACDDE3A ADDCS+6
CHKFU^ACDDE3A ADDFU+5
CHKRE^ACDDE3A ADDRE+5
CHKTD^ACDDE3A ADDTD+5
GENCS^ACDDE3B ADDCS+10
GENIIF^ACDDE3B ADDIN+7, ADDRE+9, ADDFU+11, ADDOT+3, ADDIR+3
GENTDC^ACDDE3B ADDTD+9
CHKFIN^ACDDEU CHKFIN+1
DEV^ACDDEU FACE+7
PAUSE^ACDDEU GENVSIT+7, FACE+9
DIK^ACDFMC GENVSIT+12
FILE^ACDFMC GENVSIT+6
DISPLAY^ACDPFACE FACE+9
^DIR ADDFU+7, GENVSIT+11, CBNAME+1, FACE+5
$$VAL^XBDIQ1 GENVSIT+10
PFTV^XBPFTV DSPCSH+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"CLIENT SVCS history for this CS VISIT",!,"----------",!
  • Line Location: DSPCSH+2
Function Call: WRITE
  • Prompt: Y,?5,ACDX,!
  • Line Location: DSPCSH+7
Function Call: WRITE
  • Prompt: "----------",!
  • Line Location: DSPCSH+9
Function Call: WRITE
  • Prompt: !,IORVON,"Creation of CDMIS VISIT record failed. Notify programmer.",IORVOFF,!!
  • Line Location: GENVSIT+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: GENVSIT+9
Function Call: WRITE
  • Prompt: $$VAL^XBDIQ1(9002172.1,ACDVIEN,.01)," - ",$$VAL^XBDIQ1(9002172.1,ACDVIEN,1),"/",$$VAL^XBDIQ1(9002172.1,ACDVIEN,5)," ",$$VAL^XBDIQ1(9002172.1,ACDVIEN,3),!
  • Line Location: GENVSIT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: FACE+4
Routine Call
  • DIR
  • Line Location:
    • ADDFU+7
    • GENVSIT+11
    • CBNAME+1
    • FACE+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACDVIS - [#9002172.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("$ZE" GENVSIT+7
^%ZOSF("ERRTN" GENVSIT+7
^ACDCS - [#9002172] DSPCSH+5
^ACDCS("C" DSPCSH+1, DSPCSH+5
^ACDVIS - [#9002172.1] ADDCS2+3, ADDCS2+8
^TMP("ACD" ADDCS2+2, ADDCS2+11*, GENVSIT+12!
^VA(200 - [#200] ADDCS2+10

Label References

Name Line Occurrences
@( GENVSIT+7
ADDCS2 ADDCS+8
CBNAME GENVSIT2+6
CHKFIN ADDIN+3, ADDRE+3, ADDFU+3, ADDTD+3, ADDCS+4
FACE ADDIN+9, ADDRE+11, ADDTD+11
GENVSIT ADDIN+5, ADDRE+7, ADDFU+9, ADDTD+7, ADDCS2+15, ADDOT+1, ADDIR+1
GENVSIT2 GENVSIT+2

Naked Globals

Name Field # of Occurrence
^("$ZE" GENVSIT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACDAGE GENVSIT2+16
>> ACDAGER GENVSIT2+15
>> ACDCOMC ADDCS2+4, GENVSIT2+3, GENVSIT2+13
>> ACDCOMT ADDCS2+4, GENVSIT2+3, GENVSIT2+15
>> ACDCONT GENVSIT2+2, GENVSIT2+3, GENVSIT2+5, GENVSIT2+11, GENVSIT2+13, GENVSIT2+14, FACE+2, FACE+3
ACDDECSN ADDCS+2!, ADDCS2+16*
>> ACDDFNP GENVSIT+12, GENVSIT+13, GENVSIT2+15
>> ACDFHCP GENVSIT+13
>> ACDFPCC GENVSIT+13
>> ACDFUM ADDFU+8*, GENVSIT2+14
>> ACDIIEN FACE+2
>> ACDINR ADDIN+2*, ADDRE+2*, ADDFU+2*, ADDTD+2*, ADDCS+3*
>> ACDPCCL( GENVSIT+13*
>> ACDPGM GENVSIT2+3, GENVSIT2+15
>> ACDPROV ADDCS2+8*, ADDCS2+10, GENVSIT2+3, GENVSIT2+13
>> ACDPROVN ADDCS2+10*, ADDCS2+11
ACDPTBL DSPCSH+3!, DSPCSH+8!
ACDPTBL( DSPCSH+5*, DSPCSH+7
>> ACDQ ADDIN+4, ADDIN+6, ADDIN+8, ADDRE+4, ADDRE+6, ADDRE+8, ADDRE+10, ADDFU+4, ADDFU+6, ADDFU+10
, ADDTD+4, ADDTD+6, ADDTD+8, ADDTD+10, ADDCS+5, ADDCS+7, ADDCS+9, ADDCS2+2, ADDCS2+4*, ADDCS2+6*
, ADDOT+2, ADDIR+2, GENVSIT+1*, GENVSIT+3, GENVSIT+4*, GENVSIT+7*, GENVSIT+14*, GENVSIT2+12, FACE+8
>> ACDSEX GENVSIT2+16
>> ACDSTA GENVSIT2+16
>> ACDSTACD GENVSIT2+16
>> ACDTDC FACE+3
>> ACDTRB GENVSIT2+16
>> ACDTRBCD GENVSIT2+16
>> ACDVDTI ADDCS2+2, GENVSIT+5
>> ACDVET GENVSIT2+16
>> ACDVIEN ADDCS2+7*, ADDCS2+8, ADDCS2+16, DSPCSH+1, DSPCSH+5, GENVSIT+1*, GENVSIT+8*, GENVSIT+10, GENVSIT+12*, GENVSIT+13
, FACE+1
>> ACDX DSPCSH+7
>> ACDY ADDCS2+1*, ADDCS2+2*, ADDCS2+3, ADDCS2+7
DA ADDFU+7!, GENVSIT+11!, GENVSIT+12*, CBNAME+1!, FACE+5!
>> DIC GENVSIT+5*
>> DIC("DR" GENVSIT2+3*, GENVSIT2+8*, GENVSIT2+13*, GENVSIT2+14*, GENVSIT2+15*, GENVSIT2+16*
>> DIC(0 GENVSIT+5*
>> DIK GENVSIT+12*
DIR ADDFU+7!, GENVSIT+11!, CBNAME+1!, FACE+5!
DIR("A" ADDFU+7*, GENVSIT+11*, CBNAME+1*, FACE+5*
DIR("B" GENVSIT+11*, FACE+5*
DIR(0 ADDFU+7*, GENVSIT+11*, CBNAME+1*, FACE+5*
>> DLAYGO GENVSIT+5*
DUZ GENVSIT2+3, GENVSIT2+15
>> IORVOFF GENVSIT+7
>> IORVON GENVSIT+7
U ADDCS2+4, ADDCS2+8, ADDCS2+10, DSPCSH+5
>> X ADDCS2+3*, ADDCS2+4, DSPCSH+5*, DSPCSH+7*, GENVSIT+5*, GENVSIT+7*, GENVSIT2+7, GENVSIT2+8, CBNAME+2*
>> Y ADDFU+8, DSPCSH+4*, DSPCSH+5*, DSPCSH+6*, DSPCSH+7*, GENVSIT+7, GENVSIT+8, GENVSIT+12, CBNAME+2*, FACE+6
>> Z DSPCSH+7*
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 |  All