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

Package: Dental

Routine: DENTAR4


Information

DENTAR4 ;ISC2/SAW,HAG-PERSONNEL SERVICE REPORT RELEASE OPTION ;9/11/89 15:59 ;

Source Information

Source file <DENTAR4.m>

Entry Points

Name Comments DBIA/ICR reference
T
P
B

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?(80-$L(Z1)/2),Z1,!,?(80-$L(Z3)/2),Z3
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !,?15,"(All values are in days except Consultant Visits)"
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !!,?37,"NON CLINICAL TIME",!,?16,"DAYS WORKED",?30,"RESEARCH EDUCATION FEE ADMIN",?65,"CLINICAL TIME",!,?16,"___________",?30,"________ _________ ___ _____",?65,"_____________"
  • Line Location: P+3
Function Call: WRITE
  • Prompt: !,"DENTISTS",?20,$J(A(1),3)
  • Line Location: P+6
Function Call: WRITE
  • Prompt: ?32,$J(A(2),3)
  • Line Location: P+6
Function Call: WRITE
  • Prompt: ?32,$J(A(2),3)
  • Line Location: P+6
Function Call: WRITE
  • Prompt: ?51,$J(A(4),3)
  • Line Location: P+7
Function Call: WRITE
  • Prompt: ?57,$J(A(5),3)
  • Line Location: P+7
Function Call: WRITE
  • Prompt: ?57,$J(A(5),3)
  • Line Location: P+7
Function Call: WRITE
  • Prompt: !,"RESIDENTS",?20,$J(A(1),3)
  • Line Location: P+9
Function Call: WRITE
  • Prompt: ?32,$J(A(2),3)
  • Line Location: P+9
Function Call: WRITE
  • Prompt: ?32,$J(A(2),3)
  • Line Location: P+9
Function Call: WRITE
  • Prompt: ?32,$J(A(2),3)
  • Line Location: P+9
Function Call: WRITE
  • Prompt: !,"HYGIENISTS",?20,$J(A(1),3)
  • Line Location: P+11
Function Call: WRITE
  • Prompt: ?32,$J(A(2),3)
  • Line Location: P+11
Function Call: WRITE
  • Prompt: ?32,$J(A(2),3)
  • Line Location: P+11
Function Call: WRITE
  • Prompt: ?32,$J(A(2),3)
  • Line Location: P+11
Function Call: WRITE
  • Prompt: !,"EFDAs",?20,$J(A(1),3)
  • Line Location: P+13
Function Call: WRITE
  • Prompt: ?32,$J(A(2),3)
  • Line Location: P+13
Function Call: WRITE
  • Prompt: ?32,$J(A(2),3)
  • Line Location: P+13
Function Call: WRITE
  • Prompt: ?32,$J(A(2),3)
  • Line Location: P+13
Function Call: WRITE
  • Prompt: !,"ASSISTANTS",?20,$J(A(1),3)
  • Line Location: P+14
Function Call: WRITE
  • Prompt: !,"LAB TECHS",?20,$J(A(1),3)
  • Line Location: P+15
Function Call: WRITE
  • Prompt: !,"ADMIN/CLER",?20,$J(A(1),3)
  • Line Location: P+16
Function Call: WRITE
  • Prompt: !,"ALL OTHERS",?32,$J(A(2),3)
  • Line Location: P+18
Function Call: WRITE
  • Prompt: ?43,$J(A(3),3)
  • Line Location: P+18
Function Call: WRITE
  • Prompt: !!,?5,"TOTALS",?19,$J(T(1),4),?31,$J(T(2),4),?42,$J(T(3),4),?50,$J(T(4),4),?56,$J(T(5),4),?68,$J(T(6),4)
  • Line Location: P+19
Function Call: WRITE
  • Prompt: !!,"CONSULTANTS VISITS: ",$J($P(Y(0),U,9),3)
  • Line Location: P+20
Function Call: WRITE
  • Prompt: *7,!!,"ERROR!!! Clinical time values cannot be negative. Report not released.",!
  • Line Location: P+22
Info |  Source |  Entry Points |  Interaction Calls