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

Package: Pharmacy Data Management

Routine: PSSHRIT


Information

PSSHRIT ;WOIFO/SG,PO - Transmits a "ping" to determine if FDB server is down and record the down time ; Mar 01, 2016@15:34

Source Information

Source file <PSSHRIT.m>

Entry Points

Name Comments DBIA/ICR reference
PINGCHK ; do ping test, if not passed record it and send a message.
; Called from PSS INTERFACE SCHEDULER option
PINGTST() ; test the ping by sending a ping request.
PINGFILE(STATUS) ; file the ping results
; Input
; Status - Ping results
; Return
; -1 - if creates an entry - means the first it noticed PEPS is unavailable
; 0 - if does not create/update a record,
; 1 - if updates the last entry
NEWENT ; create a new entry in FDB INTERFACE DATA (#59.74) file.
UPDATENT(LAST) ; update the last entry in FDB INTERFACE DATA (#59.74) file.
SMSGDWN ; send a bulletin that Interface connection is down.
SMSGRST ; send a bulletin that Interface connection is restored
TASKIT(FREQ,START) ; create/update scheduling option start time and frequency
; Input:
; FREQ - Optional - rescheduling frequency in minutes (default 15 minutes)
; START - Optional - start time (default is current time + 4 minutes)
; Note: if START is less than 4 minutes in future, it will be defaulted to
; current time + 4 minutes.
SCHDOPT ; edit option scheduling
; Called from "PSS SCHEDULE PEPS INTERFACE CK" option to create and/or edit the scheduling
; parameters for "PSS INTERFACE SCHEDULER" option in OPTION SCHEDULING file.
; The "PSS SCHEDULE PEPS INTERFACE CK" option is installed by PAS*1.0*117 package.
SLASTRUN(LASTRUN) ; set last run time
GLASTRUN() ; get last run time
RUNTEST ; run interaction test to PEPS server
; called from PSS CHECK PEPS SERVICES SETUP option
EXIT
TESTS ; interaction tests to PEPS server
QTESTS ; queued interaction tests to PEPS server
CONCHK() ; check connection
; Return 1 if OK, 0 if not OK.
;
INTERACT() ; check drug-drug interaction.
; Return 1 if OK, 0 if not OK.
DUPTHRPY() ; check duplicate therapy
; Return 1 if OK, 0 if not OK.
;
DOSECHK() ; check dosing
; Return 1 if OK, 0 if not OK.
CUSTOM() ; check custom drug-drug interaction
; Return 1 if OK, 0 if not OK.
INTACT ; check vendor data base link
; Called from CHECK VENDOR DATABASE LINK option
PRSRTN ;
PING(BASE) ;
HRSMIN(MIN) ;
; Called from output transform of VENDOR INTERFACE DATA FILE (#59.54) field TOTAL TIME NOT AVAILABLE (field# 2)
OUTPUT(INFO,DIWL) ;
SCUST ;Set Custom info
VENDRPT ;**Prints out the VENDOR INTERFACE DATA FILE (#59.74) sorted by most recent downtime first**

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"The PSS INTERFACE SCHEDULER task is scheduled to run next on "
  • Line Location: SCHDOPT+15
Function Call: WRITE
  • Prompt: !!,?5,"The recommended ""Rescheduling Frequency"" is 15 minutes (900 seconds)."
  • Line Location: SCHDOPT+18
Function Call: WRITE
  • Prompt: !!,?5,"WARNING: Do not decrease the ""Rescheduling Frequency"" below 5 minutes."
  • Line Location: SCHDOPT+20
Function Call: WRITE
  • Prompt: !!,?5," System issues could occur after a downtime due to"
  • Line Location: SCHDOPT+21
Function Call: WRITE
  • Prompt: !,?5," multiple jobs being tasked.",!!
  • Line Location: SCHDOPT+22
Function Call: WRITE
  • Prompt: !!,"This option performs several checks. You may queue this report if you wish."
  • Line Location: RUNTEST+6
Function Call: WRITE
  • Prompt: !!,"Among these checks are:"
  • Line Location: RUNTEST+7
Function Call: WRITE
  • Prompt: !,"-----------------------"
  • Line Location: RUNTEST+8
Function Call: WRITE
  • Prompt: !,"A connection check to the Vendor Database"
  • Line Location: RUNTEST+9
Function Call: WRITE
  • Prompt: !,"Drug-Drug Interaction Check"
  • Line Location: RUNTEST+10
Function Call: WRITE
  • Prompt: !,"Duplicate Therapy Order Check"
  • Line Location: RUNTEST+11
Function Call: WRITE
  • Prompt: !,"Dosing Order Check"
  • Line Location: RUNTEST+12
Function Call: WRITE
  • Prompt: !,"Custom Drug-Drug Interaction Check"
  • Line Location: RUNTEST+13
Function Call: WRITE
  • Prompt: !
  • Line Location: RUNTEST+15
Function Call: WRITE
  • Prompt: !
  • Line Location: QTESTS+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: QTESTS+4
Function Call: WRITE
  • Prompt: !!,?15,"Check PEPS Services Setup",?55,PSSTIME,!!
  • Line Location: QTESTS+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: QTESTS+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: QTESTS+7
Function Call: WRITE
  • Prompt: !,"Checking Vendor Database Connection"
  • Line Location: CONCHK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CONCHK+14
Function Call: WRITE
  • Prompt: !
  • Line Location: INTERACT+17
Function Call: WRITE
  • Prompt: !
  • Line Location: INTERACT+23
Function Call: WRITE
  • Prompt: !
  • Line Location: DUPTHRPY+19
Function Call: WRITE
  • Prompt: !
  • Line Location: CUSTOM+20
Function Call: WRITE
  • Prompt: !
  • Line Location: CUSTOM+22
Function Call: WRITE
  • Prompt: !
  • Line Location: CUSTOM+24
Function Call: WRITE
  • Prompt: !
  • Line Location: CUSTOM+29
Function Call: WRITE
  • Prompt: !
  • Condition for execution: PSSCKW3>46
  • Line Location: INTACT+29
Function Call: WRITE
  • Prompt: PSSCKW2_"."
  • Line Location: INTACT+29
Function Call: WRITE
  • Prompt: !!,"This report will print out all information related to when and for how long the"
  • Line Location: VENDRPT+4
Function Call: WRITE
  • Prompt: !,"vendor interface is unavailable (sorted by most recent down time first)."
  • Line Location: VENDRPT+5
Function Call: WRITE
  • Prompt: !,"This information comes from the VENDOR INTERFACE DATA FILE."
  • Line Location: VENDRPT+6
Function Call: WRITE
  • Prompt: !!,?15,"*** This has the potential to be a long report ***"
  • Line Location: VENDRPT+7
Function Call: WRITE
  • Prompt: !!,"You may queue the report to print if you wish. You may also ""^"" to halt the"
  • Line Location: VENDRPT+8
Function Call: WRITE
  • Prompt: !,"report at any time.",!!
  • Line Location: VENDRPT+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XOB(18.12 - [#18.12] FIND1^DIC,  GET1^DIQ
^PS(59.74 - [#59.74] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call