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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ACDDIC

Package: Alcohol Chemical Dependency

Routine: ACDDIC


Information

ACDDIC ;IHS/ADC/EDE/KML - DATA ENTER/EDIT FOR CDMIS FORMS;

Source Information

Source file <ACDDIC.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Alcohol Chemical Dependency 5 EN^ACDAUTO  EN^ACDAUTO1  ^ACDDIFF  AUTO^ACDDIK  ^ACDWK  

Entry Points

Name Comments DBIA/ICR reference
K ;
EN2 ;EP Edit for CDMIS forms 1
EN ;EP Input for CDMIS forms 1
CHK ;
EN3 ;EP Add additional Client Service

External References

Name Field # of Occurrence
EN^ACDAUTO CHK+8
EN^ACDAUTO1 CHK+12
^ACDDIFF EN2+10
AUTO^ACDDIK CHK+14
^ACDWK EN2+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"Signon Program is : ",$P(^DIC(4,DUZ(2),0),U)
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"Records that may be added are: THOSE WITHIN YOUR SIGNIN PROGRAM.",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"ADDING CDMIS VISIT RECORDS...",!!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: @IOF,"Signon Program is : ",$P(^DIC(4,DUZ(2),0),U)
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: !,"Editable Records are: THOSE NOT EXTRACTED."
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: !," THOSE WITHIN YOUR SIGNIN PROGRAM.",!
  • Line Location: EN2+6
Function Call: WRITE
  • Prompt: !,"EDITING CDMIS VISIT RECORDS...",!!
  • Line Location: EN2+7
Function Call: WRITE
  • Prompt: @IOF,"Signon Program is : ",$P(^DIC(4,DUZ(2),0),U)
  • Line Location: EN3+3
Function Call: WRITE
  • Prompt: !,"Editable Records are: THOSE NOT EXTRACTED."
  • Line Location: EN3+4
Function Call: WRITE
  • Prompt: !," THOSE WITHIN YOUR SIGNIN PROGRAM.",!
  • Line Location: EN3+5
Function Call: WRITE
  • Prompt: !,"ADDING CLIENT SERVICE DAYS TO EXISTING RECORDS...",!!
  • Line Location: EN3+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACDCS("C" CHK+12
^ACDIIF("C" CHK+4
^ACDTDC("C" CHK+8
^DIC(4 - [#4] EN+5, EN2+4, EN3+3

Label References

Name Line Occurrences
CHK EN+9, EN2+10, EN3+8
K EN+9, EN2+10, EN3+8, CHK+4, CHK+8, CHK+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACD80 K+1!
ACDAGE K+1!
ACDCAGE K+1!
ACDCOMC K+1!
ACDDA K+1!
ACDDFNP K+1!
ACDDOV K+1!
ACDDR K+1!
>> ACDDUZ(2 EN2+9
ACDDUZZ EN+3*, EN2+3*, K+1!
ACDHS K+1!
ACDIO K+1!
ACDLINE K+1!
ACDN0 K+1!
ACDOK K+1!
ACDRPC K+1!
ACDSEX K+1!
ACDSTA K+1!
ACDSTACD K+1!
ACDSTANM K+1!
ACDTOUT CHK+3!, CHK+14*, K+1!
ACDTRB K+1!
ACDTRBCD K+1!
ACDTRBN K+1!
ACDTRBNM K+1!
ACDVET K+1!
ACDVISP EN+9!, EN2+10!, EN3+8!, CHK+2, CHK+4, CHK+8, CHK+12
ACDX K+1!
DA K+1!
DIC K+1!
DIC("DR" EN+4*
DIE K+1!
DR K+1!
DUZ(2 EN+3, EN+5, EN2+3, EN2+4, EN2+9*, EN3+3
IOF EN+5, EN2+4, EN3+3
U EN+5, EN2+4, EN3+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All