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 |  Marked Items  | All
Print Page as PDF
Routine: PSNPARM

Package: National Drug File

Routine: PSNPARM


Information

PSNPARM ;BIR/SJA-PPS-N Site Parameters ; 11/16/2016

Source Information

Source file <PSNPARM.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 ENDR^%ZISS  ($$OS,$$VERSION)^%ZOSV  ($$FMADD,$$NOW)^XLFDT  ($$RJ,$$STRIP,$$UP)^XLFSTR  
VA FileMan 4 EN^DDIOL  ^DIE  $$GET1^DIQ  ^DIR  
National Drug File 2 ($$DIREXIST,MAKEDIR)^PSNFTP2  DISOPTS^PSNPPSNR  

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

Package Total Caller Graph
National Drug File 4 PSN PPS PARAM  PSNPPSDL  PSNPPSNR  ^PS(57.23  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- option entry point
ASK ; -- screen display
END ; -- kill variables and quit
RANGE ; -- range of numbers
ONE ; -- edit one item
HDR ; -- print screen header
LOCK() ; -- apply incremental lock
UNLOCK() ; -- apply decremental lock
XTMP
L1
DISP ; -- displays parameters
HELP
ERR ; -- display error message
DISBL() ; -- check for out of order scheduled option/menu option/protocol
RDIR ; -- recomended Unix dirrectory
UNXLDIR ; -- Unix/Linux Local Directory
LXDIR() ; -- Returns the Linux Directory for PPSN sFTP
SCR(Y) ; -- screen entry to the Legacy Update Processing field
STRIP(X) ; strip control chrs and any other invalid characters
FIELD ; -- field name

External References

Name Field # of Occurrence
ENDR^%ZISS EN+4
$$OS^%ZOSV UNXLDIR+4, LXDIR+4
$$VERSION^%ZOSV UNXLDIR+3, LXDIR+3
EN^DDIOL L1+2
^DIE ONE+4
$$GET1^DIQ DISBL+4
^DIR UNXLDIR+11, UNXLDIR+16
$$DIREXIST^PSNFTP2 UNXLDIR+8, UNXLDIR+14
MAKEDIR^PSNFTP2 UNXLDIR+13
DISOPTS^PSNPPSNR ONE+1
$$FMADD^XLFDT LOCK+2
$$NOW^XLFDT LOCK+2
$$RJ^XLFSTR DISP+14
$$STRIP^XLFSTR STRIP+4
$$UP^XLFSTR UNXLDIR+3, LXDIR+3

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: READ
  • Variable: XX
  • Timeout: DTIME
  • Line Location: ONE+5
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Pharmacy Product System-National(PPS-N) Site Parameters",!,LN,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,$$RJ^XLFSTR((PSNJ_"."),3," ")," ",$S(REQFLDS[("^"_PSNJ_"^"):"*",1:" "),PSNZ(PSNJ),?33,": ",$P(PSNAR(PSNJ),"^")
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: DISP+15
Function Call: WRITE
  • Prompt: @IOF,!!!!,"Enter the number or range of numbers you want to edit. Examples of proper",!,"responses are listed below."
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !!,"An '*' (asterisk) before the field indicates that an additional security key is required."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"1. Enter 'A' to update all information."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !!,"2. Enter a specific number to update the information in that field. (For",!," example, enter '1' to Update File Version Counter)"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !!,"3. Enter a range of numbers separated by a ':' to enter a range of",!," information. (For example, enter '1:3' to enter PPS-N Install Version,",!," PPS-N Download Version, and Open VMS Local Directory.)"
  • Line Location: HELP+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !,PSNZ(FLDS)," :",$P(PSNAR(FLDS),"^"),!
  • Line Location: ERR+1
Function Call: WRITE
  • Prompt: !,"Security key 'PSN PPS COORD' is required for editing this field."_$C(7)
  • Line Location: ERR+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ERR+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: ERR+4
Function Call: WRITE
  • Prompt: !,"*** The recommended Unix/Linux Local Directory is ",RUXDIR,$C(7),!
  • Line Location: RDIR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: UNXLDIR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: UNXLDIR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: UNXLDIR+13
Function Call: WRITE
  • Prompt: !!,"Warning: "_$S($G(NDIR):"The directory could not be created.",1:"The directory could not be found and is required for PPSN update file download."),!,$C(7)
  • Line Location: UNXLDIR+15
Routine Call
  • DIE
  • Line Location:
    • ONE+4
Routine Call
  • DIR
  • Line Location:
    • UNXLDIR+11
    • UNXLDIR+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DILOCKTM" LOCK+4
^PS(57.23 - [#57.23] ONE+3, ONE+6, ONE+7*, DISP+2, DISBL+3
^PS(59.7 - [#59.7] ONE+6, DISP+3, SCR+2
^TMP("PSN PPSN PARSED" DISBL+1!, DISBL+4*, DISBL+5!
^VA(200 - [#200] L1+1
^XTMP("PSNPARM" LOCK+4, UNLOCK+1, UNLOCK+2!, XTMP*, L1
^XUSEC("PSN PPS COORD" ONE+2

Label References

Name Line Occurrences
$$DISBL DISP+13
$$LOCK ASK+9, RANGE+1
$$LXDIR RDIR+2
ASK ASK+3, ASK+5, ASK+7, ASK+8
DISP ASK+1
END ASK+1, ASK+2, ASK+3, ASK+5
ERR ONE+2
HDR ASK+6, DISP+1
HELP ASK+3, ASK+5
L1 LOCK+5
ONE ASK+9, RANGE+2, ONE+7
RANGE ASK+7
RDIR ONE+3
UNLOCK ASK+9, RANGE+1
XTMP LOCK+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CHR STRIP+1~, STRIP+4*
CURDIR LXDIR+2~, LXDIR+7
CURLEY EN+1~, END+2!, RANGE+2*
DA ONE+4!*
DIE ONE+4!*
DIR UNXLDIR+2~, UNXLDIR+16!
DIR("A" UNXLDIR+9*, UNXLDIR+10*, UNXLDIR+16*
DIR("B" UNXLDIR+10*
DIR(0 UNXLDIR+10*, UNXLDIR+16*
DR ONE+4!*
DTIME ASK+2, ONE+5, HELP+5, ERR+3
DTOUT UNXLDIR+2~, UNXLDIR+11, UNXLDIR+16
DUOUT UNXLDIR+2~, UNXLDIR+11, UNXLDIR+16
DUZ ONE+2, XTMP
FLDS EN+1~, ASK+8*, END+2!, RANGE+2*, ONE+1, ONE+2, ONE+3, ONE+4, ONE+5, ONE+6
, ONE+7*, ERR+1
I DISBL+1~, DISBL+3*, DISBL+4
ICNT DISBL+1~, DISBL+2*, DISBL+4*
II STRIP+1~, STRIP+3*, STRIP+4*
IOF END+1, HDR+1, HELP
IORVOFF EN+2~, DISP+13
IORVON EN+2~, DISP+13
LN EN+1~, END+2!, HDR+1*, HDR+2, DISP+1*, DISP+15
ND DISBL+1~, DISBL+2*, DISBL+3, DISBL+4
NDIR UNXLDIR+2~, UNXLDIR+13*, UNXLDIR+15
NOD597 EN+2~, END+3!, DISP+3*
NODE0 EN+2~, END+3!, DISP+2*, DISP+6, DISP+7, DISP+9, DISP+10, DISP+11, DISP+12
NODE1 EN+2~, END+3!, DISP+2*, DISP+9
NODE2 EN+2~, END+3!, DISP+2*, DISP+7, DISP+8
OK SCR+1~, SCR+2*, SCR+3*, SCR+4
PSNAR EN+1~, END+2!
PSNAR( ASK+3, ASK+8, ONE+4, DISP+14, ERR+1
PSNAR(1 DISP+6*
PSNAR(10 DISP+9*
PSNAR(11 ONE+7*, DISP+10*
PSNAR(12 DISP+11*
PSNAR(13 DISP+12*
PSNAR(14 DISP+13*
PSNAR(2 DISP+6*
PSNAR(3 DISP+7*
PSNAR(4 DISP+7*
PSNAR(5 DISP+7*
PSNAR(6 DISP+8*
PSNAR(7 DISP+8*
PSNAR(8 DISP+9*
PSNAR(9 DISP+9*
PSNFLD EN+2~, END+3!, DISP+5*
PSNJ EN+2~, END+3!, DISP+5*, DISP+14*
PSNLCK EN+1~, END+2!, LOCK+3*, LOCK+5*, LOCK+6, LOCK+7
PSNNOW EN+1~, END+2!, LOCK+1~, LOCK+2*, XTMP
PSNNOW1 EN+1~, END+2!, LOCK+1~, LOCK+2*, XTMP
PSNOUT EN+1~, EN+3*, ASK+1, ASK+2*, ASK+3, ASK+5, END+2!, RANGE+2, ONE+4*, ONE+5*
, HELP+5*, ERR+3*, UNXLDIR+16*
PSNTAG EN+1~, END+2!, LOCK+1~, LOCK+3*, XTMP
PSNUSER EN+1~, END+2!, L1*, L1+1*, L1+2
PSNVER UNXLDIR+2~, UNXLDIR+3*, UNXLDIR+5, LXDIR+2~, LXDIR+3*, LXDIR+5
PSNX EN+1~, END+2!, L1*, L1+1
PSNZ EN+2~, END+3!
PSNZ( DISP+5*, DISP+14, ERR+1
REQFLDS EN+2~, EN+3*, END+3!, ONE+2, DISP+14
ROOTDIR LXDIR+2~, LXDIR+7*, LXDIR+8*, LXDIR+9
RUXDIR RDIR+1~*, RDIR+2*, RDIR+3
SHEMP EN+1~, END+2!, RANGE+2*
SOPT DISBL+1~, DISBL+4*
TYPE EN+1~, END+2!, DISP+3*, DISP+4*, DISP+9, SCR+1~, SCR+2*, SCR+3
UNXLD UNXLDIR+2~, UNXLDIR+7*, UNXLDIR+8, UNXLDIR+11, UNXLDIR+12, UNXLDIR+13, UNXLDIR+14
X EN+1~, EN+4*, ASK+2*, ASK+3*, ASK+4*, ASK+5, ASK+7, ASK+8, END+2!, RANGE+2
, HELP+5*, ERR+3*, DISBL+1~, DISBL+3*, DISBL+4, UNXLDIR+6*, UNXLDIR+7, UNXLDIR+11*, UNXLDIR+12*, STRIP~
, STRIP+3
XX EN+1~, ONE+5*
Y EN+1~, ASK+5*, END+2!, ONE+4, UNXLDIR+11, SCR~, SCR+3
YY STRIP+1~, STRIP+3*, STRIP+4*, STRIP+5
Z EN+1~, ASK+5*, END+2!

Marked Items

Name Field # of Occurrence
$T(FIELD+PSNJ DISP+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All