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

Package: IHS Dental System

Routine: ADEPV1


Information

ADEPV1 ; IHS/HQT/MJL - DENTAL VISIT REPORT PT 2 ;09:25 AM [ 03/24/1999 9:04 AM ]

Source Information

Source file <ADEPV1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZISC  
IHS VA Utilities 1 ^XBKVAR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Dental System 1 ADEPV  

Entry Points

Name Comments DBIA/ICR reference
P2
TRIBE
HEADER
P1
END
EOP1
FACTOT
EOP
ROLLEND
COMMUN
START ;EP - TASKMAN PROCESSING PHASE
END2 ;
FAC
PRINT ;EP - TASKMAN PRINT PHASE
RO1
TOTAL
ROLL

External References

Name Field # of Occurrence
^%ZIS PRINT+4
^%ZISC END2+1
^XBKVAR START+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "."
  • Line Location: ROLL+0
Function Call: WRITE
  • Prompt: !,ADECOM
  • Line Location: P2+1
Function Call: WRITE
  • Prompt: ?31,$J($P(ADEDAT,U),9),?41,$J($P(ADEDAT,U,2),9),?51,$J($P(ADEDAT,U,3),9),?61,$J($P(ADEDAT,U,4),9)
  • Line Location: P2+3
Function Call: WRITE
  • Prompt: @IOF,"TOTAL FOR ALL FACILITIES",?65,"PAGE ",ADEPAG
  • Line Location: FACTOT+0
Function Call: WRITE
  • Prompt: !,?35,"FIRST",?55,"BROKEN",!?35,"VISIT",?45,"REVISIT",?55,"APPTS",?65,"PTC",!,ADELIN
  • Line Location: FACTOT+1
Function Call: WRITE
  • Prompt: !!,?31,$J(ADEFVTT,9),?41,$J(ADERVTT,9),?51,$J(ADEBATT,9),?61,$J(ADENOCT,9)
  • Line Location: FACTOT+2
Function Call: READ
  • Prompt: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: EOP1+0
Function Call: WRITE
  • Prompt: @IOF,ADEFAC," ",ADETITL,?65,"PAGE ",ADEPAG,!,"FOR VISITS BETWEEN ",ADEBDT," AND ",$P(ADEND,"@")
  • Line Location: HEADER+0
Function Call: WRITE
  • Prompt: !!,?35,"FIRST",?55,"BROKEN",!
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: $S(ADETITL["TRIB":"TRIBE",ADETITL["FACIL":"DENTIST",1:"COMMUNITY"),?35,"VISIT",?45,"REVISIT",?55,"APPTS",?65,"PTC",!,ADELIN
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !!,"TOTAL:",?31,$J(ADEFVT,9),?41,$J(ADERVT,9),?51,$J(ADEBAT,9),?61,$J(ADENOC,9)
  • Line Location: TOTAL+0
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADEPCD - [#9002007] RO1+1, RO1+2, RO1+3, RO1+6, RO1+7, RO1+9, RO1+11, RO1+12, TRIBE+1, TRIBE+2
, COMMUN+1, FAC+1
^ADEPCD("AC" ROLL, RO1
^AUPNPAT - [#9000001] TRIBE+3, TRIBE+4, COMMUN+2, COMMUN+3
^AUTTADA("B" START+6
^AUTTLOC - [#9999999.06] RO1+3, P1
^AUTTTRI - [#9999999.03] TRIBE+5, TRIBE+6
^DD("DD" PRINT+7
^DIC(16 - [#16] FAC+2, FAC+3

Label References

Name Line Occurrences
COMMUN RO1+4
END START+1, PRINT+1, P1+1, P2+4, FACTOT
END2 ROLLEND+2
EOP P2+4
EOP1 P1+1, FACTOT
FAC RO1+4
FACTOT P1
HEADER EOP1+1
P1 P2
P2 P2+4
RO1 RO1+1, RO1+3, RO1+4, RO1+13
ROLL RO1
ROLLEND ROLL
TOTAL P2
TRIBE RO1+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS("IOPAR" PRINT+3*
ADEBA START+6*, RO1+9, END2+5!
ADEBA1 START+6*, RO1+11, END2+5!
ADEBAT P1+1*, P2+2*, END2+3!, TOTAL
ADEBATT PRINT+6*, FACTOT+2, END2+3!, TOTAL*
ADEBDT START+2, ROLLEND, PRINT+6*, PRINT+7*, END2+3!, HEADER
ADECA START+6*, END2+5!
ADECA1 START+6*, END2+5!
ADECOM RO1+5, RO1+6, RO1+7, RO1+9, RO1+11, RO1+12, P1*, P2*, P2+1, END2+3!
, TRIBE+4*, TRIBE+5, TRIBE+6*, COMMUN+3*, FAC+1*, FAC+2, FAC+3*
ADEDAT P2+1*, P2+2, P2+3, END2+3!
ADEDFN ROLL*, RO1*, RO1+1, RO1+2, RO1+3, RO1+6, RO1+7, RO1+9, RO1+11, RO1+12
, END2+5!, TRIBE+1, TRIBE+2, COMMUN+1, FAC+1
ADEDT START+2*, ROLL*, RO1, END2+3!
ADEFAC P1*, END2+3!, HEADER
ADEFV START+6*, RO1+7, END2+5!
ADEFVT P1+1*, P2+2*, END2+3!, TOTAL
ADEFVTT PRINT+6*, FACTOT+2, END2+3!, TOTAL*
ADEGBL START+1, RO1+5, RO1+6*, RO1+7*, RO1+9*, RO1+11*, RO1+12*, ROLLEND, ROLLEND+3, ROLLEND+5
, PRINT+1, PRINT+6, P1, P2, P2+1, END+1, END+2, END2+5!
ADEIOP ROLLEND+4, PRINT+2, END2+2!
ADEIOPAR PRINT+3, END2+2!
ADELIN PRINT+6*, FACTOT+1, END2+3!, HEADER+2
ADELOE RO1+3*, RO1+5, RO1+6, RO1+7, RO1+9, RO1+11, RO1+12, PRINT+6*, P1*, P2
, P2+1, END2+3!, EOP1+1
ADEND ROLL, ROLLEND, PRINT+6*, PRINT+7*, END2+3!, HEADER
ADENOC P1+1*, P2+2*, END2+3!, TOTAL
ADENOCT PRINT+6*, FACTOT+2, END2+3!, TOTAL*
ADENOLOK PRINT+1*, END+2, END2+2!
ADEOLD END2+3!
ADEPAG PRINT+6*, FACTOT, END2+3!, EOP1, HEADER, HEADER+3*
ADEPAT RO1+2*, END2+5!, TRIBE+2*, TRIBE+3, TRIBE+4, COMMUN+1*, COMMUN+2, COMMUN+3
ADEPTC START+6*, RO1+12, END2+5!
ADEQIT P1+1*, P2+4*, FACTOT*, END2+3!, EOP1*
ADEREV START+6*, RO1+6, END2+5!
ADERPD END2+3!
ADERVT P1+1*, P2+2*, END2+3!, TOTAL
ADERVTT PRINT+6*, FACTOT+2, END2+3!, TOTAL*
ADETITL RO1+4, ROLLEND, END2+5!, HEADER, HEADER+2
ADEVIS END2+5!
ADEY RO1+4, END2+5!, TRIBE*, TRIBE+7*, COMMUN*, COMMUN+4*, FAC*, FAC+4*
DT ROLLEND
DTIME EOP1
IO PRINT+5
IOF FACTOT, HEADER
>> IOP PRINT+2*
IOSL EOP
IOST EOP1
>> IOT ROLLEND+2
U RO1+2, RO1+3, RO1+6, RO1+7, RO1+9, RO1+11, RO1+12, ROLLEND, ROLLEND+4, PRINT+6
, P1, P2+2, P2+3, TRIBE+2, TRIBE+4, TRIBE+6, COMMUN+1, COMMUN+3, FAC+1, FAC+3
>> X EOP1*
>> Y PRINT+7*
>> ZTQUEUED START+1, START+3, ROLL, ROLLEND+2, ROLLEND+5, PRINT+1, END
>> ZTREQ START+1*, ROLLEND+4*, END*
ZTSK END2+5!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All