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

Package: Registration

Routine: DGPTFUP


Information

DGPTFUP ;ALB/ABS,BOK - Updates Means Test, LOS, TRANSFER DRGs in PTF records ; 3/28/02 11:54am

Source Information

Source file <DGPTFUP.m>

Entry Points

Name Comments DBIA/ICR reference
ACTIVE ;this call should be queued to run nightly to update the LOS in active admission PTF records and the Means Test Indicator in Open PTF records
LOS
ABSENT
ALL
SOME ;
Q
UPDATE ; -- update xfr drg's for PTF ifn
UPDATEQ
ZERO ;LOOK FOR MISSING 0 NODE IN 501 MULTIPLE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"===> PTF TRANSFER DRG update beginning..."
  • Line Location: ALL+0
Function Call: WRITE
  • Prompt: !!?2,"This option will recalculate the TRANSFER DRG's for all",!?2,"current fiscal year PTF records."
  • Line Location: SOME+1
Function Call: WRITE
  • Prompt: !!?2,"Do you want to continue"
  • Line Location: SOME+2
Function Call: WRITE
  • Prompt: !?2,"Answer 'YES' to begin recalculation or 'NO' to stop."
  • Line Location: SOME+3
Function Call: WRITE
  • Prompt: !?5,"===> PTF partial TRANSFER DRG update beginning with "
  • Line Location: SOME+4
Function Call: WRITE
  • Prompt: !?5," discharge dates for the current fiscal year..."
  • Line Location: SOME+5
Function Call: WRITE
  • Prompt: !!?5,"===> PTF TRANSFER DRG update complete"
  • Line Location: Q+0
Info |  Source |  Entry Points |  Interaction Calls