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: ACDCSD

Package: Alcohol Chemical Dependency

Routine: ACDCSD


Information

ACDCSD ;IHS/ADC/EDE/KML - DATA ENTER/EDIT FOR CLIENT CATEGORIES;

Source Information

Source file <ACDCSD.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Alcohol Chemical Dependency 4 (,GETDEMO)^ACDDEGP  (CHKFIN,GETVSITS,PAUSE)^ACDDEU  (DIC,DIE,DIQ,FILE)^ACDFMC  ^ACDKILL  
VA Fileman 3 ^DIC  Y^DIQ  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
PATED ; SELECT AN EXISTING PATIENT TO EDIT
EDIT ; EDIT AN EXISTING PATIENT
FIXCAT ; FIX OLD CATEGORY. IT MUST HAVE COMC/COMT
START ;
INIT ;
GETPATS ; GET PATIENTS
GETCAT ; GET CLIENT CATEGORY
EOJ ;
MAIN ;

External References

Name Field # of Occurrence
^ACDDEGP GETPATS+3
GETDEMO^ACDDEGP PATED+6
CHKFIN^ACDDEU FIXCAT+15, GETPATS+9
GETVSITS^ACDDEU GETPATS+5
PAUSE^ACDDEU GETCAT+12
DIC^ACDFMC GETCAT+2
DIE^ACDFMC GETCAT+6, FIXCAT+5, EDIT+6
DIQ^ACDFMC GETCAT+12
FILE^ACDFMC GETPATS+17
^ACDKILL EOJ+2
^DIC PATED+2
Y^DIQ GETCAT+9, GETCAT+10, FIXCAT+8, FIXCAT+9
^DIR MAIN+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"Signon Program is : ",$P(^DIC(4,DUZ(2),0),U)
  • Line Location: INIT+13
Function Call: WRITE
  • Prompt: !,"Adding/editing client categories for auto cs duplication",!
  • Line Location: INIT+14
Function Call: WRITE
  • Prompt: !!,"WARNING - All patients must have an initial type contact for the",!,ACDCOMCL,"/",ACDCOMTL," component prior to using this client category,",!
  • Line Location: FIXCAT+17
Function Call: WRITE
  • Prompt: !,"Creation of CLIENT entry failed. Notify programmer.",!!
  • Line Location: GETPATS+18
Function Call: WRITE
  • Prompt: !
  • Line Location: PATED+1
Function Call: WRITE
  • Prompt: !," Patient demographic information set from Patient Registration data."
  • Line Location: EDIT+7
Routine Call
  • DIC
  • Line Location:
    • PATED+2
Routine Call
  • DIR
  • Line Location:
    • MAIN+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACDPAT - [#9002172.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] INIT+7
^%ZIS(2 - [#3.2] INIT+7
^%ZOSF("$ZE" GETPATS+18
^%ZOSF("ERRTN" GETPATS+18
^ACDF5PI - [#9002173] INIT+4
^ACDPAT - [#9002172.8] GETCAT+8, GETCAT+12, FIXCAT+6, FIXCAT+11, GETPATS+6
^DD(9002172.8 GETCAT+9, GETCAT+10, FIXCAT+8, FIXCAT+9, GETPATS+13
^DIC(4 - [#4] INIT+13
^DPT - [#2] FIXCAT+12, PATED+5
^TMP("ACD" INIT+11!
^TMP($J INIT+11!

Label References

Name Line Occurrences
@( GETPATS+18
EDIT GETPATS+6, GETPATS+20, PATED+7
EOJ START+2
FIXCAT GETCAT+11
GETCAT MAIN+3
GETPATS MAIN+9
INIT MAIN+1
MAIN START+1
PATED GETPATS+2

Naked Globals

Name Field # of Occurrence
^( FIXCAT+11
^("$ZE" GETPATS+18
^(0 GETCAT+8, FIXCAT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACDAE MAIN+8*, GETPATS+2
>> ACDAGE EDIT+5
>> ACDAGER EDIT+5
>> ACDCC GETCAT+4*, GETCAT+8, GETCAT+12, FIXCAT+3, FIXCAT+6, FIXCAT+11, GETPATS+6, GETPATS+11, GETPATS+14, EDIT+1
, EDIT+2
>> ACDCOMC GETCAT+8*, GETCAT+9, GETCAT+11, FIXCAT+6*, FIXCAT+7, FIXCAT+8
>> ACDCOMCL GETCAT+9*, FIXCAT+8*, FIXCAT+17
>> ACDCOMT GETCAT+8*, GETCAT+10, GETCAT+11, FIXCAT+6*, FIXCAT+7, FIXCAT+9
>> ACDCOMTL GETCAT+10*, FIXCAT+9*, FIXCAT+17
>> ACDDFN FIXCAT+12*, PATED+5*, EDIT+4
>> ACDDFNP FIXCAT+11*, FIXCAT+12, GETPATS+6, GETPATS+14, GETPATS+16, PATED+4*, PATED+5, EDIT+2
>> ACDDOV INIT+10*
>> ACDDUZZ INIT+9*, INIT+12*
>> ACDINR FIXCAT+13*, GETPATS+8*
>> ACDKPDA GETCAT+6*
ACDNEWG MAIN+5, GETCAT+5*, EOJ+1!
ACDNEWP GETPATS+1!, GETPATS+19*, EDIT+4
>> ACDPGM INIT+5*, GETCAT+2
>> ACDQ MAIN+2, MAIN+4, MAIN+9, INIT+1*, INIT+15*, GETCAT+1*, GETCAT+11, GETCAT+13*, FIXCAT+1*, FIXCAT+7*
, FIXCAT+17, GETPATS+4, GETPATS+10*, GETPATS+18*, PATED+3*
>> ACDRVOF INIT+7*, INIT+8*
>> ACDRVON INIT+7*, INIT+8*
>> ACDSEX EDIT+5
>> ACDSTA EDIT+5
>> ACDSTACD EDIT+5
>> ACDTRB EDIT+5
>> ACDTRBCD EDIT+5
>> ACDVET EDIT+5
ACDY FIXCAT+11*, FIXCAT+14~
>> C GETCAT+9*, GETCAT+10*, FIXCAT+8*, FIXCAT+9*
DA MAIN+6!, GETCAT+6*, GETCAT+7!, GETCAT+12*, FIXCAT+3*, GETPATS+14*, GETPATS+15, EDIT+2*
DA(1 GETPATS+14*, EDIT+2*
>> DIC GETCAT+2*, GETCAT+12*, GETPATS+11*, PATED+2*
>> DIC("DR" GETCAT+2*
>> DIC("P" GETPATS+13*
>> DIC("S" GETCAT+2*
>> DIC(0 GETCAT+2*, GETPATS+12*, PATED+2*
>> DIE GETCAT+6*, FIXCAT+2*, EDIT+1*
>> DINUM GETPATS+15*
DIR MAIN+6!
DIR("A" MAIN+6*
DIR("B" MAIN+6*
DIR(0 MAIN+6*
>> DIRUT MAIN+7
>> DLAYGO GETCAT+2*
>> DR GETCAT+6*, FIXCAT+4*, EDIT+3*, EDIT+4*, EDIT+5*
DT INIT+10
DUZ(2 INIT+3, INIT+4, INIT+5, INIT+9, INIT+12, INIT+13
IO INIT+6, INIT+7
IOF INIT+2, INIT+13
U INIT+7, INIT+13, GETCAT+5, GETCAT+6, GETCAT+8, GETCAT+9, GETCAT+10, FIXCAT+6, FIXCAT+8, FIXCAT+9
, FIXCAT+12, GETPATS+13, PATED+5
>> X INIT+7*, GETPATS+16*, GETPATS+18*
>> Y MAIN+5*, MAIN+8, INIT+7*, GETCAT+3, GETCAT+4, GETCAT+5, GETCAT+6, GETCAT+9*, GETCAT+10*, FIXCAT+8*
, FIXCAT+9*, GETPATS+18, PATED+3, PATED+4
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