Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DENTPCD1

Package: Dental

Routine: DENTPCD1


Information

DENTPCD1 ;ISC2/SAW,HAG-PRINT CDR WORKSHEETS ;9/24/99 09:04

Source Information

Source file <DENTPCD1.m>

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dental 1 DENTPCD  

Entry Points

Name Comments DBIA/ICR reference
A
EN3
EN5
EN6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,T,!,?5,"01",?15,"1110.248",?27,"Medical",?55,$J($P(B(1),"^",4),7,4)
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !,?5,"06",?15,"1111.248",?27,"Neurology",?55,$J($P(B(6),"^",4),7,4)
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !,?5,"07",?15,"1113.248",?27,"Rehabilitation",?55,$J($P(B(7),"^",4),7,4)
  • Line Location: A+3
Function Call: WRITE
  • Prompt: !,?5,"10",?15,"1116.248",?27,"Spinal Cord Injury",?55,$J($P(B(10),"^",4),7,4)
  • Line Location: A+4
Function Call: WRITE
  • Prompt: !,?5,"11",?15,"1114.248",?27,"Epilepsy Center",?55,$J($P(B(11),"^",4),7,4)
  • Line Location: A+5
Function Call: WRITE
  • Prompt: !,?5,"12",?15,"1115.248",?27,"Blind Rehabilitation",?55,$J($P(B(12),"^",4),7,4)
  • Line Location: A+6
Function Call: WRITE
  • Prompt: !,?5,"13",?15,"1118.248",?27,"Dialysis Program",?55,$J($P(B(13),"^",4),7,4)
  • Line Location: A+7
Function Call: WRITE
  • Prompt: !,?5,"14",?15,"1117.248",?27,"Medical Int. Care Unit",?55,$J($P(B(14),"^",4),7,4)
  • Line Location: A+8
Function Call: WRITE
  • Prompt: !,?5,T,!,?5,"02",?15,"1210.248",?27,"Surgical",?55,$J($P(B(2),"^",4),7,4)
  • Line Location: A+10
Function Call: WRITE
  • Prompt: !,?5,"15",?15,"1211.248",?27,"Surgical Int. Care Unit",?55,$J($P(B(15),"^",4),7,4)
  • Line Location: A+11
Function Call: WRITE
  • Prompt: !,?5,T,!,?5,"03",?15,"1310.248",?27,"Psychiatry - Acute",?55,$J($P(B(3),"^",4),7,4)
  • Line Location: A+13
Function Call: WRITE
  • Prompt: !,?5,"04",?15,"1310.248",?27,"Psychiatry - Long Term",?55,$J($P(B(4),"^",4),7,4)
  • Line Location: A+14
Function Call: WRITE
  • Prompt: !,?5,"08",?15,"1313.248",?27,"Alcohol",?55,$J($P(B(8),"^",4),7,4)
  • Line Location: A+15
Function Call: WRITE
  • Prompt: !,?5,"09",?15,"1313.248",?27,"Drug",?55,$J($P(B(9),"^",4),7,4)
  • Line Location: A+16
Function Call: WRITE
  • Prompt: !,?5,T,!,?15,"1410.248",?27,"Nursing Home Care Unit",?55,$J($P(B(16),"^",4),7,4)
  • Line Location: A+18
Function Call: WRITE
  • Prompt: !,?5,T,!,?15,"1510.248",?27,"Domicilliary",?55,$J($P(B(17),"^",4),7,4)
  • Line Location: A+20
Function Call: WRITE
  • Prompt: !,?5,T,!,?5,"05",?15,"1610.248",?27,"Intermediate Care Activity",?55,$J($P(B(5),"^",4),7,4)
  • Line Location: A+22
Function Call: WRITE
  • Prompt: !,?5,T,!,?15,"2710.248",?27,"Outpatient",?55,$J($P(B(18),"^",4),7,4)
  • Line Location: A+24
Function Call: WRITE
  • Prompt: !,?5,T,?55,$J(P,7,4),!,?5,I,!
  • Line Location: A+26
Function Call: WRITE
  • Prompt: !,?5,T,!,?15,"4710.248",?27,"Dental Fee Basis",?55,$J(F,7,4)
  • Line Location: A+26
Function Call: WRITE
  • Prompt: !,?5,I,!!,?5,"**** Reconciled --- Total ****",?55,$J(RT,7,4),!
  • Line Location: A+27
Function Call: WRITE
  • Prompt: ?5,I,!
  • Line Location: A+27
Function Call: WRITE
  • Prompt: !,?5,"Disregard the following trainee data if your station does",!,?5,"not have a Dental Resident Program",!
  • Line Location: A+28
Function Call: WRITE
  • Prompt: !,?15,"1100.11",?27,"Medical Bed Proportion",?55,$J(P,7,4)
  • Line Location: A+30
Function Call: WRITE
  • Prompt: !,?15,"1200.11",?27,"Surgical Bed Proportion",?55,$J(P,7,4)
  • Line Location: A+32
Function Call: WRITE
  • Prompt: !,?15,"1300.11",?27,"Psychiatry Bed Proportion",?55,$J(P,7,4)
  • Line Location: A+34
Function Call: WRITE
  • Prompt: !,?15,"1400.11",?27,"Nursing Home Proportion",?55,$J($P(B(16),"^"),7,4)
  • Line Location: A+35
Function Call: WRITE
  • Prompt: !,?15,"1500.11",?27,"Domicilliary Bed Proportion",?55,$J($P(B(17),"^"),7,4)
  • Line Location: A+36
Function Call: WRITE
  • Prompt: !,?15,"1600.11",?27,"Intermediate Bed Proportion",?55,$J($P(B(5),"^"),7,4)
  • Line Location: A+37
Function Call: WRITE
  • Prompt: !,?15,"2800.11",?27,"Outpatient Bed Proportion",?55,$J($P(B(18),"^"),7,4)
  • Line Location: A+38
Function Call: WRITE
  • Prompt: @IOF,!,?57,"Page ",C,!,?5,"MONTHLY DENTAL SERVICE COST DISTRIBUTION (10-0141) REPORT",!,?(68-$L(DATE)\2),DATE,!!,?5,"BED",?15,"ACCOUNT",!,?5,"SECTION",?15,"NUMBER",?27,"NAME",?55,"CLINICAL",!
  • Line Location: EN3+0
Function Call: WRITE
  • Prompt: !!,?(50-$L(Q)),Q,?55,$J(ST,7,4),!
  • Line Location: EN5+0
Function Call: WRITE
  • Prompt: !,?16,K_".12",?27,"Instructional",?55,$J(M*P1,7,4)
  • Line Location: EN5+1
Function Call: WRITE
  • Prompt: !,?16,K_".13",?27,"Administrative",?55,$J(M*P2,7,4)
  • Line Location: EN5+2
Function Call: WRITE
  • Prompt: !,?16,K_".14",?27,"Continuing Education",?55,$J(M*P3,7,4)
  • Line Location: EN5+3
Function Call: WRITE
  • Prompt: !,?16,K_".21",?27,"Research",?55,$J(N,7,4),!
  • Line Location: EN5+4
Function Call: WRITE
  • Prompt: ?5,I,!
  • Line Location: EN5+4

Label References

Name Line Occurrences
EN3 A, A+19
EN5 A+8, A+11, A+16, A+18, A+20, A+22, A+24
EN6 A+1, A+2, A+3, A+4, A+5, A+6, A+7, A+8, A+10, A+11
, A+13, A+14, A+15, A+16, A+18, A+20, A+22, A+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> B DENTPCD1+2
>> B( DENTPCD1+2*, A+29, A+31, A+33, EN6
>> B(1 A+1
>> B(10 A+4
>> B(11 A+5
>> B(12 A+6
>> B(13 A+7
>> B(14 A+8
>> B(15 A+11
>> B(16 A+18, A+35
>> B(17 A+20, A+36
>> B(18 A+24, A+38
>> B(2 A+10
>> B(3 A+13
>> B(4 A+14
>> B(5 A+22, A+37
>> B(6 A+2
>> B(7 A+3
>> B(8 A+15
>> B(9 A+16
>> C A*, EN3*
>> DATE A*, EN3
>> DT2 A
>> E DENTPCD1+2
>> F DENTPCD1+2, A+26, A+27
>> I DENTPCD1+2*, A+26, A+27*, A+29*, A+31*, A+33*, EN5+4*
IOF EN3
>> K A*, A+9*, A+12*, A+17*, A+19*, A+21*, A+23*, EN5+1, EN5+2, EN5+3
, EN5+4
>> M A*, A+9*, A+12*, A+17*, A+19*, A+21*, A+23*, EN5+1, EN5+2, EN5+3
, EN6*
>> N A*, A+9*, A+12*, A+17*, A+19*, A+21*, A+23*, EN5+4, EN6*
>> P A*, A+26, A+27, A+29*, A+30, A+31*, A+32, A+33*, A+34, EN5*
>> P1 EN5+1
>> P2 EN5+2
>> P3 EN5+3
>> Q EN5*
>> R DENTPCD1+2
>> RT A*, A+27*, EN5+1*, EN5+2*, EN5+3*, EN5+4*
>> S A*, A+9*, A+12*, A+17*, A+19*, A+21*, A+23*
>> ST A*, A+9*, A+12*, A+17*, A+19*, A+21*, A+23*, EN5, EN6*
>> T A*, A+1, A+9*, A+10, A+12*, A+13, A+17*, A+18, A+19*, A+20
, A+21*, A+22, A+23*, A+24, A+25*, A+26*, EN5
>> V DENTPCD1+2*
>> X1 DENTPCD1+2*
>> X2 DENTPCD1+2*
>> Z A+1*, A+2*, A+3*, A+4*, A+5*, A+6*, A+7*, A+8*, A+10*, A+11*
, A+13*, A+14*, A+15*, A+16*, A+18*, A+20*, A+22*, A+24*, EN6
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Label References |  Local Variables  | All