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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACDDEU

Package: Alcohol Chemical Dependency

Routine: ACDDEU


Information

ACDDEU ;IHS/ADC/EDE/KML - COMMON FUNCTIONS;

Source Information

Source file <ACDDEU.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Alcohol Chemical Dependency 3 (DSPVSIT,PAUSE)^ACDDEU  (DIQ,DIQ1)^ACDFMC  $$DD^ACDFUNC  
Kernel 3 ^%ZIS  ^%ZISC  ENDR^%ZISS  
VA Fileman 3 NOW^%DTC  ^DIE  ^DIR  
IHS VA Utilities 1 PFTV^XBPFTV  

Caller Graph

Caller Graph Total: 43

Package Total Caller Graph
Alcohol Chemical Dependency 43 ACDAUTO  ACDAUTO1  ACDBILLD  ACDBILLP  ACDBILLS  ACDCSD  ACDDE  ACDDE2  
ACDDE3  ACDDE3A  ACDDE3B  ACDDE3C  ACDDEGP  ACDDEM  ACDDEU  ACDDIK  
ACDFLAT  ACDFUL0  ACDFUL2  ACDLVBD  ACDPCCL4  ACDPCCL5  ACDPCCL6  ACDPCCLS  
ACDPCS1M  ACDPDA  ACDPDIF  ACDPFACE  ACDPREI2  ACDPSOT  ACDPVDSP  ACDPVH1M  
ACDPVHST  ACDRR1  ACDRR1P  ACDRR1PB  ACDRR1PC  ACDRR2  ACDRR2P  ACDRR3  
ACDVSAVE  ACDWCD1  ACDWQ  

Entry Points

Name Comments DBIA/ICR reference
PAUSE ; EP - PAUSE FOR USER
HDR2 ;
DSPVSIT(VISIT) ; EP - DISPLAY CDMIS VISIT ENTRY
BCK ; BACKWARD DISPLAY FOR CRTS
FWD ; FORWARD DISPLAY FOR PRINTERS ONLY
GETDTR2 ;
DEV ; EP - SELECT OUTPUT DEVICE
GETDTR ; EP-GET DATE RANGE
; returns ACDDTLO and ACDDTHI or ACDQ=1
GETVSITS ; EP - GET CDMIS VISITS FOR THIS CLIENT
DSPCSH ; EP-DISPLAY CDMIS CLIENT SERVICE HISTORY FOR ONE CS VISIT
DSPHIST ; EP - DISPLAY CDMIS VISIT HISTORY
CONF ; EP - CONFIDENTIAL CLIENT DATA HEADER
CHKFIN ; EP - CHECK FOR INITIAL CONTACT TYPE
GETTOB ; get tobacco use info
; utilized by input templates ACD I/I/F ADD and ACD T/D/C/ ADD
DSPV ; EP-DISPLAY CDMIS VISIT ENTRY
HDR ; EP - DISPLAY HEADER

External References

Name Field # of Occurrence
NOW^%DTC CONF+3
^%ZIS DEV+3
^%ZISC DEV+5
ENDR^%ZISS CHKFIN+1
DSPVSIT^ACDDEU CHKFIN+4
PAUSE^ACDDEU CHKFIN+4, CHKFIN+13
DIQ^ACDFMC DSPVSIT+3
DIQ1^ACDFMC DSPV+2
$$DD^ACDFUNC CONF+3
^DIE GETTOB+3
^DIR PAUSE+5, GETDTR2+2, GETDTR2+6, GETTOB+2
PFTV^XBPFTV DSPCSH+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: !,"*** CONFIDENTIAL CLIENT INFORMATION UNDER CFR 42 PART 2 ***",!
  • Line Location: CONF+1
Function Call: WRITE
  • Prompt: !,"PRINTED: "_Y_" BY: "_$P($G(^VA(200,DUZ,0)),U)_"@"_ACDSITE,!
  • Line Location: CONF+3
Function Call: WRITE
  • Prompt: X,!
  • Line Location: CONF+4
Function Call: WRITE
  • Prompt: X,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: @IOF,"Signon Program is : ",$P(^DIC(4,DUZ(2),0),U),!
  • Line Location: HDR2+1
Function Call: WRITE
  • Prompt: "Records that may be added are: THOSE WITHIN YOUR SIGNIN PROGRAM.",!!
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: "ADDING CDMIS VISIT RECORDS...",!!
  • Line Location: HDR2+4
Function Call: WRITE
  • Prompt: "Editable Records are: THOSE NOT EXTRACTED.",!
  • Line Location: HDR2+7
Function Call: WRITE
  • Prompt: " THOSE WITHIN YOUR SIGNIN PROGRAM.",!!
  • Line Location: HDR2+8
Function Call: WRITE
  • Prompt: "EDITING CDMIS VISIT RECORDS...",!!
  • Line Location: HDR2+9
Function Call: WRITE
  • Prompt: "COMPONENT (CODE) : ",ACDCOMCL,!
  • Line Location: HDR2+12
Function Call: WRITE
  • Prompt: "COMPONENT (TYPE) : ",ACDCOMTL,!
  • Line Location: HDR2+13
Function Call: WRITE
  • Prompt: !,"PRIMARY PROVIDER : ",ACDPROVN,!
  • Line Location: HDR2+14
Function Call: WRITE
  • Prompt: !,"TYPE CONTACT : ",ACDCONTL,!
  • Line Location: HDR2+16
Function Call: WRITE
  • Prompt: "DEFAULT PROVIDER : ",ACDCSDP,!
  • Line Location: HDR2+17
Function Call: WRITE
  • Prompt: "VISIT DATE : ",ACDVDTE,!
  • Line Location: HDR2+19
Function Call: WRITE
  • Prompt: !,"----------",!
  • Line Location: DSPHIST+2
Function Call: WRITE
  • Prompt: "No CDMIS VISIT history for client ",ACDDFN,!
  • Line Location: DSPHIST+3
Function Call: WRITE
  • Prompt: "----------",!
  • Line Location: DSPHIST+4
Function Call: WRITE
  • Prompt: !
  • Line Location: FWD+1
Function Call: WRITE
  • Prompt: "CDMIS VISIT history for client ",ACDDFN,!!
  • Line Location: FWD+2
Function Call: WRITE
  • Prompt: "----------",!
  • Line Location: FWD+3
Function Call: WRITE
  • Prompt: "----------",!
  • Line Location: FWD+6
Function Call: WRITE
  • Prompt: !,"----------",!
  • Line Location: BCK+1
Function Call: WRITE
  • Prompt: "Recent CDMIS VISIT history for client ",ACDDFN,!!
  • Line Location: BCK+2
Function Call: WRITE
  • Prompt: "----------",!
  • Line Location: BCK+6
Function Call: WRITE
  • Prompt: ACDPDD(9002172.1,ACDY,.01),?12," - ",ACDPDD(9002172.1,ACDY,1),"/",ACDPDD(9002172.1,ACDY,5),?52,ACDPDD(9002172.1,ACDY,3),?70,$S($P(^ACDVIS(ACDY,0),U,25):" <EXTR>",1:""),!
  • Line Location: DSPV+3
Function Call: WRITE
  • Prompt: ?15,Y,?19,W,?55,$J(+$P(^ACDCS(Z,0),U,4),5,2)_" h",!
  • Line Location: DSPCSH+8
Function Call: WRITE
  • Prompt: !,IORVON,"INITIAL type contact already exists for patient ",ACDDFN,!,"in the ",ACDCOMCL,"/",ACDCOMTL," component.",IORVOFF,!
  • Line Location: CHKFIN+4
Function Call: WRITE
  • Prompt: !,IORVON,"No INITIAL type contact for patient ",ACDDFN,!,"in the ",ACDCOMCL,"/",ACDCOMTL," component.",IORVOFF,!!,"Now searching for a REOPEN.",!
  • Line Location: CHKFIN+8
Function Call: WRITE
  • Prompt: !,"REOPEN found.",!
  • Line Location: CHKFIN+11
Function Call: WRITE
  • Prompt: !,IORVON,"No INITIAL or REOPEN found.",IORVOFF,!
  • Line Location: CHKFIN+12
Function Call: WRITE
  • Prompt: !!,"Ending date before beginning date!",!!
  • Line Location: GETDTR2+10
Routine Call
  • DIE
  • Line Location:
    • GETTOB+3
Routine Call
  • DIR
  • Line Location:
    • PAUSE+5
    • GETDTR2+2
    • GETDTR2+6
    • GETTOB+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

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)
^ACDCS - [#9002172] DSPCSH+3, DSPCSH+8
^ACDCS("C" DSPCSH+3
^ACDVIS - [#9002172.1] FWD+5, DSPV+3, GETVSITS+3
^ACDVIS("D" GETVSITS+3
^DIC(4 - [#4] HDR2+1
^TMP("ACD" DSPHIST+1, FWD+5, BCK+4, DSPCSH+1!, DSPCSH+3*, DSPCSH+5, DSPCSH+6, DSPCSH+10!, GETVSITS+1!, GETVSITS+5*
, CHKFIN+3, CHKFIN+10
^VA(200 - [#200] CONF+3

Label References

Name Line Occurrences
BCK DSPHIST+7
CONF FWD+1
DSPCSH FWD+5
DSPV FWD+5, BCK+4
FWD DSPHIST+6
GETDTR2 GETDTR+2
HDR2 HDR+1

Naked Globals

Name Field # of Occurrence
^( CHKFIN+3, CHKFIN+10
^("BWP" GETVSITS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CONF+3
>> %ZIS DEV+3*
>> %ZIS("B" DEV+3*
ACDCNT BCK+3*, BCK+4*, BCK+5!
>> ACDCOMC CHKFIN+3, CHKFIN+10
>> ACDCOMCL HDR2+11, HDR2+12, CHKFIN+4, CHKFIN+8
>> ACDCOMT CHKFIN+3, CHKFIN+10
>> ACDCOMTL HDR2+13, CHKFIN+4, CHKFIN+8
>> ACDCONTL HDR2+15, HDR2+16
>> ACDCSDP HDR2+17
>> ACDDFN DSPHIST+3, FWD+2, BCK+2, CHKFIN+4, CHKFIN+8
>> ACDDFNP GETVSITS+3
ACDDTHI GETDTR+3!, GETDTR2+9*, GETDTR2+10
ACDDTLO GETDTR+3!, GETDTR2+5*, GETDTR2+10, GETDTR2+11*
>> ACDINR CHKFIN+4, CHKFIN+6
>> ACDLPTYP HDR2+14, HDR2+17
>> ACDMODE HDR2+2, HDR2+6
ACDPDD DSPV+4!
ACDPDD( DSPV+3
>> ACDPGM GETVSITS+3
>> ACDPROV HDR2+14
>> ACDPROVN HDR2+14
>> ACDQ DEV+2*, DEV+4*, CHKFIN+4*, CHKFIN+7*, CHKFIN+11*, GETDTR+2, GETDTR+3, GETDTR2+1*, GETDTR2+12*
>> ACDSITE CONF+3
ACDSLAVE DEV+1!, DEV+5*
>> ACDTCTG GETVSITS+4
>> ACDVCNT GETVSITS+2*, GETVSITS+5*
>> ACDVDTE HDR2+18, HDR2+19
>> ACDVIEN FWD+5*, DSPCSH+3
>> ACDX FWD+4*, FWD+5*, BCK+3*, BCK+4*, CHKFIN+2*, CHKFIN+3*, CHKFIN+9*, CHKFIN+10*
>> ACDY FWD+5*, BCK+4*, DSPV+1, DSPV+3, CHKFIN+2*, CHKFIN+3*, CHKFIN+4, CHKFIN+5, CHKFIN+9*, CHKFIN+10*
, CHKFIN+11
DA DSPVSIT+2*, DSPV+1*, GETDTR2+2!, GETDTR2+6!
>> DIC DSPVSIT+2*, DSPV+1*
>> DIQ DSPV+1*
DIR PAUSE+5!, GETDTR2+2!, GETDTR2+6!, GETTOB+2~
DIR("A" PAUSE+3*, GETDTR2+2*, GETDTR2+6*, GETTOB+2*
DIR(0 PAUSE+3*, GETDTR2+2*, GETDTR2+6*, GETTOB+2*
DIRUT PAUSE+4!, GETDTR+2, GETDTR2+3, GETDTR2+7
DR DSPVSIT+2*, DSPV+1*, GETTOB+3~*
DUZ CONF+3
DUZ(2 HDR2+1
IO("S" DEV+5, PAUSE+2
IOF DEV+5, HDR2+1
ION DEV+5
>> IORVOFF CHKFIN+4, CHKFIN+8, CHKFIN+12
>> IORVON CHKFIN+1, CHKFIN+4, CHKFIN+8, CHKFIN+12
IOST PAUSE+1, DSPHIST+6
>> IOT PAUSE+2
>> POP DEV+4
U CONF+3, HDR2+1, FWD+5, DSPV+3, DSPCSH+3, DSPCSH+8, GETVSITS+3, GETVSITS+4, GETVSITS+5, CHKFIN+3
, CHKFIN+10
VISIT DSPVSIT~, DSPVSIT+1, DSPVSIT+2
>> W DSPCSH+7, DSPCSH+8
X CONF+2~, CONF+4*, HDR+2*, HDR+3, HDR+4!, DSPCSH+3*, DSPCSH+6*, DSPCSH+7, GETVSITS+3*, GETVSITS+4
, GETVSITS+5, CHKFIN+1*, CHKFIN+3*, CHKFIN+10*
Y CONF+2~, CONF+3*, DSPCSH+2*, DSPCSH+3*, DSPCSH+4*, DSPCSH+5*, DSPCSH+6, DSPCSH+8, GETVSITS+2*, GETVSITS+3*
, GETVSITS+5, CHKFIN+2*, CHKFIN+3*, CHKFIN+9*, CHKFIN+10*, GETDTR2+4, GETDTR2+5, GETDTR2+8, GETDTR2+9, GETTOB+3
>> Z DSPCSH+5*, DSPCSH+6, DSPCSH+8
>> ZTQUEUED PAUSE+2
Info |  Source |  Call Graph |  Caller 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