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

Package: Dental

Routine: DENTPCD2


Information

DENTPCD2 ;ISC2/SAW-PRINT CDR WORKSHEETS CON'T ; 11/16/88 10:29 AM ;

Source Information

Source file <DENTPCD2.m>

Entry Points

Name Comments DBIA/ICR reference
EN4
EN5
T

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?32,"CDR WORKSHEET IV",!,?29,"EDUCATION DISTRIBUTION",!,?29,"(Trainee Salaries .11)"
  • Line Location: EN4+0
Function Call: WRITE
  • Prompt: !!,?6,"Bedsection distribution by Medical, Surgical and Psychiatric Services"
  • Line Location: EN4+1
Function Call: WRITE
  • Prompt: !!,?10,"MEDICAL",?38,"SURGICAL",?66,"PSYCHIATRIC"
  • Line Location: EN4+2
Function Call: WRITE
  • Prompt: !!,?8,"01",?13,$J($P(B(1),"^"),4,4),?36,"02",?41,$J($P(B(2),"^"),4,4),?64,"03",?70,$J($P(B(3),"^"),4,4)
  • Line Location: EN4+3
Function Call: WRITE
  • Prompt: !,?8,"05",?13,$J($P(B(5),"^"),4,4),?36,15,?41,$J($P(B(15),"^"),4,4),?64,"04",?70,$J($P(B(4),"^"),4,4)
  • Line Location: EN4+4
Function Call: WRITE
  • Prompt: !,?8,"06",?13,$J($P(B(6),"^"),4,4),?64,"08",?70,$J($P(B(8),"^"),4,4)
  • Line Location: EN4+5
Function Call: WRITE
  • Prompt: !,?8,"07",?13,$J($P(B(5),"^"),4,4),?33,"TOTAL",?41,$J(S,4,4),?64,"09",?70,$J($P(B(9),"^"),4,4)
  • Line Location: EN4+6
Function Call: WRITE
  • Prompt: !,?8,10,?13,$J($P(B(10),"^"),4,4)
  • Line Location: EN4+7
Function Call: WRITE
  • Prompt: !,?8,11,?13,$J($P(B(11),"^"),4,4),?61,"TOTAL",?70,$J(P,4,4)
  • Line Location: EN4+8
Function Call: WRITE
  • Prompt: !,?8,12,?13,$J($P(B(12),"^"),4,4)
  • Line Location: EN4+9
Function Call: WRITE
  • Prompt: !,?8,14,?13,$J($P(B(14),"^"),4,4)
  • Line Location: EN4+10
Function Call: WRITE
  • Prompt: !!,?5,"TOTAL",?13,$J(M,4,4)
  • Line Location: EN4+10
Function Call: WRITE
  • Prompt: !!,"Medical Proportion (1100.11) ",$J(M,7,4),?41,"Surgical Proportion (1200.11) ",$J(S,7,4)
  • Line Location: EN4+11
Function Call: WRITE
  • Prompt: !,"Psychiatric Prop. (1300.11) ",$J(P,7,4),?41,"NHCU Proportion (1400.11) ",$J($P(B(16),"^"),7,4)
  • Line Location: EN4+12
Function Call: WRITE
  • Prompt: !,"DOM Proportion (1500.11) ",$J($P(B(17),"^"),7,4),?41,"Outpatient Prop. (1800.11) ",$J(O,7,4)
  • Line Location: EN4+13
Function Call: WRITE
  • Prompt: @IOF,!,?32,"CDR WORKSHEET V",!,?29,"EDUCATION DISTRIBUTION",!,?4,"(Instructional .12, Administrative .13, and Continuing Education 6014.00)"
  • Line Location: EN5+0
Function Call: WRITE
  • Prompt: !!,?6,"Bedsection distribution by Medical, Surgical and Psychiatric Services"
  • Line Location: EN5+1
Function Call: WRITE
  • Prompt: !!,?10,"MEDICAL",?38,"SURGICAL",?66,"PSYCHIATRIC"
  • Line Location: EN5+2
Function Call: WRITE
  • Prompt: !!,?8,"01",?13,$J($P(B(1),"^",3),4,4),?36,"02",?41,$J($P(B(2),"^",3),4,4),?64,"03",?70,$J($P(B(3),"^",3),4,4)
  • Line Location: EN5+3
Function Call: WRITE
  • Prompt: !,?8,"05",?13,$J($P(B(5),"^",3),4,4),?36,15,?41,$J($P(B(15),"^",3),4,4),?64,"04",?70,$J($P(B(4),"^",3),4,4)
  • Line Location: EN5+4
Function Call: WRITE
  • Prompt: !,?8,"06",?13,$J($P(B(6),"^",3),4,4),?64,"08",?70,$J($P(B(8),"^",3),4,4)
  • Line Location: EN5+5
Function Call: WRITE
  • Prompt: !,?8,"07",?13,$J($P(B(5),"^",3),4,4),?33,"TOTAL",?41,$J(S,4,4),?64,"09",?70,$J($P(B(9),"^",3),4,4)
  • Line Location: EN5+6
Function Call: WRITE
  • Prompt: !,?8,10,?13,$J($P(B(10),"^",3),4,4)
  • Line Location: EN5+7
Function Call: WRITE
  • Prompt: !,?8,11,?13,$J($P(B(11),"^",3),4,4),?61,"TOTAL",?70,$J(P,4,4)
  • Line Location: EN5+8
Function Call: WRITE
  • Prompt: !,?8,12,?13,$J($P(B(12),"^",3),4,4)
  • Line Location: EN5+9
Function Call: WRITE
  • Prompt: !,?8,14,?13,$J($P(B(14),"^",3),4,4)
  • Line Location: EN5+10
Function Call: WRITE
  • Prompt: !!,?5,"TOTAL",?13,$J(M,4,4)
  • Line Location: EN5+10
Function Call: WRITE
  • Prompt: !
  • Line Location: EN5+11
Function Call: WRITE
  • Prompt: !!,"Total Continuing Education Proportion (6014.00)",?50,$J(C,4,4)
  • Line Location: EN5+12
Function Call: WRITE
  • Prompt: !,X," Proportion (6014.00)",?35,$J(Y*.05,4,4),!
  • Line Location: T+2
Info |  Source |  Entry Points |  Interaction Calls