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

Package: IHS Dental System

Routine: ADEMNG


Information

ADEMNG ; IHS/HQT/MJL - DENTAL FOLLOWUP MGMT ; [ 03/24/1999 9:04 AM ]

Source Information

Source file <ADEMNG.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Dental System 4 ^ADECLS  (P2,PTLOOK,R2,RESET)^ADEMNG1  ^ADEMNG3  ^ADEMNG6  
IHS VA Utilities 1 ^XBKVAR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Dental System 1 ADEGRL3  

Entry Points

Name Comments DBIA/ICR reference
END1
SEVEN ;------->GET ANOTHER PATIENT
EN ;EP
END
ADDR ;------->EDIT ADDRESS
SIX ;------->WRITE DATA TO DISK, QUIT IF CALLED INTERNALLY
TWO ;------->LOOK UP A PATIENT
; RETURN ADENEWM=1 IF NEW =0 IF EDIT
ONE ;------->RESET CONSTANT FOLLOWUP SUBTYPE
; RETURN ADESUB=DFN IN ^ADETYP(
FOUR ;------->CHECK IF ALREADY ON LIST ;***ASK IF SHOULD BE REMOVED
FIVE ;------->COLLECT FOLLOWUP INFO
Z
MOD ;------->LOAD LOCALS WITH EDIT DATA

External References

Name Field # of Occurrence
^ADECLS END
P2^ADEMNG1 ADDR+1
PTLOOK^ADEMNG1 TWO+2
R2^ADEMNG1 EN+4
RESET^ADEMNG1 ONE+2
^ADEMNG3 FIVE+1
^ADEMNG6 SIX+1
^XBKVAR ADEMNG+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DIVISION NOT SET IN USER FILE -- CONTACT SITE MANAGER OR ISC"
  • Line Location: ADEMNG+6
Function Call: WRITE
  • Prompt: !,"DIVISION SET TO ZERO (UNIVERSAL). DIVISION MUST BE SET TO ONE OF THE ",!,"SITES IN THE DENTAL SITE PARAMETER FILE. -- CONTACT SITE MANAGER"
  • Line Location: ADEMNG+7
Function Call: WRITE
  • Prompt: !,"***FOLLOWUP DATA ENTRY ABORTED***"
  • Line Location: ADDR+2
Function Call: WRITE
  • Prompt: !?5,*7,$P(^DPT(ADEPAT,0),U)," IS ALREADY ON THE ",$P(^ADETYP(ADESUB,0),U)," ",$S(ADEWAI:"WAITING",ADEREC:"RECALL",1:"REFERRAL")," LIST!"
  • Line Location: MOD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADEFOL - [#9002003.2] MOD+2
^ADEFOL("TYPE" FOUR+1, EN+6
^ADETYP - [#9002003.1] MOD+1
^ADEUTL("ADELOCK" ADDR+2!, SEVEN+1!
^DD("DD" MOD+3
^DIC(16 - [#16] MOD+4
^DPT - [#2] MOD+1

Label References

Name Line Occurrences
ADDR EN+7
END ONE+2
END1 ADDR+2, SIX+1, EN+4
MOD FOUR+1, EN+6
ONE TWO+2
TWO ADDR+2, SEVEN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADEDICS END1!
ADEFUNC END1!
ADEINT ADEMNG+4*, ADDR+2, SIX+1, END1!, EN+4*
ADELIN ADEMNG+4*, END!
ADEMACT SEVEN+2!, MOD+2*
ADEMDAT SEVEN+2!, END1!, MOD+2*
ADEMDFN SEVEN+2!, END1!, MOD+2, EN+6*
ADEMDUZ END1!
ADEMPRO SEVEN+2!, END1!, MOD+4*
ADEMPROD SEVEN+2!, END1!, MOD+2*, MOD+4
ADENEWM SEVEN+2!, END1!, EN+5*, EN+6*
ADENOD SEVEN+2!, MOD+2*
ADEPAT FOUR+1, ADDR+2, SEVEN+1, SEVEN+2!, MOD+1, EN+6
ADEPRI SEVEN+2!, END1!, MOD+2*, Z*
ADEREC ADEMNG+4, ADEMNG+5, END1!, MOD+1
ADEREF ADEMNG+4, ADEMNG+5, END1!
ADESUB FOUR+1, END1!, MOD+1, EN+6
ADESUBN END1!
ADETITL END1!
ADETYP ADEMNG+5*, FOUR+1, END1!, EN+6
ADEWAI ADEMNG+4, ADEMNG+5, END1!, MOD+1
DUZ(2 ADEMNG+6, ADEMNG+7
>> J MOD+3*
U MOD+1, MOD+2, MOD+4
>> Y ONE+2, TWO+2, ADDR+2, SIX+1, MOD+3*, EN+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All