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
Print Page as PDF
Routine: DENTAR16

Package: Dental

Routine: DENTAR16


Information

DENTAR16 ;ISC2/SAW,HAG-PRINT/DISPLAY TREATMENT DATA REPORTS FOR REVIEW/RELEASE ; 10/27/88 9:48 AM ;

Source Information

Source file <DENTAR16.m>

Entry Points

Name Comments DBIA/ICR reference
B1
HD
HD1
NOREV ;CHECK DATA WITHOUT USER REVIEW
P
HDR
HOLD
HOLD3
NONE
COMP
ERR
EXIT
EXIT1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?(80-$L(H3)\2),H3,!,?(80-$L(H5)\2),H5
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !!,?19,"PATIENT",?29,"PAT",?34,"BED",!,"TREATMENT DATE",?19,"SSN",?29,"CAT",?34,"SECT",?40,"TREATMENT (PROCEDURE)",?77,"NO.",!
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !,Y,?19,$P(X,U,2),?30,$J($P(X,U,19),2),?35
  • Line Location: HD1+0
Function Call: WRITE
  • Prompt: $J($P(X,U,6),2)
  • Condition for execution: $P(X,U,19)<9
  • Line Location: HD1+0
Function Call: WRITE
  • Prompt: !!,"Let me check the data for completeness. One moment please."
  • Line Location: NOREV+1
Function Call: WRITE
  • Prompt: @IOF,?(80-$L(H3)\2),H3,!,?(80-$L(H5)\2),H5
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,?19,"PROV",?25,"PATIENT",?35,"PAT",?40,"BED",!,"TREATMENT DATE",?19,"NO.",?27,"SSN",?35,"CAT",?40,"SECT",?46,"TREATMENT (PROCEDURE)",?77,"NO.",!
  • Line Location: HDR+2
Function Call: READ
  • Timeout: DTIME
  • Line Location: HOLD+0
Function Call: WRITE
  • Prompt: !,"There "_$S(DENTC(1)+DENTC=1:"is ",1:"are ")_(DENTC(1)+DENTC)_$S(DENTC(1)+DENTC=1:" sitting",1:" sittings")_" in the time frame you specified. All data is complete."
  • Line Location: COMP+0
Function Call: WRITE
  • Prompt: !!,"The treatment data for this report is incomplete/incorrect.",!,"There are ",(DENTC(1)+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
Info |  Source |  Entry Points |  Interaction Calls