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 |  Label References |  Local Variables  | All
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

Label References

Name Line Occurrences
T EN5+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
B EN5+13!
B(1 EN4+3, EN5+3
B(10 EN4+7, EN4+8, EN5+7, EN5+8
B(11 EN4+8, EN5+8
B(12 EN4+9, EN5+9
B(14 EN4+10, EN5+10
B(15 EN4+4, EN5+4
B(16 EN4+12, EN5+11
B(17 EN4+13, EN5+11
B(18 EN5+11
B(2 EN4+3, EN5+3
B(3 EN4+3, EN5+3
B(4 EN4+4, EN5+4
B(5 EN4+4, EN4+6, EN5+4, EN5+6
B(6 EN4+5, EN5+5
B(7 EN4+6, EN5+6
B(8 EN4+5, EN5+5
B(9 EN4+6, EN5+6
C EN5+11*, EN5+12, EN5+13!, T+2*
E EN5+13!
F EN5+13!
I EN5+11*, EN5+13!, T, T+1
IOF EN4, EN5
M EN4+2*, EN4+3*, EN4+4*, EN4+5*, EN4+6*, EN4+7*, EN4+8*, EN4+9*, EN4+10*, EN4+11
, EN5+2*, EN5+3*, EN5+4*, EN5+5*, EN5+6*, EN5+7*, EN5+8*, EN5+9*, EN5+10*, EN5+11
, EN5+13!
O EN4+13, EN5+13!
P EN4+2*, EN4+3*, EN4+4*, EN4+5*, EN4+6*, EN4+8, EN4+12, EN5+2*, EN5+3*, EN5+4*
, EN5+5*, EN5+6*, EN5+8, EN5+11, EN5+13!
P1 EN5+13!, T
P2 EN5+13!, T+1
P3 EN5+13!, T+2
R EN5+13!
S EN4+2*, EN4+3*, EN4+4*, EN4+6, EN4+11, EN5+2*, EN5+3*, EN5+4*, EN5+6, EN5+11
, EN5+13!
X EN5+11*, EN5+13!, T, T+1, T+2
Y EN5+11*, EN5+13!, T, T+1, T+2
Info |  Source |  Entry Points |  Interaction Calls |  Label References |  Local Variables  | All