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

Package: IHS Dental System

Routine: ADEGRL


Information

ADEGRL ; IHS/HQT/MJL - DENTAL DATA ENTRY PT 1 ; [ 03/24/1999 9:04 AM ]

Source Information

Source file <ADEGRL.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Dental System 5 INIT^ADEGRL0  (PTLOOK,RESET)^ADEGRL1  ^ADEGRL2  ^ADEGRL3  ^ADEGRL6  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Dental System 2 ADEATT  ADELETE  

Entry Points

Name Comments DBIA/ICR reference
MOD0
MOD1
SEVEN ;------->GET ANOTHER PATIENT
Z
END ;EP
A
SIX ;------->WRITE DATA TO DISK
CHKQ
THREE ;------->GET A VISIT DATE
TWO ;------->LOOK UP A PATIENT
FOUR ;------->LOAD LOCAL VARIABLES WITH CURRENT VISIT DATA
LOAD(ADEDFN) ;Given ADEDFN, loads local arrays with visit data
FIVE ;------->COLLECT VISIT INFO
MOD4 ;------->Get Location, Provider, etc.
MOD2
ONE ;------->RESET CONSTANT VALUES
MOD ;EP

External References

Name Field # of Occurrence
INIT^ADEGRL0 ADEGRL+4
PTLOOK^ADEGRL1 TWO+3
RESET^ADEGRL1 ONE+1
^ADEGRL2 THREE+1
^ADEGRL3 FIVE+1
^ADEGRL6 SIX+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Press RETURN to change LOCATION of ENCOUNTER"
  • Line Location: TWO+1
Function Call: WRITE
  • Prompt: !,?15,"-OR-"
  • Line Location: TWO+2
Function Call: WRITE
  • Prompt: !,*7,"ERROR DETECTED -- DENTAL RECORDS ARE IN THE QUEUE WHICH ARE NOT BEING",!,"POSTED. CONTACT SITE MANAGER OR DENTAL HEADQUARTERS FOR ASSISTANCE BEFORE",!,"ENTERING MORE DATA"
  • Line Location: CHKQ+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADEOPS - [#9002010.03] Z+1
^ADEPCD - [#9002007] MOD1, MOD2, MOD2+3, MOD4+2, MOD4+4, MOD4+6, MOD4+8, MOD4+10
^ADEPOST CHKQ
^ADEPOST(0 CHKQ+1
^ADEUTL("ADEDQUE" CHKQ+1
^ADEUTL("ADELOCK" THREE+1!
^ADEUTL($J END+2, END+3!
^AUTTADA - [#9999999.31] MOD1+1, MOD2+1
^DIC(16 - [#16] MOD4+4, MOD4+6
^DIC(4 - [#4] MOD4+2

Label References

Name Line Occurrences
END ADEGRL+4, ONE+1
LOAD MOD+2
MOD FOUR+1
MOD1 MOD1+1, MOD2+1
MOD2 A+3, Z+1, Z+4
MOD4 MOD1
ONE TWO+3
TWO THREE+1, SEVEN+1

Naked Globals

Name Field # of Occurrence
^(0 MOD4+2, MOD4+4, MOD4+6, MOD4+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADE END+4!
ADECNT END+4!, MOD1!, MOD1+2*, MOD2+1, MOD2+2*, A+3, Z+2, Z+3
ADECOD END+4!
ADECON END+4!, MOD2+1, A
ADED0 END+4!
ADEDEF END+4!
ADEDEL END+4!
ADEDENT END+4!
ADEDES END+4!
ADEDES( MOD2+1*
ADEDFN END+4!, MOD+2, LOAD~, MOD1, MOD2, MOD2+3, MOD4+2, MOD4+4, MOD4+6, MOD4+8
, MOD4+10
ADEDIC END+4!
ADEDICS END+4!
ADEDIR END+4!
ADEDUP END+4!
ADEDUZ END+7!
ADEDUZ(2 END+1
ADEFAC END+4!, MOD+1
ADEFACD END+4!, MOD+1
ADEFAST END+4!
ADEFEE END+4!
ADEFLG END+4!
ADEHOLD END+4!
ADEHRN END+5!
ADEI END+5!
ADEJ END+5!, LOAD+1~, MOD0*, MOD1*, MOD1+1, MOD2, MOD2+1
ADEK END+5!, LOAD+1~, MOD1!, MOD1+2*, MOD2*, MOD2+1*, MOD2+3
ADELIN END+5!
ADELN END+5!
ADELOCFC END+7!
ADELOCSI END+7!
ADELOE END+5!, MOD+1*, MOD4+1!, MOD4+2*, MOD4+3*
ADELOED END+5!, MOD+1*, MOD4+1!, MOD4+2*, MOD4+3*
ADEMOD END+5!
ADENEW END+5!
ADENEWPT END+5!
ADENEWVS END+5!, MOD+1
ADENOD LOAD+1~, MOD2+3*, A, A+1, A+2, Z
ADENONR LOAD+1~, MOD1+2*, MOD2+1, A+3*
ADENOOP END+5!
ADENOTE END+5!, MOD+1*, MOD4+8*, MOD4+9*
ADENOUPD END+5!
ADEODFN END+5!
ADEOP END+5!, LOAD+1~, MOD0*, MOD1!, MOD1+2*, MOD2+1, Z+2*
ADEPAT THREE+1, END+5!
ADEPC END+5!
ADEPNM END+5!
ADEPRO END+5!, MOD+1
ADEPROD END+6!, MOD+1
ADEPVNM END+6!, MOD+1*, MOD4+1!, MOD4+4*, MOD4+5*
ADEPVNMD END+6!, MOD+1*, MOD4+1!, MOD4+4*, MOD4+5*
ADEQTY END+6!
ADEQUIT END+7!
ADERDNM END+6!, MOD+1*, MOD4+1!, MOD4+6*, MOD4+7*
ADERDNMD END+6!, MOD+1*, MOD4+1!, MOD4+6*, MOD4+7*
ADEREB END+6!
ADEREP END+6!, MOD+1
ADEREPD END+6!, MOD+1
ADES END+6!
ADESFC LOAD+1~, MOD1+2*, MOD2+1, Z+3*
ADESTR END+6!
ADESVC END+6!
ADETCH SEVEN+1!, END+6!, MOD+1*, MOD4+10*
ADETCHF SEVEN+1!, END+6!, MOD+1*, MOD4+10*
ADETFE END+6!, LOAD+1~, MOD1+2*, MOD2+1, A*
ADETITL END+6!
ADETMP END+6!
ADEV END+6!
ADEV( MOD2+1*
ADEVCNT END+6!
ADEVDATE END+6!
ADEVDFN END+7!
ADEVFM END+7!
ADEVIS END+7!
ADEX END+7!, LOAD+1~, A+1*, A+3, Z+1, Z+2
ADEY END+7!, LOAD+1~, Z*, Z+3
ADEZ LOAD+1~, A+2*, A+3
>> AUPNLK("ALL" END+7!
DUZ(2 END+1*, END+2*
U MOD2+1, A, A+1, A+2, Z, MOD4+2, MOD4+4, MOD4+6, MOD4+8, MOD4+10
>> Y ADEGRL+4, ONE+1, TWO+3, THREE+1, CHKQ*, CHKQ+1*, CHKQ+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All