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: PSNDELTE

Package: National Drug File

Routine: PSNDELTE


Information

PSNDELTE ;BIRM/WRT-Deletes PMI files for PMI Update Patches ; 10/27/03 10:27

Source Information

Source file <PSNDELTE.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA FileMan 2 ^DIC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
National Drug File 1 PSNDELTE  

Entry Points

Name Comments DBIA/ICR reference
START ; Begin update process
BEGIN
TEXT
SECND ; Ask a second time
DELETE

External References

Name Field # of Occurrence
^DIC BEGIN
^DIR START+4, TEXT+13, SECND+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will run the auto-mapping process. This will be accomplished by",!,"taking NDCs from NDC/UPN file #50.67 and the VA Products tied to these NDCs"
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,"in file #50.68 AND attempt to find a match in PMI NDC/GCNSEQNO file #50.628."
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !!,"You must be a valid user with DUZ(0)=""@"""
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !,"This option will automatically DELETE all Patient Medication Information Sheet",!,"data from your system."
  • Line Location: TEXT+0
Function Call: WRITE
  • Prompt: !!,"If you are not absolutely sure what you are about to do, exit this option",!,"immediately by entering ""^"" at the next prompt."
  • Line Location: TEXT+1
Function Call: WRITE
  • Prompt: !!,"This option should only be used when installing a update Patient Medication",!,"Information Sheet Data Update patch."
  • Line Location: TEXT+2
Function Call: WRITE
  • Prompt: "Immediately after running this option, the",!,"new data global MUST be installed using instructions from the Patient Medication",!,"Sheet Data Update patch."
  • Line Location: TEXT+3
Function Call: WRITE
  • Prompt: !,"You are about to DELETE ALL Patient Medication Sheet data from the following",!,"files:",!
  • Line Location: TEXT+4
Function Call: WRITE
  • Prompt: !!,?7,"50.621 PMI-ENGLISH ^PS(50.621,"
  • Line Location: TEXT+5
Function Call: WRITE
  • Prompt: !,?7,"50.622 PMI-SPANISH ^PS(50.622,"
  • Line Location: TEXT+6
Function Call: WRITE
  • Prompt: !,?7,"50.623 PMI MAP-ENGLISH ^PS(50.623,"
  • Line Location: TEXT+7
Function Call: WRITE
  • Prompt: !,?7,"50.624 PMI MAP-SPANISH ^PS(50.624,"
  • Line Location: TEXT+8
Function Call: WRITE
  • Prompt: !,?7,"50.625 WARNING LABEL-ENGLISH ^PS(50.625,"
  • Line Location: TEXT+9
Function Call: WRITE
  • Prompt: !,?7,"50.626 WARNING LABEL-SPANISH ^PS(50.626,"
  • Line Location: TEXT+10
Function Call: WRITE
  • Prompt: !,?7,"50.627 WARNING LABEL MAP ^PS(50.627,"
  • Line Location: TEXT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: TEXT+12
Function Call: WRITE
  • Prompt: !!,"Because running this process inadvertently could cause serious problems, you",!,"will be asked to confirm that you want to proceed."
  • Line Location: SECND+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SECND+2
Function Call: WRITE
  • Prompt: !!,"Deleting all Patient Medication Information Sheet data...",!,"The deletion process has completed.",!!,"Now, IMMEDIATELY install (restore) the new data global from the latest"
  • Line Location: DELETE+1
Function Call: WRITE
  • Prompt: !,"Patient Medication Information Sheet data update patch."
  • Line Location: DELETE+2
Routine Call
  • DIC
  • Line Location:
    • BEGIN
Routine Call
  • DIR
  • Line Location:
    • START+4
    • TEXT+13
    • SECND+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.621 - [#50.621] DELETE!
^PS(50.622 - [#50.622] DELETE!
^PS(50.623 - [#50.623] DELETE!
^PS(50.624 - [#50.624] DELETE!
^PS(50.625 - [#50.625] DELETE!
^PS(50.626 - [#50.626] DELETE!
^PS(50.627 - [#50.627] DELETE!

Label References

Name Line Occurrences
SECND TEXT+15
TEXT BEGIN

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC BEGIN~*
DIC(0 BEGIN*
DIR START+4!, TEXT+13!, SECND+2!, SECND+3!
DIR("A" START+3*, TEXT+12*, SECND+2*
DIR("B" START+4*, TEXT+13*, SECND+3*
DIR(0 START+4*, TEXT+13*, SECND+3*
>> DTOUT START+4, TEXT+13, SECND+3
>> DUOUT START+4, TEXT+13, SECND+3
DUZ BEGIN
DUZ(0 BEGIN
X BEGIN~*
Y START+5, BEGIN~, TEXT+14, SECND+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All