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

Package: Dental

Routine: DENTPCD1


Information

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

Source Information

Source file <DENTPCD1.m>

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