Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(220.3 - [#220.3] Classic Fileman Calls
^DENT(225 - [#225] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call