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

Package: Registration

Routine: DGPTODA2


Information

DGPTODA2 ;ALB/AS - PTF DRG ALOS REPORTS (CONT) ; 9/13/01 5:55pm

Source Information

Source file <DGPTODA2.m>

Entry Points

Name Comments DBIA/ICR reference
LN
WLN
AA
BA
PG
SV
S
WT
WM
WS
WB

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(DRG,3),$J(DGLOTRIM,5),$J($P(Z,"^",4),6),$J($P(Z,"^",5),9),$J(DGWU,9),$J($P(Z,"^",7),4)
  • Line Location: LN+2
Function Call: WRITE
  • Prompt: ?37,"|"
  • Line Location: WLN+0
Function Call: WRITE
  • Prompt: $J(DGDU,6),$J(DGLU,8),$J(DGLU/DGDU,7,1)," |"
  • Condition for execution: DGU="B"
  • Line Location: WLN+0
Function Call: WRITE
  • Prompt: ?66,"0 0 0"
  • Condition for execution: DGU'="B" ?43,"0 0 0 |" W:DGA="A" $J(DGDA,6),$J(DGLA,8),?70,$J(DGLA/DGDA,7,1) W:DGA'="A"
  • Line Location: WLN+0
Function Call: WRITE
  • Prompt: ?83,"|",$J(DGTD,6),$J(DGTL,9),$J(DGTL/DGTD,7,1),?107,"|"
  • Line Location: WLN+1
Function Call: WRITE
  • Prompt: $J(DGTWW,9,2)
  • Line Location: WLN+2
Function Call: WRITE
  • Prompt: $J(X,13)
  • Line Location: WLN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PG+0
Function Call: WRITE
  • Prompt: !!?64,"-",DGPAG,"-",!
  • Line Location: PG+1
Function Call: WRITE
  • Prompt: ?37,"|",$J(DGTT(1),6),$J(DGTT(2),8)
  • Line Location: WT+0
Function Call: WRITE
  • Prompt: $S(%]"":$J(%,7,1),1:" 0")," |"
  • Line Location: WT+0
Function Call: WRITE
  • Prompt: $J(DGTT(3),6),$J(DGTT(4),8)
  • Line Location: WT+1
Function Call: WRITE
  • Prompt: $S(%]"":$J(%,7,1),1:" 0")," |",$J(DGTT(5),6),$J(DGTT(6),9),$J(DGTT(6)/DGTT(5),7,1)," |",$J(DGTT(7),9,2),$J(DGTT(7)/DGTT(5),13,2)
  • Line Location: WT+1
Function Call: WRITE
  • Prompt: !,DGLN,!?3,"Totals for Medical Center:"
  • Line Location: WM+0
Function Call: WRITE
  • Prompt: !,DGLN,!?3,"Totals for Service:"
  • Line Location: WS+1
Function Call: WRITE
  • Prompt: !,DGLN2,!?3,"Totals for Specialty:"
  • Line Location: WB+0
Info |  Source |  Entry Points |  Interaction Calls