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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls