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 |  All
Print Page as PDF
Routine: DGV53PP1

Package: Registration

Routine: DGV53PP1


Information

DGV53PP1 ;MAF/ALB - PARAMETER CHECK AND UPDATE FOR IRT. - APR 2 1993@1100

Source Information

Source file <DGV53PP1.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 YN^DICN  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGV53PP  

Entry Points

Name Comments DBIA/ICR reference
WRITE
EN
YN
NOCON
LIST
Q
PRT
OKD1
MSG

External References

Name Field # of Occurrence
YN^DICN OKD1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,">>> Checking IRT parameters needed for IRT conversion in the post-init!",!!
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !,"***The following parameters need to be updated before the IRT conversion will run in the post-init."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!!,"***ALL IRT PARAMETERS ARE UPDATED!"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"DIVISION: "_DGJTDV
  • Line Location: WRITE+0
Function Call: WRITE
  • Prompt: !?5,$P(DGJTNODE,"^",1),?32," Choices: Primary or Attending Physician"
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: !?5,$P(DGJTNODE,"^",2),?34," Choices: Yes or No",!?10,"If 'YES' the parameter DEFAULT REVIEWING PHYSICIAN will also be asked",!?32," Choices: Primary or Attending Physician"
  • Line Location: WRITE+2
Function Call: WRITE
  • Prompt: !?5,$P(DGJTNODE,"^",3),?32," Choices: Primary or Attending Physician"
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: !?5,$P(DGJTNODE,"^",4)," Choices: Primary or Attending Physician"
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: !!!,"***PLEASE CONTACT YOUR MAS OFFICE IF YOU HAVE ANY QUESTIONS AS TO HOW THE",!,"IRT PARAMETERS SHOULD BE ANSWERED!"
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !!,"THE INSTALLATION WILL CONTINUE BUT, THE IRT CONVERSION WILL NOT RUN!!!"
  • Line Location: OKD1+1
Function Call: WRITE
  • Prompt: !?10,"Choose:",!?25,"Y for YES",!?25,"N for NO",!
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !!!,"***THIS SITE IS NOT USING THE IRT PACKAGE. PARAMETERS NEED NOT BE UPDATED AND THE IRT CONVERSION WILL NOT RUN IN THE POST-INIT.***",!!
  • Line Location: NOCON+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] EN+2, LIST, LIST+1, LIST+2, LIST+3
^UTILITY("VAS" EN+3, EN+4, Q!, LIST*, LIST+1*, LIST+2*, LIST+3*, PRT
^VAS(393 - [#393] EN+1

Label References

Name Line Occurrences
LIST EN+2
MSG EN+3
NOCON EN+1
OKD1 EN+3, OKD1
PRT EN+3
Q EN+1
WRITE PRT
YN OKD1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q!, OKD1*, OKD1+1, OKD1+2
DA Q!
DGJATT Q!
DGJDTN Q!
DGJDV Q!
DGJFSIG Q!
DGJMSG Q!
DGJPRIM Q!
DGJRES Q!
DGJSTAT Q!
DGJT Q!
DGJTADM Q!
DGJTDV EN+2*, Q!, LIST, LIST+1, LIST+2, LIST+3, PRT*, WRITE
DGJTNODE Q!, PRT*, WRITE+1, WRITE+2, WRITE+3, WRITE+4
DGJTPAR Q!
DGJTPHDE Q!
DGJY Q!
DGPGM Q!
DIC Q!
DIE Q!
DIFQ OKD1+2!
DR Q!
IFN Q!
POP Q!
X Q!, LIST*, LIST+1, LIST+2, LIST+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All