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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ADEPLV1

Package: IHS Dental System

Routine: ADEPLV1


Information

ADEPLV1 ; IHS/HQT/MJL - DENTAL LVL OF SVC ; [ 03/24/1999 9:04 AM ]

Source Information

Source file <ADEPLV1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZISC  
IHS Dental System 1 $$INDIAN^ADEKNT  
IHS VA Utilities 1 ^XBKVAR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Dental System 1 ADEPLV  

Entry Points

Name Comments DBIA/ICR reference
P2 ;I ADEPDET S ADERPD=$O(@ADEGBL@(ADELOE,ADERPD)) I '+ADERPD S ADEDAT=@ADEGBL@(ADELOE,0) W !,"TOTAL FOR ",ADEFAC,":" D CALC G:ADEQIT END G P1
HEADER
P1
END
EOP1
FACTOT ;D EOP1 G:ADEQIT END S ADEFAC="TOTAL FOR ALL FACILITIES",ADEDAT=@ADEGBL@(0) D HEADER,CALC G:ADEQIT END
EOP
NON
ROLLEND
START ;EP - TASKMAN PROCESSING PHASE
END2 ;
PRINT ;EP - TASKMAN PRINT PHASE
RO1
RO3
IND ;CALLED WITH ADEY=0
ROLL
CALC ;

External References

Name Field # of Occurrence
^%ZIS PRINT+4
^%ZISC END2+1
$$INDIAN^ADEKNT IND+5
^XBKVAR START+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"TOTAL FOR ",ADEFAC,":"
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: !,"TOTAL FOR ",ADEFAC,":"
  • Line Location: P2+2
Function Call: WRITE
  • Prompt: !,$P(^DIC(16,ADERPD,0),U)
  • Line Location: P2+4
Function Call: WRITE
  • Prompt: !,$P(^DIC(16,ADERPD,0),U)
  • Line Location: P2+6
Function Call: WRITE
  • Prompt: !,"TOTAL FOR ",ADEFAC,":"
  • Line Location: P2+8
Function Call: WRITE
  • Prompt: !,"TOTAL FOR ",ADEFAC,":"
  • Line Location: P2+10
Function Call: WRITE
  • Prompt: !,"LEVEL ",ADELV,": ",?20,$J($P(ADEDAT,U,(Z*2-1)),4),?30,$J($P(ADEDAT,U,Z*2),6)
  • Line Location: CALC+5
Function Call: WRITE
  • Prompt: !,"LEVEL ",ADELV,":"
  • Line Location: CALC+9
Function Call: WRITE
  • Prompt: ?20,$J($P(ADEDAT,U,(Z*2-1)),4)
  • Line Location: CALC+10
Function Call: WRITE
  • Prompt: ?30,$J($P(ADEDAT,U,Z*2),6)
  • Line Location: CALC+11
Function Call: WRITE
  • Prompt: ?40,$J(+$P($G(ADERVUD),U,Z*2),6)
  • Line Location: CALC+12
Function Call: WRITE
  • Prompt: !,"LEVEL ",ADELV,": ",?20,$J($P(ADEDAT,U,(Z*2-1)),4),?30,$J($P(ADEDAT,U,Z*2),6),?40,$J(+$P($G(ADERVUD),U,Z*2),6)
  • Line Location: CALC+18
Function Call: WRITE
  • Prompt: !,"TOTAL LVL 1-6: ",?20,$J(ADESVRT,4),?30,$J(ADESMRT,6),?40,$J(ADERVUTO,6)
  • Line Location: CALC+22
Function Call: READ
  • Prompt: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: EOP1+0
Function Call: WRITE
  • Prompt: @IOF,ADEFAC," LEVEL OF SERVICES"_ADETITL,?65,"PAGE ",ADEPAG,!,"FOR VISITS BETWEEN ",ADEBDT," AND ",$P(ADEND,"@")
  • Line Location: HEADER+0
Function Call: WRITE
  • Prompt: !!,?20,"SVCS",?30,"MINUTES",?40,"RVUs",!,ADELIN
  • Line Location: HEADER+3
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADEPCD - [#9002007] RO1+1, RO1+2, RO1+18, RO3, RO3+2
^ADEPCD("AC" ROLL, RO1
^AUPNPAT - [#9000001] NON+1, NON+2
^AUTTADA - [#9999999.31] RO3+3, RO3+5, RO3+7
^AUTTLOC - [#9999999.06] RO1+8, P1+1
^DD("DD" PRINT+7
^DIC(16 - [#16] P2+6
^DIC(6 - [#6] RO1+13
^DIC(7 - [#7] RO1+13

Label References

Name Line Occurrences
CALC P2+2, P2+6, P2+10, FACTOT+2
END START+1, PRINT+1, P1+1, P2+2, P2+6, P2+10, FACTOT+2
END2 ROLLEND+2
EOP CALC+17, CALC+24
EOP1 P1+1, FACTOT+2
FACTOT P1
HEADER FACTOT+2, EOP1+1
IND RO1+5, RO1+7
P1 P2+2, P2+10
P2 P2+6
RO1 RO1+1, RO1+3, RO1+5, RO1+7, RO1+8, RO1+13, RO1+19
RO3 RO1+18
ROLL RO1
ROLLEND ROLL

Naked Globals

Name Field # of Occurrence
^(0 RO3+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS("IOPAR" PRINT+3*
ADEACP RO3*, RO3+3, RO3+5, RO3+7, END2+6!
ADEBDT START+2, ROLLEND, PRINT+6*, PRINT+7*, END2+6!, HEADER
ADECON RO1+3, END2+6!
ADEDAT P2+2*, P2+6*, P2+10*, CALC+10, CALC+11, CALC+14, CALC+15, FACTOT+2*, END2+6!
ADEDFN ROLL*, RO1*, RO1+1, RO1+2, RO1+18, RO3, RO3+2, END2+7!
ADEDIR RO1+5, END2+6!
ADEDT START+2*, ROLL*, RO1, END2+6!
ADEFAC P1+1*, P2+2, P2+10, FACTOT+2*, END2+6!, HEADER
ADEGBL START+1, START+5, START+7, RO1+9, RO1+11, RO1+14, RO1+16, RO3+9*, RO3+11*, RO3+13*
, RO3+15*, RO3+16*, RO3+18*, RO3+21*, RO3+22*, ROLLEND, ROLLEND+3, ROLLEND+5, PRINT+1, PRINT+6
, P1, P2+2, P2+6, P2+10, FACTOT+2, END+1, END+2, END2+6!
ADEIOP ROLLEND+4, PRINT+2, END2+5!
ADEIOPAR PRINT+3, END2+5!
ADELIN PRINT+6*, END2+6!, HEADER+3
ADELOE RO1+8*, RO1+9, RO1+11, RO1+14, RO1+16, RO3+9, RO3+11, RO3+18, RO3+21, RO3+22
, PRINT+6*, P1*, P1+1, P2+2, P2+6, P2+10, END2+6!, EOP1+1
ADELV CALC+7*, CALC+8*, CALC+9, CALC+13, END2+6!
ADELVL RO3+7*, RO3+8*, END2+7!
ADEND ROLL, ROLLEND, PRINT+6*, PRINT+7*, END2+6!, HEADER
ADENOD RO1+2*, RO1+3, RO1+5, RO1+8, RO1+13, END2+6!, NON, IND+4, IND+5
ADENOLOK PRINT+1*, END+2, END2+5!
ADENON RO1+7, END2+7!
ADEOLD END2+6!
ADEPAG PRINT+6*, END2+6!, EOP1, HEADER, HEADER+5*
ADEPAT END2+7!, NON*, NON+1, NON+2
ADEPC RO3+8*, RO3+9, RO3+11, RO3+13, RO3+15, RO3+16, RO3+18, RO3+21, RO3+22, END2+7!
ADEPDET RO1+13, RO1+14, RO1+16, RO3+9, RO3+11, P2+2, P2+6, END2+7!
ADEPRO RO1+13, END2+6!
ADEQIT PRINT+6*, P1+1, P2+2, P2+6, P2+10, CALC+6, FACTOT+2, END2+6!, EOP1*
ADERPD RO1+13*, RO1+14, RO1+16, RO3+9, RO3+11, P1*, P2+2*, P2+6, END2+6!
>> ADERVU RO3+5*, RO3+11, RO3+16, RO3+22
ADERVUD P2+2*, P2+6*, P2+10*, CALC+12, CALC+16, FACTOT+2*, END2+3!
>> ADERVUTO CALC+3*, CALC+16*, CALC+22
ADESM RO3+7*, RO3+9, RO3+13, RO3+18, END2+7!
ADESMRT CALC+3*, CALC+15*, CALC+22, END2+6!
ADESVC RO1+18*, RO3, RO3+2, END2+7!
ADESVRT CALC+3*, CALC+14*, CALC+22, END2+6!
ADETITL ROLLEND, END2+6!, HEADER
ADEY RO1+5*, RO1+7*, END2+7!, NON+3*, IND+4*, IND+5*
DT ROLLEND
DTIME EOP1
IO PRINT+5
IOF HEADER
>> IOP PRINT+2*
IOSL EOP
IOST EOP1
>> IOT ROLLEND+2
>> J RO1+18*
U RO1+3, RO1+5, RO1+8, RO1+13, RO3, RO3+2, RO3+5, RO3+7, RO3+9, RO3+11
, RO3+13, RO3+15, RO3+16, RO3+18, RO3+21, RO3+22, ROLLEND, ROLLEND+4, PRINT+6, P1+1
, P2+6, CALC+10, CALC+11, CALC+12, CALC+14, CALC+15, CALC+16, NON, NON+2, IND+4
, IND+5
>> X EOP1*
>> Y PRINT+7*
>> Z CALC+6*, CALC+7, CALC+10, CALC+11, CALC+12, CALC+14, CALC+15, CALC+16
>> ZTQUEUED START+1, START+4, ROLL, ROLLEND+2, ROLLEND+5, PRINT+1, END
>> ZTREQ START+1*, ROLLEND+4*, END*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All