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

Package: Registration

Routine: DGPTODT2


Information

DGPTODT2 ;ALB/BOK - PTF DRG TRIM POINT REPORT CONT ; 9/7/01 11:33am

Source Information

Source file <DGPTODT2.m>

Entry Points

Name Comments DBIA/ICR reference
MTRIM
TSET
BSTRIM
STRIM
HEAD
COV

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?62,"-",P,"-"
  • Condition for execution: P
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: @IOF,!,"DRG Trim Point Totals for ",$S(DGFLAG'["M":G2_" SERVICE",1:"MEDICAL CENTER"),$S(DGFLAG["Spec":" by Specialty",1:"") I 'DGD
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: " for Active Admissions"
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,"Discharge Dates from "
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: $P(Y,"@",1)," to "
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: $P(Y,"@",1)," to "
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !!?38,"| BELOW | WITHIN TRIM | ABOVE TRIM |",!?16,"National",?30," ",?38,"|-------|----------------|------------------------|"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,H,?36," | # of | # of",?57,"Total | # of",?71,"Days Above ",?82,"Total |",?91,"Total Total Total",?123,"Average",!,H1
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: "| Disch | Disch LOS | Disch Trim",?83,"LOS | Disch LOS",?109,"Weight(*)",?124,"Weight",!
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: E
  • Line Location: HEAD+8
Info |  Source |  Entry Points |  Interaction Calls