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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSNPRE

Package: National Drug File

Routine: PSNPRE


Information

PSNPRE ;BIR/WRT-pre-init routine to ask question to kill off old reference files sent with the package ;29 Sep 98 / 12:07 PM [ 07/30/2002 4:02 PM ]

Source Information

Source file <PSNPRE.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 ($$PATCH,$$VERSION,BMES,MES)^XPDUTL  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
MESSGE
VR31
PATCHCHK ;I $$VERSION^XPDUTL("INPATIENT MEDICATIONS")?1"4.5".E,'$$PATCH^XPDUTL("PSJ*4.5*59") D BMES^XPDUTL("You must install patch PSJ*4.5*59") S XPDQUIT=1
CKDUZ
GLB0

External References

Name Field # of Occurrence
^DIR MESSGE+3
$$PATCH^XPDUTL PATCHCHK+11, PATCHCHK+15, PATCHCHK+19, PATCHCHK+20, PATCHCHK+22, PATCHCHK+23, PATCHCHK+24
$$VERSION^XPDUTL VR31, PATCHCHK+2, PATCHCHK+3, PATCHCHK+4, PATCHCHK+5, PATCHCHK+6, PATCHCHK+7, PATCHCHK+8, PATCHCHK+9, PATCHCHK+10
, PATCHCHK+11, PATCHCHK+15, PATCHCHK+19, PATCHCHK+20, PATCHCHK+22, PATCHCHK+23, PATCHCHK+24
BMES^XPDUTL CKDUZ+4, GLB0, VR31, PATCHCHK+2, PATCHCHK+3, PATCHCHK+4, PATCHCHK+5, PATCHCHK+6, PATCHCHK+7, PATCHCHK+8
, PATCHCHK+9, PATCHCHK+10, PATCHCHK+11, PATCHCHK+15, PATCHCHK+19, PATCHCHK+20, PATCHCHK+22, PATCHCHK+23, PATCHCHK+24
MES^XPDUTL CKDUZ+4, GLB0

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"DUZ MUST BE SET TO A VALID USER NUMBER AND",!,"DUZ(0) MUST BE SET TO THE ""@"" SIGN",!!
  • Line Location: CKDUZ+0
Function Call: WRITE
  • Prompt: !!,$C(7),"I need to delete the following files:",!!,?5,"DRUG INGREDIENTS (50.416)",!,?5,"VA DRUG CLASS (50.605)",!,?5,"DRUG UNITS (50.607)"
  • Line Location: MESSGE+0
Function Call: WRITE
  • Prompt: !?5,"PACKAGE TYPE (50.608)",!?5,"PACKAGE SIZE (50.609)",!?5,"DRUG MANUFACTURER (55.95)"
  • Line Location: MESSGE+1
Function Call: WRITE
  • Prompt: !!,"If you wish to retain a copy of these files, you may wish to backup these files",!,"before going any further."
  • Line Location: MESSGE+2
Function Call: WRITE
  • Prompt: !!,"If you start this Installation, you must let it run to completion."
  • Line Location: MESSGE+3
Routine Call
  • DIR
  • Line Location:
    • MESSGE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(59.7 - [#59.7] CKDUZ+1
^PSNDF(50.6 - [#50.6] CKDUZ+4, GLB0
^VA(200 - [#200] CKDUZ

Label References

Name Line Occurrences
MESSGE CKDUZ+1
PATCHCHK CKDUZ+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR MESSGE+3!
DIR("A" MESSGE+3*
DIR(0 MESSGE+3*
>> DIRUT MESSGE+3
DUZ CKDUZ
DUZ(0 CKDUZ
NDF PATCHCHK+2*, PATCHCHK+3*, PATCHCHK+4*, PATCHCHK+5*, PATCHCHK+6*, PATCHCHK+7*, PATCHCHK+8*, PATCHCHK+9*, PATCHCHK+10*, PATCHCHK+11*
, PATCHCHK+15*, PATCHCHK+25!
>> XPDQUIT CKDUZ*, CKDUZ+4*, MESSGE+3*, MESSGE+4*, GLB0*, VR31*, PATCHCHK+2*, PATCHCHK+3*, PATCHCHK+4*, PATCHCHK+5*
, PATCHCHK+6*, PATCHCHK+7*, PATCHCHK+8*, PATCHCHK+9*, PATCHCHK+10*, PATCHCHK+11*, PATCHCHK+15*, PATCHCHK+19*, PATCHCHK+20*, PATCHCHK+22*
, PATCHCHK+23*, PATCHCHK+24*
>> Y MESSGE+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All