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 |  Marked Items  | All
Print Page as PDF
Routine: DENTA14

Package: Dental

Routine: DENTA14


Information

DENTA14 ;ISC2/SAW,HAG-TREATMENT DATA REPORT - INDIVIDUAL SITTINGS ;3/29/88

Source Information

Source file <DENTA14.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Dental 3 EXIT1^DENTA1  CHK^DENTA15  (COMP,ERR,HDR)^DENTA16  
Kernel 2 ^%ZIS  ^%ZTLOAD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dental 2 DENTA1  DENTA16  

Entry Points

Name Comments DBIA/ICR reference
QUE
RPT
P1
W
HDR1
HOLD
HOLD1
NONE
EXIT
EXIT1
S ;;;04;05;;;;08;;09;15;16;33;10;20;21;22;;23;;11;12;13;14;17;;24;25;26;27;28;29;30;31;18;19;32;;;;34;06
DATE(Y) ;

External References

Name Field # of Occurrence
^%ZIS DENTA14+3
^%ZTLOAD DENTA14+4
EXIT1^DENTA1 EXIT1
CHK^DENTA15 P1+1
COMP^DENTA16 EXIT+1
ERR^DENTA16 EXIT
HDR^DENTA16 RPT, HDR1, HOLD1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?46,$E($P(^DIC(220.3,K,0),U,1),1,30),?79,1,!
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: ?46,$E($P(^DIC(220.3,36,0),U,1),1,30),?79,1,!
  • Line Location: P1+3
Function Call: WRITE
  • Prompt: ?46,$E($P(^DIC(220.3,38,0),U,1),1,30),?79,$P(X,U,45),!
  • Condition for execution: $P(X,U,45)
  • Line Location: P1+3
Function Call: WRITE
  • Prompt: ?46,$E($P(^DIC(220.3,$P(X,U,41),0),U,1),1,30),?79,1,!
  • Line Location: P1+4
Function Call: WRITE
  • Prompt: ?46,"ADMINISTRATIVE PROCEDURE",?79,1,!
  • Line Location: P1+5
Function Call: WRITE
  • Prompt: ?46,$E($P(^DIC(220.3,X(2),0),U,1),1,30),?79,1,!
  • Line Location: P1+6
Function Call: WRITE
  • Prompt: Q:Z5=U
  • Line Location: P1+7
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?46,$E($P(^DIC(220.3,+$P($T(S),";",K),0),U,1),1,30),?77,$J($P(X,U,K),3),!
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,Y,?19,$P(X,U,10),?25,$P(X,U,2),?36,$J($P(X,U,19),2),?41
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: $J($P(X,U,6),2)
  • Condition for execution: $P(X,U,19)<9
  • Line Location: HDR1+1
Function Call: READ
  • Timeout: DTIME
  • Line Location: HOLD+0
Function Call: WRITE
  • Prompt: !,"There is no treatment data for the time frame you specified",*7
  • Line Location: NONE+0
Function Call: WRITE
  • Prompt: @IOF,*7
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !,^(J)
  • Condition for execution: $D(^UTILITY($J,"DENTERR",H,J))
  • Line Location: EXIT+0
Routine Call
  • %ZIS
  • Line Location:
    • DENTA14+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" EXIT1
^DD("DD" HDR1+1
^DENT(221 - [#221] RPT, P1
^DIC(220.3 - [#220.3] P1+2, P1+3, P1+4, P1+6, W
^UTILITY($J EXIT

Label References

Name Line Occurrences
$$DATE HDR1+1
EXIT QUE
EXIT1 DENTA14+3, DENTA14+4, NONE, EXIT
HDR1 RPT
HOLD QUE, HDR1, HOLD1, EXIT, EXIT+1
HOLD1 P1+2, P1+3, P1+4, P1+5, P1+6, W
NONE QUE
P1 RPT
RPT QUE
S W, W+1
W P1+7

Naked Globals

Name Field # of Occurrence
^( P1, EXIT
^(0 RPT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DENTA14+3*
DENT RPT*, P1, EXIT1!
DENTC DENTA14+3*, QUE, P1+1*, EXIT1!
DENTCAT EXIT1!
DENTDAT EXIT1!
DENTED RPT, P1, EXIT1!
DENTF P1+1, EXIT1!
>> DENTF1 QUE*, NONE*, EXIT, EXIT+1
>> DENTREL P1
DENTSD DENTA14+3*, RPT*, EXIT1!
>> DENTSD1 P1
>> DENTSTA RPT
DTIME HOLD
H EXIT*, EXIT1!
H1 EXIT1!
H2 EXIT1!
H3 EXIT1!
HOLD DATE+1~, DATE+3*, DATE+4*, DATE+5
I RPT*, EXIT*, EXIT1!
IO DENTA14+3, QUE, HOLD
IO("Q" DENTA14+3!, DENTA14+4
IO(0 HOLD
IOF EXIT
IOSL P1+2, P1+3, P1+4, P1+5, P1+6, W, HDR1, EXIT
J RPT*, EXIT*, EXIT1!
K P1+2*, P1+7*, W, W+1, EXIT1!
TIME DATE+1~, DATE+2*, DATE+3, DATE+4
U QUE, RPT, P1+2, P1+3, P1+4, P1+5, P1+6, P1+7, W, W+1
, HDR1, HDR1+1, HOLD, HOLD1, EXIT, EXIT+1
X RPT*, P1+2, P1+3, P1+4, P1+5, P1+6, P1+7, W, W+1, HDR1+1
, EXIT1!
X(2 P1+6*, W+1*
X(3 W+1*
XDAT DATE+1~, DATE+2*, DATE+3, DATE+4
Y HDR1+1*, DATE~, DATE+2
Y(1 P1*
>> Z5 QUE, RPT, P1+4, P1+5, P1+6, P1+7, W, HDR1, HOLD*, HOLD1
, EXIT, EXIT+1
ZTRTN DENTA14+4*!
ZTSAVE DENTA14+4!
ZTSAVE("DENT*" DENTA14+4*
ZTSAVE("H1" DENTA14+4*
ZTSAVE("H2" DENTA14+4*
ZTSAVE("U" DENTA14+4*
ZTSAVE("Z5" DENTA14+4*
ZTSK DENTA14+4!, HOLD, EXIT1

Marked Items

Name Field # of Occurrence
$T(S W, W+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All