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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ADEMDEL

Package: IHS Dental System

Routine: ADEMDEL


Information

ADEMDEL ; IHS/HQT/MJL - FOLLOWUP LIST DELETION ;06:50 PM [ 03/24/1999 9:04 AM ]

Source Information

Source file <ADEMDEL.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 (FILE,YN)^DICN  ^DIE  
IHS Dental System 1 (PTLOOK,RESET)^ADEMNG1  
IHS VA Utilities 1 ^XBKVAR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Dental System 1 ADEMBD  

Entry Points

Name Comments DBIA/ICR reference
EN
END
DEST
THREE
TWO ;------->LOOK UP A PATIENT
DEL ;EP
CRE ;CREATE ENTRY IN PATIENT FILE IF DOESN'T EXIST
ONE ;------->RESET CONSTANT FOLLOWUP SUBTYPE IF CALLED EXTERNALLY
; TYPE SET BY CALLING OPTION
; RETURN ADESUB=DFN IN ^ADETYP(
D1

External References

Name Field # of Occurrence
PTLOOK^ADEMNG1 TWO+1
RESET^ADEMNG1 ONE+3
FILE^DICN CRE+1
YN^DICN D1+2
^DIE CRE+9, DEST
^XBKVAR ADEMDEL+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DIVISION NOT SET IN USER FILE -- CONTACT SITE MANAGER OR ISC"
  • Line Location: ADEMDEL+8
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: ADEMDEL+9
Function Call: WRITE
  • Prompt: !?5,"--No changes made"
  • Line Location: TWO+4
Function Call: WRITE
  • Prompt: !,"***PATIENT NOT ON ",ADESUBN," LIST***",*7
  • Line Location: TWO+5
Function Call: WRITE
  • Prompt: !?5,"--DELETED"
  • Line Location: TWO+6
Routine Call
  • DIE
  • Line Location:
    • CRE+9
    • DEST

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ADEFOL - [#9002003.2] Classic Fileman Calls
^ADEPAT - [#9002010.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADEFOL - [#9002003.2] DEL+4
^ADEFOL("TYPE" D1, D1+1
^ADEPAT - [#9002010.2] CRE+1, CRE+6, CRE+7*, CRE+10*
^ADEUTL("ADELOCK" THREE!

Label References

Name Line Occurrences
CRE DEL+7
D1 DEL+2
DEL TWO+3, EN
DEST DEL+9
END ONE+3
ONE TWO+1
THREE TWO+4
TWO THREE

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % D1+2*
ADEADAT END!, DEL+5*, CRE+8
ADEFUNC ADEMDEL+7*, END!
ADEINT TWO+1*!
ADELIN ADEMDEL+5*, END!
ADEMDEL TWO+1*!
ADEMDFN TWO+3!, TWO+4, TWO+5, THREE!, END!, DEL+2*, DEL+4, D1+1*, D1+2*, DEST
ADENEWM END!
ADENOD END!, DEL+4*, DEL+5
ADEPAT THREE, END!, D1, D1+1, CRE+1, CRE+4, CRE+6, CRE+7, CRE+10
ADEREC ADEMDEL+5, ADEMDEL+6, END!
ADEREF ADEMDEL+5, ADEMDEL+6, END!
ADESUB END!, D1, D1+1, CRE+8
ADESUBN TWO+5, END!
ADETYP ADEMDEL+6*, END!, D1, D1+1
ADEWAI ADEMDEL+5, ADEMDEL+6, END!
DA CRE+3!, CRE+6*, CRE+7*, CRE+10, DEST*
DA(1 CRE+4*
DD CRE+1!
DIC CRE+1*, CRE+3!
DIC(0 CRE+1*
DIE CRE+3!, CRE+5*, DEST*
>> DINUM CRE+1*
DO CRE+1!
DR CRE+3!, CRE+8*, DEST*
DT CRE+8
DUZ(2 ADEMDEL+8, ADEMDEL+9
U DEL+5, CRE+6, CRE+10
X CRE+1*, CRE+3!
Y ONE+3, TWO+1, CRE+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All