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

Package: Dental

Routine: DENTA4A


Information

DENTA4A ;WASH-ISC/HAG,JAH-NON CLINIC TIME REPORT BY PROVIDER ;4/29/96 13:45

Source Information

Source file <DENTA4A.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Dental 2 DATE^DENTA1  Q^DENTAR11  
Kernel 2 ^%ZIS  ^%ZTLOAD  
VA FileMan 2 ^DIC  YN^DICN  

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

Package Total Caller Graph
Dental 1 DENTNCLINTIME PROV  

Entry Points

Name Comments DBIA/ICR reference
A
S
SK
SKP
QUE
RPT
P1
PRT ;PRINT/DISPLAY REPORT
PRT1
HDR
HOLD
EXIT

External References

Name Field # of Occurrence
^%ZIS SKP
^%ZTLOAD SKP+1
DATE^DENTA1 DENTA4A+3
Q^DENTAR11 A
^DIC S+1
YN^DICN A, SK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Would you like to review the data for all providers"
  • Line Location: A+0
Function Call: READ
  • Formatting: !
  • Prompt: "Select DENTAL PROVIDER NAME: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !!,"Provider does not exist."
  • Line Location: S+3
Function Call: WRITE
  • Prompt: !!,"Provider not in provider file, entries in treatment file okay"
  • Line Location: SK+0
Function Call: WRITE
  • Prompt: !!,"There are no non clinical time entries for the time frame you specified"
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !,"for provider number ",DENTP
  • Condition for execution: $D(DENTP)
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !!,?34,"TOTAL",?41,$J($P(X,"^",1)+4\8,5),?52,$J($P(X,"^",2)+4\8,5),?61,$J($P(X,"^",3)+4\8,5),?68,$J($P(X,"^",4)+4\8,5),?75,$J(X2+4\8,5)
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !,?4,DENTPRV,?15,X1,?43,$J(($P(X,"^",1)+4\8),3),?54,$J(($P(X,"^",2)+4\8),3),?63,$J(($P(X,"^",3)+4\8),3),?70,$J(($P(X,"^",4)+4\8),3),?75,$J(X2+4\8,5)
  • Line Location: PRT1+4
Function Call: WRITE
  • Prompt: @IOF,!,?(80-$L(H3)/2),H3,!,?(80-$L(H5)/2),H5,!,?(80-$L(H7)/2),H7
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!!,"PROVIDER NO.",?15,"PROVIDER NAME",?41,"RESEARCH",?51,"EDUCATION",?63,"FEE",?68,"ADMIN",?75,"TOTAL",!,"------------",?15,"-------------",?41,"--------",?51,"---------",?63,"---",?68,"-----",?75,"-----"
  • Line Location: HDR+2
Function Call: READ
  • Timeout: DTIME
  • Line Location: HOLD+0
Routine Call
  • %ZIS
  • Line Location:
    • SKP
Routine Call
  • DIC
  • Line Location:
    • S+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DENT(220.5 - [#220.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" EXIT
^%ZTSK - [#14.4] EXIT+1!
^DENT(220.5 - [#220.5] PRT1+3
^DENT(226 - [#226] S+2, QUE+2, RPT, P1
^UTILITY($J QUE+3*, P1, P1+1*, PRT+1, PRT+3, PRT1, EXIT+1!
^VA(200 - [#200] PRT1+3

Label References

Name Line Occurrences
A A
DENTA4A PRT+4
EXIT DENTA4A+3, A, S, SKP, SKP+1, PRT+4
HDR PRT+1
HOLD PRT+1, PRT+4
P1 RPT
PRT QUE+3
PRT1 PRT+1
RPT QUE+2
S S+1, S+3, SK
SK S+2
SKP A, S+1

Naked Globals

Name Field # of Occurrence
^( P1*
^(0 PRT1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% A*, SK*, EXIT+1!
%DT EXIT+1!
>> %ZIS SKP*
DENT RPT*, P1, EXIT+1!
DENTED QUE+2, QUE+3!, EXIT+1!
DENTP S+1*, SK*, PRT+2, EXIT+1!
DENTPRV S+1*, SK*, QUE+1*, QUE+2*, RPT, P1, P1+1, PRT+1*, PRT1, PRT1+3
, PRT1+4, EXIT+1!
DENTPRV1 QUE+1*, QUE+2, QUE+3!, EXIT+1!
DENTPRV2 QUE+1*, QUE+2, EXIT+1!
DENTSD QUE+1*, QUE+2*, QUE+3!, RPT, EXIT+1!
>> DENTSTA QUE+2, RPT, HDR
DIC S+1*!, EXIT+1!
DIC(0 S+1*
DTIME S, HOLD
H1 HDR, EXIT+1!
H2 HDR, EXIT+1!
H3 HDR*, HDR+1, EXIT+1!
H5 HDR*, HDR+1, EXIT+1!
H7 HDR*, HDR+1, EXIT+1!
I QUE+2*, PRT+1*, PRT+2, PRT+3, EXIT+1!
IO SKP, QUE, HOLD
IO("Q" SKP!, SKP+1
IO(0 HOLD
IOF HDR+1
IOSL PRT+1
J QUE+2*, EXIT+1!
K RPT*, EXIT+1!
U S, PRT+1, PRT+4, HOLD
X S*, S+1, S+2, SK, QUE+3!, P1*, P1+1, PRT+3*, PRT1*, PRT1+4
, EXIT+1!
X1 P1+1*, PRT1+3*, PRT1+4, EXIT+1!
X2 QUE+1*, QUE+3, P1+1*, PRT+3*, PRT1*, PRT1+4, EXIT+1!
XX PRT1+3*, EXIT+1!
>> Y DENTA4A+3, S+1
>> Y(0 S+1
Z1 EXIT+1!
Z2 EXIT+1!
Z5 QUE+1*, PRT+1, PRT+4, HOLD*, EXIT+1!
ZTRTN SKP+1*!
ZTSAVE SKP+1!
ZTSAVE("DENTED" SKP+1*
ZTSAVE("DENTSD" SKP+1*
ZTSAVE("DENTSTA" SKP+1*
ZTSAVE("H1" SKP+1*
ZTSAVE("H2" SKP+1*
ZTSAVE("U" SKP+1*
ZTSK SKP+1!, PRT+4, HOLD, EXIT+1!
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