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

Package: Registration

Routine: DGPTICD


Information

DGPTICD ;ALB/MTC - PTF DRG Grouper Utility ;2/19/02 3:08pm

Source Information

Source file <DGPTICD.m>

Entry Points

Name Comments DBIA/ICR reference
PRT ;print DRG and national HCFA values
Q
80 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DGPTICD+29
Function Call: WRITE
  • Prompt: *7
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: *7
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !!?9,"Effective Date:"," ",Y
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !!,"Diagnosis Related Group: ",$J(DRG,6),?36,"Average Length of Stay(ALOS): ",$J($P(DRG(0),"^",8),6)
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !?17,"Weight: ",$J($P(DRG(0),"^",2),6)
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: !?12," Low Day(s): ",$J($P(DRG(0),"^",3),6)
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: !?13," High Days: ",$J($P(DRG(0),"^",4),6)
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: ?10,DGDX(DGI),!
  • Line Location: PRT+11
Info |  Source |  Entry Points |  Interaction Calls