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

Package: Registration

Routine: DGPTODA1


Information

DGPTODA1 ;ALB/AS - PTF DRG ALOS REPORTS (DRIVER ROUTINE) ; 8/29/01 2:28pm

Source Information

Source file <DGPTODA1.m>

Entry Points

Name Comments DBIA/ICR reference
LN
BA
HD
IN
Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !!?64,"-",DGPAG,"-",!
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: @IOF,!!,"AVERAGE LOS Report for ",DGFLAG,?110,"PRINTED: "
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: $P(Y,"@"),!,$P(DGCPG(2),U)
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: $P(Y,"@"),!,$P(DGCPG(2),U)
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !!?37,"|",?43,"BELOW AVG LOS",?60,"| ABOVE AVG LOS |",?92,"TOTAL",?107,"|",!?29," |----------------------|----------------------|-----------------------|",!,?16,"National",?31," "
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: " | Total Total ALOS/ | Total Total ALOS/ | Total Total ALOS/ | ",?110,"Total",?123,"Average",!,"DRG Low High ALOS Weight | Disch LOS Disch | Disch LOS Disch | Disch LOS Disch |"
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: ?109,"Weight(*)",?124,"Weight",!,DGLN
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: Q+0
Info |  Source |  Entry Points |  Interaction Calls