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

Package: IHS Dental System

Routine: ADEFPC


Information

ADEFPC ; IHS/HQT/MJL - F COMPLIANCE PT 1 ;05:11 PM [ 03/24/1999 9:04 AM ]

Source Information

Source file <ADEFPC.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS Dental System 5 ^ADECLS  ^ADEFPC1  PCOMP^ADEFPC3  $$REP^ADEFPC4  $$HAT^ADEPQA  
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
VA Fileman 2 ^%DT  EN1^DIP  
IHS VA Utilities 1 ^XBKVAR  

Entry Points

Name Comments DBIA/ICR reference
PRE
ZTM ;EP TASKMAN ENTRY FOR PROCESSING PHASE
END
ROPT ;GET REPORT OPTIONS
PRNEND
PRINT ;EP TASKMAN ENTRY FOR PRINT PHASE
QUE ;
DATE ;GET DATE RANGE
ADEU() ;GET UNIQUE SUBSCRIPT NUMBER AND LOCK REPORT NODE
ADEU1
ASKDEV ;

External References

Name Field # of Occurrence
^%DT DATE+1, DATE+2
^%ZIS PRINT+12, ASKDEV+4
HOME^%ZIS ASKDEV+12
^%ZTLOAD QUE+9
^ADECLS PRE
^ADEFPC1 ZTM+21
PCOMP^ADEFPC3 ZTM+22
$$REP^ADEFPC4 ROPT+2
$$HAT^ADEPQA ROPT+3
EN1^DIP PRINT+19
^XBKVAR ADEFPC+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DIVISION NOT SET IN USER FILE -- CONTACT SITE MANAGER OR ISC"
  • Line Location: ADEFPC+3
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: ADEFPC+4
Function Call: WRITE
  • Prompt: $J("",(80-$L(ADEXX))\2)_ADEXX,!,!
  • Line Location: PRE+2
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ROPT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ROPT+3
Function Call: WRITE
  • Prompt: !!,"No reports selected."
  • Line Location: ROPT+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: ROPT+5
Function Call: WRITE
  • Prompt: "AREA"
  • Line Location: ROPT+6
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $L(ADEROPT)>2
  • Line Location: ROPT+6
Function Call: WRITE
  • Prompt: " and "
  • Condition for execution: ADEROPT=12
  • Line Location: ROPT+7
Function Call: WRITE
  • Prompt: "SERVICE UNIT"
  • Line Location: ROPT+7
Function Call: WRITE
  • Prompt: " and "
  • Condition for execution: $L(ADEROPT)>1
  • Line Location: ROPT+8
Function Call: WRITE
  • Prompt: "WATER SYSTEM"
  • Line Location: ROPT+8
Function Call: WRITE
  • Prompt: " Report"
  • Line Location: ROPT+9
Function Call: WRITE
  • Prompt: "s"
  • Condition for execution: $L(ADEROPT)>1
  • Line Location: ROPT+9
Function Call: WRITE
  • Prompt: " will be printed.",!
  • Line Location: ROPT+9
Function Call: WRITE
  • Prompt: !!,"Enter 'Q' at the DEVICE prompt to queue this report to run in the background."
  • Line Location: ASKDEV+2
Function Call: WRITE
  • Prompt: !,"REPORT IS QUEUED!"
  • Line Location: ASKDEV+13
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+12
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+12
    • ASKDEV+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ADEDUM - [#9002006.9] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADEFLU("B" ZTM+19, ZTM+20
^ADEPARAM - [#9002006] PRE+4
^ADEWS - [#9002004] ZTM+5, ZTM+6
^AUTTAREA - [#9999999.21] ZTM+16
^AUTTCOM - [#9999999.05] ZTM+10
^AUTTSU - [#9999999.22] ZTM+12
^TMP("ADEFPC" ROPT+12!, ROPT+14*, ROPT+17!, ZTM+1, ZTM+3*, ZTM+23, END, PRINT+1, PRINT+2, PRINT+3
, PRNEND+1!, ADEU1, ADEU1+1

Label References

Name Line Occurrences
$$ADEU ROPT+11
ADEU1 ADEU1+1
ASKDEV ROPT+16, ASKDEV+11
DATE DATE+3, ROPT+3
END DATE+2, DATE+3, ROPT+4, ROPT+17, ROPT+19, ZTM+1, ZTM+23, ZTM+25
PRINT ZTM+28, ZTM+29
PRNEND PRINT+1, PRINT+2, PRINT+3
QUE ASKDEV+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+1*!, DATE+2*!
%DT("A" DATE+1*, DATE+2*
%DT(0 DATE+1*, DATE+2*
>> %ZIS ASKDEV+3*
>> %ZIS("IOPAR" PRINT+11*, PRINT+14*
ADEABS END+1!
ADEABSMO END+1!
ADEAREA ZTM+15*, ZTM+16*, ZTM+17, ZTM+18*, END+4!
ADEARNAM ZTM+17*, END+4!
ADEBD DATE+2*, ZTM+2, ZTM+3, END+1!
ADEBM END+1!
ADEBSU END+1!
ADECML END+1!
ADECOMM ZTM+9*, ZTM+10*, ZTM+11, ZTM+15, END+1!
ADECOMP PRE+4*, END+1!
ADECPPM END+1!
ADECUR END+1!
ADED0 END+5!, PRINT+9~, PRINT+16*
ADED1 END+5!, PRINT+9~, PRINT+16*
ADED2 END+5!, PRINT+9~
ADED3 END+5!, PRINT+9~
ADEDEF END+1!
ADEED DATE+3*, ZTM+2, ZTM+3, END+1!
ADEEM END+1!
ADEESU END+1!
ADEFLDFN ZTM+20*, END+1!
ADEINC END+1!
ADEIOP ZTM+27, END+4!, PRINT+10, PRINT+13, ASKDEV+1!, ASKDEV+6*, ASKDEV+11!, QUE+8
ADEIOPAR END+5!, PRINT+11, PRINT+14, ASKDEV+1!, ASKDEV+7*
ADEJ ZTM+2*, ZTM+3, END+2!, QUE+1~, QUE+3*
ADEK END+2!
ADELAT END+2!
ADELIN END+2!
ADEMCNT END+2!
ADEMO END+4!
ADEMOCNT END+2!
ADEMPPM END+2!
ADENAT END+2!
ADENEX END+2!
ADENEXMO END+2!
ADENOD END+6!
ADENOLOK PRINT+3*, PRNEND+1, PRNEND+2!
ADEOPT END+2!
ADEPAG END+2!
ADEPOP END+2!
ADEQ END+2!
ADEQIT END+2!
ADEROPT PRE+3~, ROPT+2*, ROPT+4, ROPT+6, ROPT+7, ROPT+8, ROPT+9, END+6!, PRINT+6, PRINT+7
, PRINT+8
ADESHORT END+2!
ADESL END+2!
ADESTOP END+3!
ADESU ZTM+11*, ZTM+12*, ZTM+13, ZTM+14*, END+3!
ADESUCNT END+3!
ADESUNAM ZTM+13*, END+4!
ADESYCNT END+3!
ADESYS END+3!
ADETCNT END+3!
ADETDAY END+3!
ADETMON END+4!
ADETPPM END+3!
ADETST END+3!
ADEU ROPT+11*, ROPT+12, ROPT+14, ROPT+17, ZTM+1, ZTM+3, ZTM+23, END, END+4!, PRINT+1
, PRINT+2, PRINT+3, PRNEND+1, ADEU+2*, ADEU1*, ADEU1+1*, ADEU1+2
ADEWSDFN ZTM+4*, ZTM+5*, ZTM+6, ZTM+19, ZTM+20, END+3!
ADEWSNAM ZTM+7*, END+3!
ADEWSNOD ZTM+6*, ZTM+7, ZTM+8, ZTM+9, END+3!
ADEX END+3!
ADEXX PRE+1*, PRE+2, END+3!
ADEYM END+3!
ADEZTSK END+5!, PRINT+18*, PRINT+20
BY PRINT+9~, PRINT+15*
DHD PRINT+9~
DIC PRINT+9~, PRINT+15*
DT DATE+1, DATE+3, ZTM+3
DUZ(2 ADEFPC+3, ADEFPC+4, PRE+4
FLDS PRINT+4~, PRINT+5*, PRINT+6, PRINT+7, PRINT+8
>> FR PRINT+15*
IO("HFSIO" QUE+7
IO("Q" ASKDEV+8
IOM ASKDEV+6
ION ASKDEV+6
IOP PRINT+10*, PRINT+13*, ASKDEV+1!, ASKDEV+11!
>> IOPAR ASKDEV+7
IOSL ASKDEV+6
>> IOT ZTM+26
>> POP ROPT+17, ASKDEV+5
>> TO PRINT+15*
U PRE+4, DATE+1*, ZTM+3, ZTM+8, ZTM+13, ZTM+14, ZTM+17, ZTM+18, ZTM+27
>> X DATE+3
Y DATE+2, DATE+3, PRINT+9~
>> ZTDESC QUE+2*
>> ZTIO QUE+6*, QUE+8*
>> ZTQUEUED ROPT+19, ZTM+1, ZTM+25, ZTM+29, PRINT+3, PRINT+18, PRNEND, ASKDEV+11
>> ZTREQ ZTM+1*, ZTM+27*, PRNEND*
>> ZTRTN QUE+2*
>> ZTSAVE( QUE+3*
>> ZTSAVE("ADEIOPAR" QUE+4*
>> ZTSAVE("ADEROPT" QUE+5*
ZTSK PRINT+18!, PRINT+20*, ASKDEV+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All