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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(45.7 - [#45.7] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call