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

Package: IHS Dental System

Routine: ADEDDTH


Information

ADEDDTH ; IHS/HQT/MJL - IHS-RPMS/MLQ ADD/EDIT GENERIC PROVIDER FILE ; [ 03/24/1999 9:04 AM ]

Source Information

Source file <ADEDDTH.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 ^DIC  YN^DICN  
IHS Dental System 1 ^ADEDDTH1  
IHS VA Utilities 1 ^XBKVAR  
Kernel 1 $$DTIME^XUP  

Entry Points

Name Comments DBIA/ICR reference
SERU ;EDIT SERVICE UNIT ^AUTTSU
SETA ;DISCIPLINE SPECIFIED FIELD ENTRY ORDER
SETB ;DISCIPLINE SPECIFIED FIELD NAMES
PROV ;EDIT PROVIDER ^DIC(6,
SETAI ;
SDDIC ;GET DD INFO, D ^DIC FOR PTR FIELDS
TRBE ;EDIT TRIBE ^AUTTTRI
SEO ;STORE SUBROUTINE NAMES IN ENTRY ORDER
FACL ;EDIT FACILITY, FORCE SERU ^AUTTLOC
KVAR ;KILL VARIABLES
LOOP ;

External References

Name Field # of Occurrence
^ADEDDTH1 LOOP+5
^DIC SDDIC+3
YN^DICN LOOP+6
^XBKVAR ADEDDTH+5
$$DTIME^XUP ADEDDTH+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"YOUR DISCIPLINE'S GENERIC PROVIDER FILE NUMBER IS NOT BEING SET IN THE KERNEL OPTION. SEE YOUR SITE MANAGER."
  • Line Location: ADEDDTH+11
Function Call: WRITE
  • Prompt: !,"YOUR DISCIPLINE'S GENERIC PARAMETER FILE NUMBER IS NOT BEING SET IN THE KERNEL OPTION. SEE YOUR SITE MANAGER."
  • Line Location: ADEDDTH+12
Function Call: WRITE
  • Prompt: !,"ADD/EDIT ANOTHER RECORD"
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: !,"EXITING ROUTINE"
  • Line Location: SDDIC+4
Function Call: WRITE
  • Prompt: !,$C(7),ADEFLDNM(ADEA)," IS REQUIRED"
  • Line Location: SDDIC+5
Routine Call
  • DIC
  • Line Location:
    • SDDIC+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( PROV+1, FACL+1, SERU+1, TRBE+1
^DIC - [#1] ADEDDTH+13, ADEDDTH+14

Label References

Name Line Occurrences
@( LOOP+2
KVAR LOOP+3, LOOP+8, SDDIC+4
LOOP LOOP+7
SDDIC PROV+1, FACL+1, SERU+1, TRBE+1, SDDIC+5
SETAI SETB+2
SETB SETA+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LOOP+6*, LOOP+7
ADEA LOOP+1*, LOOP+2*, SDDIC+1, SDDIC+2, SDDIC+4*, SDDIC+5, KVAR+2!
ADEAI SETAI+1*, KVAR+2!
ADEDDENT PROV+1*, FACL+1*, SERU+1*, TRBE+1*, SDDIC+1, SDDIC+3, SDDIC+5, SDDIC+7, KVAR+2!
ADEFEO SETA+1*, SETA+2*, SETA+3*, SETA+4*, SETAI+1, LOOP+10!
ADEFLDNM KVAR+1!
ADEFLDNM( SETAI+1*, SDDIC+1*, SDDIC+2, SDDIC+5
ADEFNM SETB+1*, SETB+2*, SETB+3*, SETAI+1, KVAR+2!
ADEGL SDDIC+7*, SDDIC+8, SDDIC+9, KVAR+3!
ADEI SETAI+1*, LOOP+2*, LOOP+4*, KVAR+3!
ADEPRMFN ADEDDTH+12, ADEDDTH+14, KVAR+2!
ADEPRMGN ADEDDTH+14*, SETA+1, SETB+1, KVAR+2!
ADEPROV LOOP+1!, KVAR+1!
ADEPROV( LOOP+4*, SDDIC+8*, SDDIC+9*
ADEPROV(2 FACL+2*
ADEPRVFN ADEDDTH+11, ADEDDTH+13, PROV+1, FACL+1, SERU+1, TRBE+1, KVAR+2!
ADEPRVGN ADEDDTH+13*, KVAR+2!
ADESUBNM KVAR+1!
ADESUBNM( SETAI+1
ADESUBNM(1 SEO+1*
ADESUBNM(2 SEO+1*
ADESUBNM(3 SEO+1*
ADESUBNM(4 SEO+1*
ADESUBRT KVAR+1!
ADESUBRT( SETAI+1*, LOOP+2
DIC SDDIC+3*, KVAR+2!
DIC("A" SDDIC+2*, KVAR+2!
DIC(0 SDDIC+3*, KVAR+2!
DTIME ADEDDTH+9*
DUZ ADEDDTH+9
X LOOP+3, SDDIC+4, KVAR+3!
>> XQUIT ADEDDTH+11*, ADEDDTH+12*
Y SDDIC+5, SDDIC+6, SDDIC+9, KVAR+3!
Y(0 FACL+2, SDDIC+8, KVAR+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All