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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGYVPOST

Package: Registration

Routine: DGYVPOST


Information

DGYVPOST ;ALB/LD - Patch DG*5.3*64 Post-Init ; 8/8/95

Source Information

Source file <DGYVPOST.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 NOW^%DTC  FILE^DICN  ENALL^DIK  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
List Manager 1 $$FTIME^VALM1  
Registration 1 (INACT,PRTERR)^DGYVPST1  

Entry Points

Name Comments DBIA/ICR reference
EN ;-- Entry point
ENQ
XREFCHK ;-- Check for "ASPEC" xref in ^DD(45.7
RXREF ;--Reindex Specialty (#1) field "ASPEC" xref in file 45.7
POPMUL ;--Get data from file 42.4 to populate eff date mult in file 45.7
POPMULQ
POPFAC ;--Populate eff date mult in FTS file #45.7
POPFACQ
ASK ;
ASKQ
ERRPT ;--Queue error report for printing or print direct
ERRPTQ
DONE

External References

Name Field # of Occurrence
NOW^%DTC POPMUL+2, DONE
^%ZIS ERRPT+5
^%ZISC ERRPT+6
^%ZTLOAD ERRPT+10
INACT^DGYVPST1 EN+5
PRTERR^DGYVPST1 ERRPT+6
FILE^DICN POPFAC+18
ENALL^DIK RXREF+3
^DIR ASK+7
$$FTIME^VALM1 POPMUL+2, DONE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,">>> This post-init will populate the Effective Date multiple of each record",!?4,"in the Facility Treating Specialty file (#45.7).",!!
  • Line Location: XREFCHK+2
Function Call: WRITE
  • Prompt: !,"***ERROR: Cross reference ""ASPEC"" in file #45.7 not found.",!?10,"Rerun init DGYVINIT from patch DG*5.3*64 (see patch description",!?10,"for complete instructions).",!
  • Line Location: XREFCHK+6
Function Call: WRITE
  • Prompt: !!,">>> Post-Init started at: "
  • Line Location: POPMUL+2
Function Call: WRITE
  • Prompt: $$FTIME^VALM1(%),!
  • Line Location: POPMUL+2
Function Call: WRITE
  • Prompt: !!,"... Added ",$S('$G(DGPTEFF):"active ",1:"inactive "),"effective date and ",$S('$G(DGPTEFF):"active ",1:"inactive "),"flag to facility",!?4,"treating specialty ",$P($G(^DIC(45.7,DGPTSIEN,0)),U)
  • Line Location: POPFAC+22
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: !!,">>> The following report will list all messages and/or errors which occurred",!?4,"while running this post-init.",!
  • Line Location: ERRPT+3
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):">>> Job has been queued. The task number is "_ZTSK_".",1:">>> Unable to queue this job.")
  • Line Location: ERRPT+11
Function Call: WRITE
  • Prompt: !!,">>> Post-Init completed at: "
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: $$FTIME^VALM1(%),!
  • Line Location: DONE+0
Routine Call
  • DIR
  • Line Location:
    • ASK+7
Routine Call
  • %ZIS
  • Line Location:
    • ERRPT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(45.7 - [#45.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(45.7 XREFCHK+3, XREFCHK+5, POPFAC+14
^DIC(42.4 - [#42.4] POPMUL+9, POPMUL+11, POPFAC+3
^DIC(45.7 - [#45.7] POPMUL+5, POPMUL+6, POPFAC+22, ASK+2
^TMP("DGPTERR" POPMUL+9*, POPMUL+11*, POPFAC+3*, POPFAC+5*, POPFAC+19*, POPFAC+20*, ERRPT+1, ERRPTQ!

Label References

Name Line Occurrences
ASK POPFAC+4
DONE EN+4, EN+5
ERRPT EN+5
ERRPTQ ERRPT+6
POPFAC POPMUL+12
POPFACQ POPFAC+3, POPFAC+5, POPFAC+20
POPMUL EN+5
RXREF EN+5
XREFCHK EN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % POPMUL+2, DONE
%ZIS ERRPT+5*!
DA POPFAC+1~, POPFAC+11*
DA(1 POPFAC+15*
DD POPFAC+18!
DGPTACTF POPFAC+1~, POPFAC+7*, POPFAC+17
DGPTASK POPMUL+7~, POPFAC+4, ASK+7*
DGPTCTR POPMUL+7~, POPMUL+11*, POPMUL+12, POPFAC+6*
DGPTEFDT POPFAC+1~, POPFAC+7*, POPFAC+12
DGPTEFF POPMUL+7~, POPMUL+12, POPFAC+6, POPFAC+22, ASK+7*
DGPTERR POPMUL+4~
DGPTI POPMUL+7~, POPMUL+12*, POPFAC+3, POPFAC+11, POPFAC+22
DGPTMIEN POPMUL+4~, POPMUL+5*, POPMUL+6, POPMUL+9, POPMUL+11, POPFAC+3, POPFAC+4, POPFAC+5, POPFAC+19, POPFAC+20
DGPTNODE POPFAC+1~, POPFAC+3*, POPFAC+7
DGPTOUT POPMUL+4~, POPMUL+5, POPMUL+6, POPMUL+12, POPFAC+5*, POPFAC+20*
DGPTQ EN+2~, EN+4, EN+5, XREFCHK+3*, XREFCHK+4*, XREFCHK+5*, XREFCHK+6
DGPTSIEN POPMUL+4~, POPMUL+6*, POPMUL+9, POPMUL+11, POPFAC+3, POPFAC+5, POPFAC+9, POPFAC+15, POPFAC+19, POPFAC+20
, POPFAC+22, ASK+2
DIC POPFAC+1~, POPFAC+9*
DIC("DR" POPFAC+17*
DIC("P" POPFAC+14*
DIC(0 POPFAC+10*
DIE POPFAC+1~
DIK RXREF+2~, RXREF+3*
DIK(1 RXREF+3*
DINUM POPFAC+1~, POPFAC+11*
DIR ASK+7!
DIR("A" ASK+1*, ASK+2*, ASK+3*, ASK+4*, ASK+5*, ASK+6*
DIR("B" ASK+7*
DIR(0 ASK+7*
DIRUT POPMUL+4~, POPFAC+5
DO POPFAC+18!
DR POPFAC+1~
DTOUT POPMUL+4~, POPFAC+5, POPFAC+20
DUOUT POPMUL+4~, POPFAC+5, POPFAC+20
I XREFCHK+3~*, XREFCHK+4, XREFCHK+5
IO ERRPT+6
IO("Q" ERRPT+6, ERRPTQ!
POP ERRPT+4~, ERRPT+5
U POPMUL+11, POPFAC+7, POPFAC+22, ASK+2
X POPFAC+1~, POPFAC+12*
Y POPFAC+1~, POPFAC+19, POPFAC+22, ASK+7!
ZTDESC ERRPT+4~, ERRPT+9*
ZTRTN ERRPT+4~, ERRPT+8*
ZTSAVE ERRPT+4~
ZTSAVE("^TMP(""DGPTERR"",$J," ERRPT+8*
ZTSK ERRPT+4~, ERRPT+11
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All