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

Package: IHS Dental System

Routine: ADEGRL2


Information

ADEGRL2 ; IHS/HQT/MJL - DENTAL ENTRY PART 3 ; [ 03/24/1999 9:04 AM ]

Source Information

Source file <ADEGRL2.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS Dental System 1 ^ADECLS  
Kernel 1 EN^XQH  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Dental System 3 ADEATT  ADEGRL  ADELETE  

Entry Points

Name Comments DBIA/ICR reference
END
VSHELP
VSLOOK ;EP
CTRL
VSHELP0
DOD
VSLOOK4
VSHELP1
DELIV

External References

Name Field # of Occurrence
^%DT DOD, VSLOOK+7, VSLOOK+9
^ADECLS VSHELP
EN^XQH VSHELP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"***Only CONTRACT Visits may be edited in this mode***"
  • Line Location: DELIV+0
Function Call: WRITE
  • Prompt: !?5,"***CONTRACT Visits cannot be selected in this option***"
  • Line Location: DELIV+1
Function Call: WRITE
  • Prompt: !?5,"***PATIENT DIED BEFORE THIS DATE***",*7
  • Line Location: DOD+1
Function Call: WRITE
  • Prompt: !?5,"***MUST BE AFTER 1 JANUARY 84***",*7
  • Line Location: DOD+2
Function Call: WRITE
  • Prompt: !,"Select Visit Number 1-",ADE,": "
  • Line Location: VSLOOK+20
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: VSLOOK+23
Function Call: WRITE
  • Prompt: !,"You may enter a new visit if you wish."
  • Line Location: VSHELP+1
Function Call: WRITE
  • Prompt: !,"Enter two question marks `??' for general help on entering dates, or"
  • Line Location: VSHELP+2
Function Call: WRITE
  • Prompt: !,"Enter the Date of an old Visit"
  • Line Location: VSHELP+3
Function Call: WRITE
  • Prompt: !,"Choose from:"
  • Line Location: VSHELP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: VSHELP1+3
Function Call: WRITE
  • Prompt: ADE,". "
  • Condition for execution: +ADE
  • Line Location: VSHELP1+3
Function Call: WRITE
  • Prompt: Y
  • Line Location: VSHELP1+3
Function Call: WRITE
  • Prompt: ?20," ",$S($P(^ADEPCD(ADEDFN,0),U,9)="c":"CONTRACT",1:"DIRECT")
  • Line Location: VSHELP1+4
Function Call: WRITE
  • Prompt: ?30," ",$P(^(0),U)
  • Line Location: VSHELP1+5
Function Call: WRITE
  • Prompt: ?60,"<CANCELLATION>"
  • Line Location: VSHELP1+6
Function Call: WRITE
  • Prompt: ?60,"<BROKEN APPT.>"
  • Line Location: VSHELP1+7
Function Call: WRITE
  • Prompt: ?60,"<CANCELLATION>"
  • Line Location: VSHELP1+9
Function Call: WRITE
  • Prompt: ?60,"<MISSED APPT.>"
  • Line Location: VSHELP1+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADEPCD - [#9002007] DELIV, DELIV+1, VSLOOK4, VSLOOK4+2, VSLOOK4+3, VSHELP1, VSHELP1+1, VSHELP1+2, VSHELP1+4, VSHELP1+5
, VSHELP1+6, VSHELP1+7, VSHELP1+9, VSHELP1+10
^ADEPCD("DATE" VSLOOK+11, VSLOOK+15, VSHELP+4, VSHELP+6
^AUTTADA("B" VSHELP1+6, VSHELP1+7, VSHELP1+9, VSHELP1+10
^DD("DD" VSLOOK+7, VSLOOK+11, VSLOOK+13, VSHELP+6
^DIC(16 - [#16] VSHELP1+5
^DPT - [#2] DOD+1

Label References

Name Line Occurrences
CTRL CTRL+3, CTRL+5
DELIV CTRL+5
DOD CTRL+3
END CTRL+1
VSHELP VSLOOK+8
VSHELP1 VSLOOK+19, VSHELP+6
VSLOOK CTRL, VSLOOK+7, VSLOOK+8, VSLOOK+9, VSLOOK+22, VSLOOK+23
VSLOOK4 VSLOOK+15

Naked Globals

Name Field # of Occurrence
^( DOD+1
^(0 VSHELP1+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DOD*, VSLOOK+7*!, VSLOOK+9*!
%DT(0 VSLOOK+7*, VSLOOK+9*
ADE VSLOOK+15*, VSLOOK+19*, VSLOOK+20, VSLOOK+22!, VSLOOK+23!, VSLOOK+25!, VSHELP+6*, VSHELP1+3
>> ADECON DELIV, VSLOOK4+3, VSHELP1+1
ADEDFN DELIV, DELIV+1, VSLOOK+1!, VSLOOK+14*, VSLOOK+15*, VSLOOK+16*, VSLOOK+19*, VSLOOK+24*, VSLOOK4, VSLOOK4+1
, VSLOOK4+2, VSLOOK4+3, VSHELP+6*, VSHELP1, VSHELP1+1, VSHELP1+2, VSHELP1+4, VSHELP1+5, VSHELP1+6, VSHELP1+7
, VSHELP1+9, VSHELP1+10
>> ADEDIR DELIV+1, VSLOOK4+1, VSLOOK4+2, VSHELP1+2
>> ADENEWVS CTRL+5, VSLOOK+1*, VSLOOK+7*, VSLOOK+11*, VSLOOK+16*, VSLOOK+17*, VSLOOK+24*
>> ADEPAT DOD+1, VSLOOK+11, VSLOOK+15, VSHELP+4, VSHELP+6
ADEQ VSHELP+6*, VSHELP0!
ADETIMEE VSLOOK+2~, VSLOOK+3*, VSLOOK+11
ADEVCNT VSLOOK+14*, VSLOOK+16, VSLOOK+17, VSLOOK+19, VSLOOK+22!, VSLOOK+23!, VSLOOK+25!, VSLOOK4+1*, VSLOOK4+2*, VSLOOK4+3*
ADEVDATE DOD, VSLOOK+1!, VSLOOK+7*, VSLOOK+11*, VSLOOK+13*, VSLOOK+22!, VSLOOK+23!
ADEVDFN VSLOOK+16!, VSLOOK+22!, VSLOOK+23!, VSLOOK+25!
ADEVDFN( VSLOOK+19, VSLOOK+24, VSLOOK4+1*, VSLOOK4+2*, VSLOOK4+3*
ADEVDFN(1 VSLOOK+16
ADEVFM VSLOOK+13*, VSLOOK+15, VSLOOK+22!, VSLOOK+23!, VSHELP+6*
ADEX VSLOOK+21*, VSLOOK+22, VSLOOK+23, VSLOOK+24, VSLOOK+25!
DT VSLOOK+7, VSLOOK+9
DTIME VSLOOK+4, VSLOOK+21
U DELIV, DELIV+1, DOD+1, VSLOOK4+2, VSLOOK4+3, VSHELP1+1, VSHELP1+2, VSHELP1+4, VSHELP1+5
>> X DOD*, VSLOOK+4*, VSLOOK+5, VSLOOK+7*, VSLOOK+8, VSHELP
XQH VSHELP*!
>> Y CTRL+1, CTRL+3, CTRL+5, DELIV*, DELIV+1*, DOD+1*, DOD+2*, DOD+3*, VSLOOK+5*, VSLOOK+7*
, VSLOOK+9, VSLOOK+11*, VSLOOK+13, VSLOOK+16*, VSLOOK+17*, VSLOOK+22*, VSLOOK+24*, VSHELP+6*, VSHELP1+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All