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

Package: Dental

Routine: DENTP1


Information

DENTP1 ;ISC2/SAW-OTHER DENTAL REPORTS ; 12/5/88 4:35 PM

Source Information

Source file <DENTP1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^%DT  ^DIC  YN^DICN  EN1^DIP  
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 DENT SIT/VIS RPT  DENTTYPE  

Entry Points

Name Comments DBIA/ICR reference
D1
A
QUE
R
W
TOS ;TYPE OF SERVICE REPORT
CLOSE
EXIT
Q1

External References

Name Field # of Occurrence
^%DT D1+1, D1+2
^%ZIS A+1
^%ZTLOAD A+2
^DIC DENTP1+4
YN^DICN A
EN1^DIP TOS+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: I
  • Line Location: DENTP1+4
Function Call: WRITE
  • Prompt: !,"Enter the starting and ending dates for the Treatment Data entries that",!,"you want to include in this report.",!
  • Line Location: D1+0
Function Call: WRITE
  • Prompt: *7,!!,"End Date before Start Date?"
  • Line Location: D1+3
Function Call: WRITE
  • Prompt: !,"Would you like to review released data only"
  • Line Location: A+0
Function Call: READ
  • Variable: D
  • Timeout: '$D(D1)&($D(^DENT(221,DENT,0)))
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: @IOF,!,?20,"TOTAL SITTINGS/VISITS BY PATIENT CATEGORY"
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !,?(80-$L(H3)/2),H3
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !!,?15,"Inpatient",?28,"Outpatient",?42,"Class I-VI",?61,"Total"
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !!,"Visits",?12,$J(V(1),12),?26,$J(V(2),12),?40,$J(V(3),12),?54,$J((V(1)+V(2)+V(3)),12)
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !,"Sittings",?12,$J(S(1),12),?26,$J(S(2),12),?40,$J(S(3),12),?54,$J((S(1)+S(2)+S(3)),12)
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+6
Function Call: WRITE
  • Prompt: !,"NOTE: There ",$S(E=1:"is ",1:"are "),E," treatment data ",$S(E=1:"entry",1:"entries")," in the time frame you specified",!,"for which the Patient Category field was blank.",!
  • Line Location: QUE+6
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!,"Stations have not been entered in the Dental Site Parameter file.",!,"You must enter a station before you can use this option"
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!!,"Enter 'Y' or 'YES' if you want released data only. Press RETURN or enter 'N'",!,"or 'NO' if you do not want released data. Enter an uparrow (^) to EXIT.",!
  • Line Location: Q1+0
Routine Call
  • DIC
  • Line Location:
    • DENTP1+4
Routine Call
  • %ZIS
  • Line Location:
    • A+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(220.3 - [#220.3] Classic Fileman Calls
^DENT(225 - [#225] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" CLOSE
^%ZTSK - [#14.4] EXIT!
^DD("DD" D1+1, D1+2
^DENT(221 - [#221] QUE+1, R
^DENT(225 - [#225] DENTP1+3, DENTP1+5
^UTILITY($J R+2*, EXIT!

Label References

Name Line Occurrences
A A
CLOSE A+2, QUE+8
D1 D1+3
EXIT D1+1, D1+2, A, A+1
Q1 A
R QUE+1
W DENTP1+3, DENTP1+4, DENTP1+5

Naked Globals

Name Field # of Occurrence
^( DENTP1+3
^(0 DENTP1+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % A*
%DT D1+1*, D1+2*, EXIT!
%DT("A" D1+1*!, D1+2*!
%ZIS A+1*, EXIT!
BY TOS+1*, EXIT!
D1 A*, QUE+1, EXIT!
DENT QUE+1*, R, EXIT!
DENTED D1+2*, D1+3, QUE+1, EXIT!
DENTSD D1+1*, D1+3, QUE+1*, R+2, EXIT!
DENTSTA DENTP1+5*, QUE+1, EXIT!
DHD TOS+1*, EXIT!
>> DIC DENTP1+4*, TOS+1*
>> DIC("A" DENTP1+4*!
>> DIC(0 DENTP1+4*
E QUE*, QUE+6, R+1*, EXIT!
F QUE*, QUE+7, R*, EXIT!
FLDS TOS+1*, EXIT!
FR TOS+1*, EXIT!
H1 D1+1*, QUE+2, EXIT!
H2 D1+2*, QUE+2, EXIT!
H3 QUE+2*, EXIT!
HD1 EXIT!
I QUE+1*, EXIT!
IO A+1, QUE
IO("Q" A+1!, A+2
IOF QUE+2
>> K QUE+1*
S EXIT!
S( R+3*
S(1 QUE*, QUE+5
S(2 QUE*, QUE+5
S(3 QUE*, QUE+5
TO TOS+1*, EXIT!
U DENTP1+3*, DENTP1+5
V EXIT!
V( R+2*
V(1 QUE*, QUE+4
V(2 QUE*, QUE+4
V(3 QUE*, QUE+4
X R*, R+1, R+2, R+3, EXIT!
X1 R*, R+2, EXIT!
Y DENTP1+4, DENTP1+5, D1+1, D1+2, EXIT!
Z R*, R+2, EXIT!
Z1 DENTP1+3*, DENTP1+5*, EXIT!
Z2 DENTP1+3*, DENTP1+5, EXIT!
>> Z3 DENTP1+3*, DENTP1+4, DENTP1+5
Z5 DENTP1+3*, EXIT!
ZTRTN A+2*!
ZTSAVE A+2!
ZTSAVE("D1" A+2*
ZTSAVE("DENTED" A+2*
ZTSAVE("DENTSD" A+2*
ZTSAVE("DENTSTA" A+2*
ZTSAVE("H1" A+2*
ZTSAVE("H2" A+2*
ZTSK A+2!, EXIT!
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 |  Naked Globals |  Local Variables  | All