Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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+15
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: DISP+16
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
Info |  Source |  Entry Points |  Interaction Calls