Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 (,NOW)^%DTC  YN^DICN  DT^DICRW  FILE^DIE  
Registration 3 SUDO1^DGPTSUDO  (MT,PM)^DGPTUTL  LO^DGUTL  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DG PTF BACKGROUND JOB  DG PTF UPDATE TRANSFER DRG'S  

Entry Points

Name Comments DBIA/ICR reference
ABSENT
ALL
SOME ;
UPDATE ; -- update xfr drg's for PTF ifn
Q
LOS
ZERO ;LOOK FOR MISSING 0 NODE IN 501 MULTIPLE
UPDATEQ
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

External References

Name Field # of Occurrence
^%DTC LOS+3, ABSENT
NOW^%DTC ACTIVE+1
SUDO1^DGPTSUDO UPDATE+10
MT^DGPTUTL ACTIVE+2
PM^DGPTUTL UPDATE+4
LO^DGUTL ZERO+1
YN^DICN SOME+2
DT^DICRW ALL, SOME+7
FILE^DIE LOS+9, UPDATE+8

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
Routine Call
  • DIE
  • Line Location:
    • LOS+9
    • UPDATE+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] ACTIVE+2, LOS+4
^DGPM("APTT1" ACTIVE+2
^DGPM("APTT2" LOS+4, ABSENT
^DGPT - [#45] ACTIVE+2, LOS*, LOS+1, ALL+1, SOME+9, UPDATE+2, UPDATE+5, ZERO+1*
^DGPT("AADA" LOS
^DGPT("AS" ACTIVE+2

Label References

Name Line Occurrences
ABSENT LOS+4
LOS ACTIVE+2
Q ALL+2
SOME SOME+3
UPDATE ALL+1, SOME+9
UPDATEQ UPDATE+2, UPDATE+3, UPDATE+4

Naked Globals

Name Field # of Occurrence
^( LOS+1
^("M" ZERO+1
^("P" LOS+1
^(0 ACTIVE+2, LOS+4, UPDATE+2, ZERO+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SOME+2*, SOME+3
DFN ACTIVE+2*, ACTIVE+3!, LOS+4, ABSENT, UPDATE+9*, UPDATEQ!
DGADIFN ACTIVE+3!
DGADM ACTIVE+2*, ACTIVE+3!, LOS, LOS+2, UPDATE+9*, UPDATEQ!
DGBGJ ACTIVE+1*, ACTIVE+3!
DGCUM ACTIVE+3!, LOS+1*, LOS+8
DGD1 SOME+9*, Q+1!, UPDATE+1
DGD1SAV SOME+8~, SOME+9*, UPDATE+1*
DGFDA LOS+6~, UPDATE+6~
DGFDA( LOS+7*, LOS+8*, UPDATE+7*
DGFYDT SOME+7*, SOME+9, Q+1!
DGLEAVE ACTIVE+3!, LOS+3*, LOS+5, ABSENT+1*
DGLN ACTIVE+1*, ACTIVE+3!
DGMSG LOS+6~, UPDATE+6~
DGMT ACTIVE+3!
DGMV ACTIVE+3!, LOS+4*, ABSENT
DGMVDT ACTIVE+3!, LOS+1*, LOS+2*, LOS+3, LOS+4
DGNODE UPDATE+2*, UPDATE+3, UPDATE+9, UPDATEQ!
DGNXD UPDATE+5!
DGPASS ACTIVE+3!, LOS+3*, LOS+5, ABSENT*
DGPMAN ACTIVE+2*, ACTIVE+3!, UPDATEQ!
DGPMCA ACTIVE+2*, ACTIVE+3!, LOS+4, UPDATE+4, UPDATEQ!
DGPRD UPDATE+5!
DGTDD UPDATE+5!
DGTOT ACTIVE+3!, LOS+3*, LOS+5*, LOS+7, LOS+8
DGTYPE ACTIVE+3!, LOS+4*, ABSENT
DGXREF SOME+9*, Q+1!
DT ACTIVE+1*, LOS+3, ABSENT, SOME+7
FLD UPDATE+6~, UPDATE+7*
I UPDATE+5*, UPDATE+7, ZERO+1*, ZERO+2!
PTF ACTIVE+2*, ACTIVE+3!, LOS, LOS+1, LOS+7, LOS+8, ALL+1*, SOME+9*, Q+1!, UPDATE+2
, UPDATE+5, UPDATE+7, UPDATE+11
U ACTIVE+1*, ACTIVE+2, ALL*, SOME+7*, UPDATE+9
X ACTIVE+1, ACTIVE+3!, LOS+1*, LOS+3, LOS+4*, ABSENT*, ABSENT+1
X1 ACTIVE+3!, LOS+3*, ABSENT*
X2 ACTIVE+3!, LOS+3*, ABSENT*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All