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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSNPPSMS

Package: National Drug File

Routine: PSNPPSMS


Information

PSNPPSMS ;HP/LE-PPSN update NDFK ; 05 Mar 2014 1:20 PM

Source Information

Source file <PSNPPSMS.m>

Entry Points

Name Comments DBIA/ICR reference
56(FILE,DIA,NEW,PSNTMPN) ;Drug Interaction file (#56) changes into 5000.561
IGU ;For National VistA Test SQA use only
IGU2 ;
RJ ; execute file rejection
CONT ;
ACTION ; prompt user for action type (complete/reject)
RETRY ; try to resend of complete message to PPS-N within one hour
NEWTRY ; send of complete message to PPS-N
N1
CTRLFILE(FILE) ;PROCESS CONTROL FILE, FILE NUMBER
CTRLIEN(IENS) ;PROCESS CONTROL FILE, IENS
CTRLSS(SS) ;PROCESS CONTROL FILE, SUBSCRIPT
CTRKDL(DSPLY) ;PROCESS CONTROLL FILE, DISPLAYED LAST
RESOP ;Restarting option and protocol which were paused during install
LOAD1 ;BUILD THE MESSAGE
HAZWASTE ;AFTER POPULATION OF HAZ WASTE FIELDS - CREATE DELIMITED FILE
QUEST ;
QUESTA ;
QUESTB ;
QUESTC ;
DISMNU ;disable menu options
DISOUT(NAM,PSREASON) ;
ENABLE ;enable menu options
ENABLE2(NAM,PSREASON) ;
ERRORMS ;FILE ERRORS ENCOUNTERED
ASK(FILE) ; check if the file has been finalized
ASK1(FILE) ; check if the file has been previously installed
REJUPD(FILE) ; update reject history node

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: IGU2+3
Function Call: WRITE
  • Prompt: "Note: Local sites may send completion messages for PPSN Update files, but may"
  • Line Location: IGU2+4
Function Call: WRITE
  • Prompt: !!!,$G(IOBON),"WARNING:",$G(IOBOFF)," The selected file hasn't been downloaded in VistA. It must be ",!,?9,"downloaded before you can be take action.",$C(7)
  • Line Location: IGU2+12
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter to continue... "
  • Variable: ENTER
  • Timeout: 60
  • Line Location: IGU2+13
Function Call: WRITE
  • Prompt: !!!,$G(IOBON),"WARNING:",$G(IOBOFF)," Reject isn't allowed for Update files older than the current",!,?9,"downloaded version",$C(7)
  • Line Location: IGU2+13
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: IGU2+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: IGU2+18
Function Call: WRITE
  • Prompt: !,"Complete message was sent to PPS-N. File should be approved/rejected ",!,"in PPS-N side.",!
  • Line Location: IGU2+19
Function Call: WRITE
  • Prompt: !,"There was a problem and the data file was not completed in PPS-N side."
  • Line Location: IGU2+20
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: RJ+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RJ+2
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: RJ+3
Function Call: WRITE
  • Prompt: !
  • Line Location: RJ+4
Function Call: WRITE
  • Prompt: !!,FILE," has been automatically rejected in PPS-N.",!
  • Line Location: RJ+15
Function Call: WRITE
  • Prompt: !
  • Line Location: ACTION+2
Function Call: WRITE
  • Prompt: !,"There was a problem and the data file was not completed in PPS-N side."
  • Line Location: RETRY+1
Function Call: WRITE
  • Prompt: !,"The completion message will be automatically resent to PPS-N until the message is successfully transmitted or one hour has elapsed.",!
  • Line Location: RETRY+2
Function Call: WRITE
  • Prompt: !!,"Queued as task #"_ZTSK
  • Line Location: RETRY+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: RETRY+6
Function Call: WRITE
  • Prompt: "VA PRODUCT IEN^NAME^HAZARDOUS TO HANDLE^HAZARDOUS TO DISPOSE^PRIMARY EPA CODE^WASTE SORT CODE^DOT SHIPPING CODE^VUID",!
  • Line Location: HAZWASTE+10
Function Call: WRITE
  • Prompt: !!,"The following PPS-N/NDF Update file(s) are available for install: ",!
  • Line Location: QUEST+8
Function Call: WRITE
  • Prompt: !?5,XX_")",?12,$P(X22,";")
  • Line Location: QUEST+10
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEST+11
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter to continue... "
  • Variable: ENTER
  • Timeout: 60
  • Line Location: QUEST+12
Function Call: WRITE
  • Prompt: !,?5,"There are no files to install.",!
  • Line Location: QUEST+12
Function Call: WRITE
  • Prompt: !,"The files must be installed in sequential order and take around"
  • Line Location: QUESTA+1
Function Call: WRITE
  • Prompt: !,"30 minutes each to install. Pharmacy will be down for that period"
  • Line Location: QUESTA+2
Function Call: WRITE
  • Prompt: !,"of time. Do you want to install just the first one or all of them?"
  • Line Location: QUESTA+3
Function Call: WRITE
  • Prompt: !!,"No action taken.",!
  • Line Location: QUESTB+2
Function Call: WRITE
  • Prompt: !!,"Enter F to install only the first file or A to install all files."
  • Line Location: QUESTB+3
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: DISMNU+2
Function Call: WRITE
  • Prompt: !?5,NAM
  • Line Location: DISMNU+10
Function Call: WRITE
  • Prompt: !?5,NAM
  • Line Location: DISMNU+12
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: DISMNU+13
Function Call: WRITE
  • Prompt: !?5,NAM
  • Line Location: DISMNU+14
Function Call: WRITE
  • Prompt: !?5,NAM
  • Line Location: ENABLE+11
Function Call: WRITE
  • Prompt: !?5,NAM
  • Line Location: ENABLE+13
Function Call: WRITE
  • Prompt: !?5,NAM
  • Line Location: ENABLE+15
Function Call: WRITE
  • Prompt: !,"Options and protocols enabled: "
  • Line Location: ENABLE+17
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: ENABLE+17
Function Call: WRITE
  • Prompt: !!,"WARNING: File has been rejected and finalized. It's not recommended to",!,?9,"reject it again."
  • Line Location: ASK+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] GET1^DIQ
^DIC(19 - [#19] GET1^DIQ
^DIC(19.2 - [#19.2] GET1^DIQ
^PSNDF(50.68 - [#50.68] GET1^DIQ
^PS(57.23 - [#57.23] GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call