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

Package: IHS Dental System

Routine: ADEPSUB


Information

ADEPSUB ; IHS/HQT/MJL -SUBROUTINE & FUNCTION LIBRARY ;05:06 PM [ 03/24/1999 9:04 AM ]

Source Information

Source file <ADEPSUB.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
VA Fileman 2 EN1^DIP  ^DIR  
IHS Dental System 1 $$HAT^ADEPQA  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
IHS Dental System 9 ADEKRP  ADEKSAV  ADEPDDM  ADEPDDS  ADEPDDY  ADEPHY  ADEPHYM  ADEPHYY  
ADEPX  

Entry Points

Name Comments DBIA/ICR reference
MMONTH() ;EP - Returns "1 or 0^Begin^End"
YDATE ;EP - DATE PROCESSING FOR ANNUAL REPORTS
ADEU1
MDATE ;EP - MONTHLY REPORTS
QDATE ;EP - DATE PROCESSING FOR QUARTERLY REPORTS
QMONTH() ;EP Returns "1 or 0^Begin^End"
MDAT1
QUE ;
PRINT(FLDS,ADEDHD) ;EP
PRNEND
YMONTH() ;EP Returns "1 or 0^Begin^End"
ADEU() ;GET UNIQUE SUBSCRIPT NUMBER AND LOCK REPORT NODE
YDAT1
QDAT1
ASKDEV(ADERTN,ADEDESC) ;EP - DEVICE SELECTION

External References

Name Field # of Occurrence
^%ZIS ASKDEV+6, PRINT+5
HOME^%ZIS ASKDEV+14
^%ZTLOAD QUE+14
$$HAT^ADEPQA MDAT1+1, QDAT1+1, YDAT1+1
EN1^DIP PRINT+16
^DIR MDAT1, QDAT1, YDAT1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MMONTH+2
Function Call: WRITE
  • Prompt: !?5,"Please enter only the month and year"
  • Line Location: MDAT1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: QMONTH+2
Function Call: WRITE
  • Prompt: !?5,"Please enter only the month and year"
  • Line Location: QDAT1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: YMONTH+2
Function Call: WRITE
  • Prompt: !?5,"Please enter only the month and year"
  • Line Location: YDAT1+3
Function Call: WRITE
  • Prompt: !!,"Enter 'Q' at the DEVICE prompt to queue this report to run in the background."
  • Line Location: ASKDEV+4
Function Call: WRITE
  • Prompt: !,"REPORT IS QUEUED!"
  • Line Location: ASKDEV+15
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+14
Routine Call
  • DIR
  • Line Location:
    • MDAT1
    • QDAT1
    • YDAT1
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+6
    • PRINT+5

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)
^ADEPARAM - [#9002006] PRINT+9
^ADEPARAM(0 PRINT+9
^DD("DD" PRINT+11
^DIC(4 - [#4] PRINT+9
^TMP("ADEP" ADEU1, ADEU1+1, PRINT+1, PRNEND+1!

Label References

Name Line Occurrences
$$MMONTH MDATE+4
$$QMONTH QDATE+2
$$YMONTH YDATE+2
ADEU1 ADEU1+1
ASKDEV ASKDEV+13
MDAT1 MDAT1+3
PRNEND PRINT+1
QDAT1 QDAT1+3
QUE ASKDEV+11
YDAT1 YDAT1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS ASKDEV+5*
>> %ZIS("IOPAR" PRINT+4*, PRINT+7*
ADEBEG MDATE+3~, MDATE+5*, MDATE+7, MMONTH+1~, MDAT1+2*, MDAT1+3, MDAT1+4, MDAT1+5, QDATE+1~, QDATE+3*
, QDATE+8, QMONTH+1~, QDAT1+2*, QDAT1+3, QDAT1+4, QDAT1+14, QDAT1+17, YDATE+1~, YDATE+3*, YDATE+7
, YMONTH+1~, YDAT1+2*, YDAT1+3, YDAT1+4, YDAT1+5, YDAT1+6
ADECNT MDATE+3~, MDATE+6*, MDATE+7*, QDATE+1~, QDATE+4*, QDATE+6*, YDATE+1~, YDATE+4*, YDATE+5*
ADED0 PRINT+2~, PRINT+13*
ADED1 PRINT+2~, PRINT+13*
ADED2 PRINT+2~, PRINT+13*
ADED3 PRINT+2~
>> ADEDATE MDATE+4*, MDATE+5, QDATE+2*, QDATE+3, YDATE+2*, YDATE+3, PRINT+11
>> ADEDDS QUE+8
ADEDESC ASKDEV~, QUE+3
ADEDHD PRINT~, PRINT+10
ADEIOP ASKDEV+3!, ASKDEV+8*, ASKDEV+13!, QUE+13, PRINT+3, PRINT+6
ADEIOPAR ASKDEV+3!, ASKDEV+9*, PRINT+4, PRINT+7
ADEJ MDATE+3~, MDATE+7*, QDATE+1~, QDATE+6*, QDATE+15, YDATE+1~, YDATE+5*, YDATE+8, QUE+1~, QUE+4*
ADEMO YDATE+12~, YDATE+14*, YDATE+15*, YDATE+16*, YDATE+17*, YDATE+18, YDATE+19!
ADEND MMONTH+1~, MDAT1+4*, MDAT1+5, QMONTH+1~, QDAT1+4*, QDAT1+13, QDAT1+14, QDAT1+15*, QDAT1+17, YMONTH+1~
, YDAT1+4*, YDAT1+5*, YDAT1+6
>> ADENDM QDAT1+13*, QDAT1+15
ADENDY QMONTH+1~, QDAT1+14*, QDAT1+15, YMONTH+1~
ADENOLOK PRINT+1*, PRNEND+1, PRNEND+2!
ADERTN ASKDEV~, QUE+2
ADETMP QDATE+7~, QDATE+15*, QDATE+16, QDATE+17, QDATE+18, YDATE+6~, YDATE+8*, YDATE+9*, YDATE+10
>> ADEU ADEU+2*, ADEU1*, ADEU1+1*, ADEU1+2, PRINT+1, PRNEND+1
ADEWK QDATE+7~, QDATE+8*, QDATE+15, QDATE+16*, QDATE+17*, QDATE+18*, QDATE+20, YDATE+6~, YDATE+7*, YDATE+8
, YDATE+10*, YDATE+11, YDATE+13*, YDATE+14, YDATE+18*, YDATE+20
>> ADEWK3 QUE+5
ADEX MDATE+3~, MDATE+7*, QDATE+1~, QDATE+6*, QDATE+20, YDATE+1~, YDATE+5*, YDATE+20
>> ADEZTSK PRINT+15*, PRINT+17
BY PRINT+2~, PRINT+8*
DHD PRINT+2~, PRINT+9*, PRINT+10*, PRINT+12*
DIC PRINT+2~, PRINT+8*
DIR MMONTH+1~, QMONTH+1~, YMONTH+1~
DIR("A" MMONTH+2*, QMONTH+2*, YMONTH+2*
DIR(0 MMONTH+3*, QMONTH+3*, YMONTH+3*
DT MMONTH+3, QMONTH+3, YMONTH+3
FLDS PRINT~
>> FR PRINT+8*
IO("HFSIO" QUE+12
IO("Q" ASKDEV+10
IOM ASKDEV+8
ION ASKDEV+8
IOP ASKDEV+3!, ASKDEV+13!, PRINT+3*, PRINT+6*
>> IOPAR ASKDEV+9
IOSL ASKDEV+8
>> POP ASKDEV+7
>> TO PRINT+8*
U MDATE+5, MDAT1+5, QDATE+3, QDAT1+17, YDATE+3, YDAT1+6, PRINT+9, PRINT+11
X MMONTH+1~, QMONTH+1~, YMONTH+1~
Y MMONTH+1~, MDAT1+2, QMONTH+1~, QDAT1+2, YMONTH+1~, YDAT1+2, PRINT+2~, PRINT+11*, PRINT+12
>> ZTDESC QUE+3*
>> ZTIO QUE+11*, QUE+13*
>> ZTQUEUED ASKDEV+13, PRINT+1, PRINT+15, PRNEND
>> ZTREQ PRNEND*
>> ZTRTN QUE+2*
>> ZTSAVE( QUE+4*
>> ZTSAVE("ADEDDS" QUE+9*
>> ZTSAVE("ADEDNAM(" QUE+10*
>> ZTSAVE("ADEHNAM(" QUE+7*
>> ZTSAVE("ADEHYG" QUE+6*
>> ZTSAVE("ADEWK3" QUE+5*
ZTSK ASKDEV+3!, PRINT+15!, PRINT+17*
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