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 |  Local Variables |  All
Print Page as PDF
Routine: ACDPDA

Package: Alcohol Chemical Dependency

Routine: ACDPDA


Information

ACDPDA ;IHS/ADC/EDE/KML - DATA ENTRY/EDIT/DELETE FOR PREVENTION;

Source Information

Source file <ACDPDA.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 5 ^DIC  YN^DICN  ^DIE  ^DIK  ^DIR  
Alcohol Chemical Dependency 2 PAUSE^ACDDEU  (DIE,DIQ,FILE)^ACDFMC  

Entry Points

Name Comments DBIA/ICR reference
EN ;Add prevention days
PV ;
K ;
CHK ;Check for valid entry
CHK2 ;Allow display/edit
EN1 ;ASK DAYS OVER AND OVER
EN2 ;EP Edit Prevention days
EN3 ;EP Delete a prevention entry - interactive
DEL ;Delete incomplete/incorrect entries

External References

Name Field # of Occurrence
PAUSE^ACDDEU CHK2+7
DIE^ACDFMC PV+4, CHK2+10
DIQ^ACDFMC CHK2+7
FILE^ACDFMC EN1+17
^DIC EN3+7
YN^DICN EN3+9
^DIE EN+7, EN2+6
^DIK DEL+3
^DIR EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8, CHK2+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"Signon Program is : ",$P(^DIC(4,DUZ(2),0),U)
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"Records that may be added are: THOSE WITHIN YOUR SIGNIN PROGRAM.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"ADDING CDMIS PREVENTION RECORDS...",!!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"Day entry filed......"
  • Line Location: PV+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: PV+7
Function Call: WRITE
  • Prompt: @IOF,"Signon Program is : ",$P(^DIC(4,DUZ(2),0),U)
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !,"Editable Records are: THOSE NOT EXTRACTED."
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !," THOSE WITHIN YOUR SIGNIN PROGRAM.",!
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: !,"EDITING CDMIS PREVENTION RECORDS...",!!
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: !!,"You may now display or edit the CDMIS PREVENTION record just created or edited."
  • Line Location: CHK2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK2+6
Function Call: WRITE
  • Prompt: !!!,ACDH(1)
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !,"** INCOMPLETE or INCORRECT ** PREVENTION LINK deleted from prevention file. **",!,ACDH(1)
  • Line Location: DEL+3
Function Call: WRITE
  • Prompt: !!?4,"Prevention Deletion Complete...."
  • Line Location: DEL+4
Function Call: WRITE
  • Prompt: @IOF,"Signon Program is : ",$P(^DIC(4,DUZ(2),0),U)
  • Line Location: EN3+2
Function Call: WRITE
  • Prompt: !,"Prevention records to Delete are: THOSE NOT EXTRACTED."
  • Line Location: EN3+3
Function Call: WRITE
  • Prompt: !," THOSE WITHIN YOUR SIGNIN PROGRAM.",!
  • Line Location: EN3+4
Function Call: WRITE
  • Prompt: !,"DELETING CDMIS PREVENTION RECORDS...",!!
  • Line Location: EN3+5
Function Call: WRITE
  • Prompt: !,ACD80
  • Line Location: EN3+8
Function Call: WRITE
  • Prompt: !,"Are You Sure You wish to DELETE this ENTRY"
  • Line Location: EN3+9
Function Call: WRITE
  • Prompt: " Answer Yes or No"
  • Condition for execution: %=0
  • Line Location: EN3+9
Function Call: WRITE
  • Prompt: " No action taken...."
  • Line Location: EN3+10
Routine Call
  • DIE
  • Line Location:
    • EN+7
    • EN2+6
Routine Call
  • DIC
  • Line Location:
    • EN3+7
Routine Call
  • DIR
  • Line Location:
    • EN1+2
    • EN1+3
    • EN1+4
    • EN1+5
    • EN1+6
    • EN1+7
    • EN1+8
    • CHK2+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACDPD - [#9002170.7] Classic Fileman Calls
^ACDF5PI - [#9002173] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACDPD - [#9002170.7] CHK+2, CHK+3
^DIC(4 - [#4] EN+2, EN2+2, EN3+2

Label References

Name Line Occurrences
CHK EN+7, EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8, EN1+9, EN2+8
CHK2 CHK+3
DEL CHK+2, EN3+9
EN1 PV+7
K EN+7, EN1+9, PV+6, CHK+5, EN3+7, EN3+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN3+9*
ACD80 EN3+8*, K+1!
ACDAY K+1!
ACDH K+1!
ACDH(1 DEL+2*, DEL+3, EN3+7*
ACDLP EN1+9*, K+1!
ACDM EN1+1!, CHK+5, K+1!
ACDM( EN1+9
ACDM(1 EN1+2*, EN1+14
ACDM(2 EN1+3*, EN1+15
ACDM(3 EN1+4*, EN1+15
ACDM(4 EN1+5*, EN1+15
ACDM(5 EN1+6*, EN1+15
ACDM(6 EN1+7*, EN1+15
ACDM(7 EN1+8*, EN1+15
>> ACDQ CHK+3, CHK+4*, CHK2+1*, CHK2+7*, CHK2+11*
ACDVISP EN+5!, EN+7, EN1+11, PV+2, CHK+1, CHK+2, CHK+3, CHK2+7, CHK2+9, DEL+1
, DEL+3, EN3+7*
>> ACDY CHK2+4*, CHK2+5, CHK2+7
DA EN+7*!, PV+4*, EN2+6*, CHK2+3!, CHK2+7*, CHK2+9*, DEL+3*, K+1!
DA(1 EN1+11*, EN1+12, PV+2*, PV+3
DIC EN+7!, EN1+12*, EN1+13, CHK2+7*, EN3+7*, K+1!
DIC("DR" EN+5*, EN1+15*
DIC("S" EN3+6*
DIC(0 EN1+16*, EN3+7*
DIE EN+6*, EN+7!, EN1+12*, PV+3*, EN2+6*, CHK2+9*, K+1!
DIE("NO^" EN+7*, PV+4*
DIK DEL+3*, K+1!
DIR EN1+2!, EN1+3!, EN1+4!, EN1+5!, EN1+6!, EN1+7!, EN1+8!, CHK2+3!
DIR("B" CHK2+3*
DIR(0 EN1+2*, EN1+3*, EN1+4*, EN1+5*, EN1+6*, EN1+7*, EN1+8*, CHK2+3*
DR EN+7*!, PV+4*, EN2+6*, CHK2+7!, CHK2+9*, K+1!
DTOUT EN+7!, EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8
DUZ(2 EN+2, EN+7, EN2+2, EN2+6, EN3+2
IOF EN+2, EN2+2, EN3+2
U EN+2, EN2+2, EN3+2
X EN1+1!, EN1+2!, EN1+3!, EN1+4!, EN1+5!, EN1+6!, EN1+7!, EN1+8!, EN1+14*
Y EN1+2!, EN1+3!, EN1+4!, EN1+5!, EN1+6!, EN1+7!, EN1+8!, PV+4, CHK2+4, EN3+7
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All