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

Package: Dental

Routine: DENTA15


Information

DENTA15 ;ISC2/SAW,HAG-PRINT/DISPLAY TREATMENT DATA SUMMARY REPORTS BY CLINIC OR PROVIDER ; 1/4/89 1:43 PM ;

Source Information

Source file <DENTA15.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Dental 1 (,A6)^DENTA15A  

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

Package Total Caller Graph
Dental 5 DENTA11  DENTA12  DENTA13  DENTA14  DENTA15A  

Entry Points

Name Comments DBIA/ICR reference
RPT
A
A1
HDR
HDR1
HDR2
HOLD1
HOLD2
HOLD
NONE
COMP
COMP1
ERR
CHK
CHK1
EXIT
EXIT1

External References

Name Field # of Occurrence
^DENTA15A A
A6^DENTA15A DENTA15+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E($P(^DIC(220.3,I,0),U,1),1,20),?21
  • Line Location: RPT+1
Function Call: WRITE
  • Prompt: ?($X+1),$J($S($D(^UTILITY($J,"DENTR",DENTPRV,I,J)):+(^(J)),1:"."),K)
  • Line Location: RPT+1
Function Call: WRITE
  • Prompt: !,$E($P(^DIC(220.3,I,0),U,1),1,20),?22
  • Line Location: RPT+2
Function Call: WRITE
  • Prompt: ?($X+1),$J($S($D(^UTILITY($J,"DENTR",DENTPRV,I,J)):+(^(J)),1:"."),5)
  • Line Location: RPT+2
Function Call: WRITE
  • Prompt: !,$E($P(^DIC(220.3,I,0),U,1),1,20),?21
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: ?($X+1),$J($S($D(^UTILITY($J,"DENTR",I,J)):+(^(J)),1:"."),K)
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: !,$E($P(^DIC(220.3,I,0),U,1),1,20),?22
  • Line Location: A1+1
Function Call: WRITE
  • Prompt: ?($X+1),$J($S($D(^UTILITY($J,"DENTR",I,J)):+(^(J)),1:"."),5)
  • Line Location: A1+1
Function Call: WRITE
  • Prompt: @IOF,?(80-$L(H3)\2),H3,!,?(80-$L(H5)\2),H5
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,?(100-$L(H7)\2),H7
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"PROCEDURE",?21
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: ?($X+3),K
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: !,"PROCEDURE",?27,"I",?32,"II",?38,"IIA",?44,"IIB",?50,"IIC",?56,"III",?62,"IV",?69,"V",?74,"VI"
  • Line Location: HDR2+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: HOLD+0
Function Call: WRITE
  • Prompt: !,"There is no treatment data for review/release for the time frame you specified",*7
  • Line Location: NONE+0
Function Call: WRITE
  • Prompt: !,"There "_$S(DENTC=1:"is ",1:"are ")_DENTC_$S(DENTC=1:" sitting",1:" sittings")_" in the time frame you specified. All data is complete"
  • Line Location: COMP+0
Function Call: WRITE
  • Prompt: !,"There "_$S(DENTC(1)=1:"is ",1:"are ")_DENTC(1)_$S(DENTC(1)=1:" sitting",1:" sittings")_" for provider ",DENTPRV," in the time frame you specified."
  • Line Location: COMP1+0
Function Call: WRITE
  • Prompt: !!,"The treatment data for this report is incomplete/incorrect.",!,"There are ",DENTC," sittings in the time frame you specified.",!,"The following errors were found:",*7,!
  • Line Location: ERR+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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" CHK1
^DIC(220.3 - [#220.3] RPT+1, RPT+2, A1, A1+1
^UTILITY($J DENTA15+3, RPT+1, RPT+2, A1, A1+1, COMP1, CHK1*, EXIT

Label References

Name Line Occurrences
A1 A
CHK1 CHK+2
COMP EXIT+1
COMP1 RPT+3
ERR EXIT
EXIT DENTA15+4, A
EXIT1 NONE, EXIT
HDR RPT, A, HOLD1, HOLD2
HDR1 RPT, A, HOLD1
HDR2 HOLD2
HOLD RPT+3, A1+2, HOLD1, HOLD2, EXIT, EXIT+1
HOLD1 RPT+1, A1
HOLD2 RPT+2, A1+1
NONE DENTA15+2
RPT DENTA15+3

Naked Globals

Name Field # of Occurrence
^( RPT+1, RPT+2, A1, A1+1, EXIT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A0 EXIT1!
A1 EXIT1!
A2 EXIT1!
A3 EXIT1!
A4 EXIT1!
A5 EXIT1!
A6 EXIT1!
A7 EXIT1!
A8 EXIT1!
AB EXIT1!
>> DENT3 DENTA15+3, A
>> DENTC DENTA15+2, COMP, ERR, CHK1
>> DENTC(1 COMP1*
DENTF CHK*, CHK+1*, CHK+2*, CHK+3*, CHK+4*, CHK1, EXIT1!
>> DENTF1 NONE*, CHK1*, EXIT, EXIT+1, EXIT1*
DENTPRV DENTA15+3*, RPT, RPT+1, RPT+2, COMP1, EXIT1!
>> DENTSTA HDR
DTIME HOLD
H RPT*, A*, HDR, EXIT*, EXIT1!
H1 HDR, EXIT1!
H2 HDR, EXIT1!
H3 HDR*, HDR+1, EXIT1!
H4 RPT*, RPT+2*, A*, A1+1*, HDR, EXIT1!
>> H5 HDR*, HDR+1
H6 RPT*, A*, HDR, EXIT1!
H7 HDR*, HDR+2, EXIT1!
H8 HDR, HDR+2, EXIT1!
I RPT+1*, RPT+2*, A1*, A1+1*, EXIT*, EXIT1!
IO HOLD
IO(0 HOLD
IOF HDR+1, EXIT
IOSL RPT+1, RPT+2, A1, A1+1, EXIT
J RPT+1*, RPT+2*, A1*, A1+1*, EXIT*, EXIT1!
K RPT+1*, A1*, HDR1*, EXIT1!
L CHK1*, EXIT1!
M DENTA15+3*, EXIT1!
U DENTA15+3, RPT+1, RPT+2, RPT+3, A1, A1+1, A1+2, HOLD1, HOLD2, CHK
, CHK+1, CHK+2, CHK+3, CHK+4, CHK1, EXIT, EXIT+1, EXIT1
X CHK, CHK+1, CHK+2, CHK+3, CHK+4, CHK1, EXIT1!
X1 EXIT1!
X2 EXIT1!
Y CHK1*, EXIT1!
Z CHK!, CHK1*, EXIT1!
Z( CHK1
Z(1 CHK*
Z(2 CHK+1*
Z(3 CHK+2*
Z(4 CHK+3*
Z(5 CHK+4*
>> Z5 DENTA15+3, RPT+1, RPT+2, RPT+3, A1, A1+1, A1+2, HOLD1, HOLD2, HOLD*
, EXIT, EXIT+1, EXIT1
>> ZTSK HOLD
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All