Routine: PSNDELTE

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIR

Package	Total	Caller Graph
National Drug File	1	PSNDELTE

Entry Points

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

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!

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

Customize PDF page

Package: National Drug File

Routine: PSNDELTE

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

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