Routine: PSNPPSDL

Package	Total	Call Graph
VA FileMan	5	^%DT NOW^%DTC ^DIE $$GET1^DIQ ^DIR
Kernel	4	$$OS^%ZOSV ($$FMADD,$$FMTE)^XLFDT $$UP^XLFSTR (OPTSTAT,RESCH)^XUTMOPT
National Drug File	3	($$GETD,EN)^PSNFTP ($$DIREXIST,MAKEDIR)^PSNFTP2 $$STRIP^PSNPARM

Package	Total	Caller Graph
National Drug File	6	PSN PPS MANUAL DOWNLOAD PSN PPS SCHEDULE DOWNLOAD PSN TASK SCHEDULED DOWNLOAD PSNPPSMS PSNPPSNF PSNPPSNV

Entry Points

Name	Comments	DBIA/ICR reference
DOWNLOAD	;Entry point for menu option PSN DOWNLOAD NDF UPDATES for immediate PPS-N update file download
RUNIT	; Entry point for tasked menu option "PSN TASK SCHEDULED DOWNLOAD"
SCHDOPT	; Entry point for menu option "PSN TASK SCHEDULE DOWNLOAD" to create and/or edit the scheduling date/time
END	;
SCHCK(OPTION,TYPE)	; check PPS-N scheduled Download or Install tasks ; input - OPTION as name of option ; TYPE as task type (D-Download/I-Install) ; output - print future queued tasked (external format)
DATE(NODE,PIECE)	; return appropriate date ; input - NODE as node of data ; PIECE as piece of node to convert ; output - date in external format
LEGACY()	;check legacy update file processing parameter
CHKD	; check Unix dir and update it if contains control char and other special characters
UPDT	; update unix/linux directory, called by PSNPPSDL
ENTER	; press enter key

External References

Name	Field # of Occurrence
^%DT	SCHDOPT+24
NOW^%DTC	SCHDOPT+24
$$OS^%ZOSV	CHKD+1
^DIE	UPDT+3
$$GET1^DIQ	DOWNLOAD+2, LEGACY+2
^DIR	DOWNLOAD+10, DOWNLOAD+20, SCHDOPT+6, SCHDOPT+22, SCHDOPT+31, SCHDOPT+37, ENTER+2
$$GETD^PSNFTP	CHKD+4
EN^PSNFTP	RUNIT+1
$$DIREXIST^PSNFTP2	CHKD+5
MAKEDIR^PSNFTP2	CHKD+5
$$STRIP^PSNPARM	UPDT+3
$$FMADD^XLFDT	SCHDOPT+26
$$FMTE^XLFDT	DATE+5
$$UP^XLFSTR	DATE+5
OPTSTAT^XUTMOPT	SCHCK+7
RESCH^XUTMOPT	END+2, END+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You do not have the appropriate security key to use this option" Line Location: DOWNLOAD+7
Function Call: WRITE	Prompt: !,"please contact your ADPAC to resolve this issue.",! Line Location: DOWNLOAD+8
Function Call: WRITE	Prompt: !!!,"Warning: This download should only be done during off peak hours!" Line Location: DOWNLOAD+15
Function Call: WRITE	Prompt: ! Line Location: DOWNLOAD+18
Function Call: WRITE	Prompt: !,"Please stand-by NDF update download may take up to 30 minutes...",! Line Location: DOWNLOAD+21
Function Call: WRITE	Prompt: !!,"You do not have the appropriate security key to use this option" Line Location: SCHDOPT+3
Function Call: WRITE	Prompt: !,"please contact your ADPAC to resolve this issue.",! Line Location: SCHDOPT+4
Function Call: WRITE	Prompt: !!!,"This option allows you to schedule a recurring TasKMan job to" Line Location: SCHDOPT+11
Function Call: WRITE	Prompt: !,"perform the NDF update file download from PPS-N." Line Location: SCHDOPT+12
Function Call: WRITE	Prompt: !!,"Warning! This download should be scheduled during non-peak hours." Line Location: SCHDOPT+13
Function Call: WRITE	Prompt: !!,"You will need to select a date/time and how often this download should reoccur." Line Location: SCHDOPT+14
Function Call: WRITE	Prompt: @IOF Line Location: SCHDOPT+22
Function Call: WRITE	Prompt: !!,"No action taken!" Line Location: SCHDOPT+25
Function Call: WRITE	Prompt: @IOF Line Location: SCHDOPT+25
Function Call: WRITE	Prompt: !! Line Location: SCHDOPT+29
Function Call: WRITE	Prompt: !!,"No action taken!" Line Location: SCHDOPT+32
Function Call: WRITE	Prompt: @IOF Line Location: SCHDOPT+32
Function Call: WRITE	Prompt: !! Line Location: SCHDOPT+35
Function Call: WRITE	Prompt: !!,"No action taken!" Line Location: SCHDOPT+38
Function Call: WRITE	Prompt: @IOF Line Location: SCHDOPT+38
Function Call: WRITE	Prompt: !!,"Warning! The download you have scheduled will occur only once." Line Location: SCHDOPT+39
Function Call: WRITE	Prompt: !,"Your start time is:" Line Location: END+3
Function Call: WRITE	Prompt: !!,"The download will automatically be re-scheduled Daily",! Line Location: END+5
Function Call: WRITE	Prompt: !!,"The download will automatically be re-scheduled Weekly",! Line Location: END+6
Function Call: WRITE	Prompt: !!,"The download will NOT automatically be re-scheduled",! Line Location: END+7
Function Call: WRITE	Prompt: @IOF Line Location: END+8
Function Call: WRITE	Prompt: !!!,"Scheduled "_$S(TYPE="D":"Downloads",TYPE="I":"Installs",1:"")_" are:",!,"-----------------------" Line Location: SCHCK+10
Function Call: WRITE	Prompt: !,"*** Currently NO scheduled "_$S(TYPE="D":"Downloads",TYPE="I":"Installs",1:"")," tasks.",! Line Location: SCHCK+12
Function Call: WRITE	Prompt: ! Line Location: ENTER+2
Routine Call	DIE Line Location: UPDT+3
Routine Call	DIR Line Location: DOWNLOAD+10 DOWNLOAD+20 SCHDOPT+6 SCHDOPT+22 SCHDOPT+31 SCHDOPT+37 ENTER+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(57.23 - [#57.23]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(57.23 - [#57.23]	UPDT+2
^XUSEC("PSN PPS ADMIN"	DOWNLOAD+6, SCHDOPT+2

Label References

Name	Line Occurrences
$$DATE	SCHCK+11
$$LEGACY	DOWNLOAD+12, SCHDOPT+8
CHKD	DOWNLOAD+13, SCHDOPT+9
END	SCHDOPT+31, SCHDOPT+37
ENTER	SCHDOPT+25, SCHDOPT+32, SCHDOPT+38, END+8
SCHCK	SCHDOPT+18
UPDT	CHKD+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SCHDOPT+24
>> %DT	SCHDOPT+24*
>> %DT("A"	SCHDOPT+24*
>> %DT(0	SCHDOPT+24*
DA	UPDT+1~, UPDT+3*!
DIE	UPDT+1~, UPDT+3*!
DIR	DOWNLOAD+5~, DOWNLOAD+17~, SCHDOPT+1~, SCHDOPT+16~, SCHDOPT+28~, SCHDOPT+34~, END+1~, ENTER+1!, ENTER+2!
DIR("?"	DOWNLOAD+18, SCHDOPT+20, SCHDOPT+29, SCHDOPT+35
DIR("A"	DOWNLOAD+9, DOWNLOAD+19, SCHDOPT+5, SCHDOPT+21, SCHDOPT+30, SCHDOPT+36, ENTER+2*
DIR("B"	DOWNLOAD+20, SCHDOPT+21, SCHDOPT+31, SCHDOPT+37
DIR(0	DOWNLOAD+9, DOWNLOAD+18, SCHDOPT+5, SCHDOPT+20, SCHDOPT+29, SCHDOPT+35, ENTER+2*
DIRUT	DOWNLOAD+5~, DOWNLOAD+17~, SCHDOPT+1~, SCHDOPT+16~, SCHDOPT+22, SCHDOPT+28~, SCHDOPT+32, SCHDOPT+34~, SCHDOPT+38, END+1~
DR	UPDT+1~, UPDT+3*!
>> DTOUT	SCHDOPT+25
DUOUT	DOWNLOAD+5~, DOWNLOAD+17~, SCHDOPT+1~, SCHDOPT+16~, SCHDOPT+28~, SCHDOPT+34~, END+1~
DUZ	DOWNLOAD+6, SCHDOPT+2
I	SCHCK+5~, SCHCK+8, SCHCK+9, SCHCK+11
II	SCHCK+5~, SCHCK+8, SCHCK+9, SCHCK+10, SCHCK+12
IOF	SCHDOPT+22, SCHDOPT+25, SCHDOPT+32, SCHDOPT+38, END+8
NODE	SCHCK+5~, DATE~, DATE+5
NODE1	SCHCK+5~
OPTION	SCHCK~, SCHCK+7
PIECE	DATE~, DATE+5
PSENTER	DOWNLOAD+1~, DOWNLOAD+4, LEGACY+1~, LEGACY+6
PSERROR	SCHDOPT+1~, END+4
PSFREQ	SCHDOPT+1~, SCHDOPT+31, SCHDOPT+37, SCHDOPT+39*, END+2, END+4, END+5, END+6, END+7
PSIEN	SCHCK+5~
PSNF	LEGACY+1~, LEGACY+2, LEGACY+3, LEGACY+7
PSNLEG	LEGACY+1~, LEGACY+2*, LEGACY+3
PSNLEGF	DOWNLOAD+1~, DOWNLOAD+12, SCHDOPT+1~, SCHDOPT+8
PSNROOT	SCHCK+5~, SCHCK+7
PSNROOT(	SCHCK+9, SCHCK+11
PSNROOT(1	SCHCK+7
PSNSCJOB	RUNIT+1~*
PSSTART	SCHDOPT+1~, SCHDOPT+26*, END+4
TYPE	SCHCK~, SCHCK+10, SCHCK+12
UNXLD	CHKD+2~, CHKD+4, CHKD+5, UPDT+2*, UPDT+3
UNXLD1	CHKD+2~, UPDT+3
X	DOWNLOAD+5~, DOWNLOAD+17~, SCHDOPT+1~, SCHDOPT+16~, SCHDOPT+28~, SCHDOPT+34~, END+1~
XX	SCHCK+5~
Y	DOWNLOAD+5~, DOWNLOAD+17~, DOWNLOAD+20, SCHDOPT+1~, SCHDOPT+16~, SCHDOPT+22, SCHDOPT+25, SCHDOPT+26, SCHDOPT+28~, SCHDOPT+31 , SCHDOPT+34~, SCHDOPT+37, SCHDOPT+39, END+1~

Customize PDF page

Package: National Drug File

Routine: PSNPPSDL

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: