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 |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DGYVPST1

Package: Registration

Routine: DGYVPST1


Information

DGYVPST1 ;ALB/LD - Patch DG*5.3*64 Post-Init (cont.); 8/8/95

Source Information

Source file <DGYVPST1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZISC  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGYVPOST  

Entry Points

Name Comments DBIA/ICR reference
PAUSE ;--Pause for screen output
HDR ;--Screen header
INACTQ
PRTERR ;--Print errors which occurred during pop of file #45.7 Eff Date mult
INACT ;-- Report of inactive facility treating specialties. These
ERRMSG ;--Error messages

External References

Name Field # of Occurrence
^%ZIS INACT+8
^%ZISC INACT+17
^DIR PAUSE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: @IOF,?21,"Patch DG*5.3*64 Post-Init Report",!!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,">>> Creating Inactive Treating Specialty Report...",!
  • Line Location: INACT+5
Function Call: WRITE
  • Prompt: @IOF,?23,"INACTIVE TREATING SPECIALTY REPORT",!
  • Line Location: INACT+10
Function Call: WRITE
  • Prompt: !!?4,"The following facility treating specialties point to treating specialties",!?4,"which are now inactive. These facility treating specialties should be"
  • Line Location: INACT+11
Function Call: WRITE
  • Prompt: !?4,"edited to point to active specialties through the Treating Specialty",!?4,"Set-up option [DG TREATING SETUP] under the ADT System Definition Menu.",!!
  • Line Location: INACT+12
Function Call: WRITE
  • Prompt: !?8,"FACILITY TREATING SPECIALTY",?46,"INACTIVE TREATING SPECIALTY"
  • Line Location: INACT+13
Function Call: WRITE
  • Prompt: !?8,"===========================",?46,"===========================",!
  • Line Location: INACT+14
Function Call: WRITE
  • Prompt: !?8,$P($G(DGFAC(DGX)),U,2),?46,$P($G(^DIC(42.4,$P($G(DGFAC(DGX)),U),0)),U)
  • Line Location: INACT+15
Function Call: WRITE
  • Prompt: !?4,"No inactive facility treating specialties found.",!
  • Line Location: INACT+16
Routine Call
  • DIR
  • Line Location:
    • PAUSE+4
Routine Call
  • %ZIS
  • Line Location:
    • INACT+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42.4 - [#42.4] PRTERR+7, INACT+15
^DIC(45.7 - [#45.7] PRTERR+8, INACT+7
^TMP("DGPTERR" PRTERR+4, PRTERR+5, PRTERR+6

Label References

Name Line Occurrences
HDR PRTERR+3, PRTERR+11
PAUSE PRTERR+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS INACT+8*!
DGFAC INACT+4~, INACT+16
DGFAC( INACT+7*, INACT+15
DGI INACT+4~, INACT+6*, INACT+7
DGJ INACT+4~, INACT+7*
DGPTE PRTERR+1~, PRTERR+2*, PRTERR+6*
DGPTEX PRTERR+4, PRTERR+5, PRTERR+6, PRTERR+11, PRTERR+12!, PAUSE+4*
DGPTM PRTERR+1~, PRTERR+2*, PRTERR+4*, PRTERR+5, PRTERR+6, PRTERR+7
DGPTMSG PRTERR+1~, PRTERR+9*, PRTERR+10
DGPTS PRTERR+1~, PRTERR+2*, PRTERR+5*, PRTERR+6, PRTERR+8
DGX INACT+4~, INACT+15*
DIR PAUSE+2~
DIR(0 PAUSE+4*
DIRUT PAUSE+2~, PAUSE+4
DUOUT PAUSE+2~, PAUSE+4
IO INACT+9
IOF HDR+1, INACT+10
IOSL PRTERR+11, PAUSE+3
IOST PRTERR+3, PAUSE+1
POP INACT+4~, INACT+8
U PRTERR+7, PRTERR+8, INACT+7, INACT+15
XX PAUSE+2~, PAUSE+3*

Marked Items

Name Field # of Occurrence
$T(ERRMSG+DGPTE PRTERR+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All