PSSHRIT ;WOIFO/SG,PO - Transmits a "ping" to determine if FDB server is down and record the down time ; 01 Mar 2016 3:34 PM
Source file <PSSHRIT.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 10 | DD^%DT NOW^%DTC $$FIND1^DIC FILE^DICN ^DIE EN1^DIP $$GET1^DIQ ^DIR ^DIWP ^DIWW |
Kernel | 7 | (,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT $$REPLACE^XLFSTR KILL^XUSCLEAN (EDIT,OPTSTAT,RESCH)^XUTMOPT |
Pharmacy Data Management | 3 | ($$DS,DS)^PSSDSAPI TESTS^PSSHRIT IN^PSSHRQ2 |
MailMan | 1 | ^XMB |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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**
|
Name | Field # of Occurrence |
---|---|
DD^%DT | CONCHK+12, INTACT+26, INTACT+32 |
NOW^%DTC | QTESTS+3 |
^%ZIS | RUNTEST+15 |
HOME^%ZIS | RUNTEST+20 |
^%ZISC | RUNTEST+20 |
^%ZTLOAD | RUNTEST+20 |
$$FIND1^DIC | INTACT+4 |
FILE^DICN | NEWENT+2 |
^DIE | UPDATENT+10, SMSGDWN+15 |
EN1^DIP | VENDRPT+16 |
$$GET1^DIQ | INTACT+5 |
^DIR | SCHDOPT+26, PRSRTN+2 |
^DIWP | OUTPUT+4 |
^DIWW | OUTPUT+5 |
$$DS^PSSDSAPI | SMSGDWN+6, SMSGRST+6 |
DS^PSSDSAPI | SMSGDWN+6, SMSGRST+6 |
TESTS^PSSHRIT | RUNTEST+17 |
IN^PSSHRQ2 | PINGTST+6, INTERACT+11, DUPTHRPY+13, DOSECHK+15, CUSTOM+12, INTACT+9, PING+3 |
$$FMADD^XLFDT | TASKIT+13, SLASTRUN+4 |
$$FMDIFF^XLFDT | UPDATENT+7, TASKIT+13 |
$$FMTE^XLFDT | SCHDOPT+17, QTESTS+3 |
$$NOW^XLFDT | NEWENT+2, UPDATENT+4, TASKIT+10, TASKIT+13, SLASTRUN+3, INTACT+25 |
$$REPLACE^XLFSTR | INTERACT+24, CUSTOM+26 |
^XMB | SMSGDWN+14, SMSGRST+13 |
KILL^XUSCLEAN | RUNTEST+2 |
EDIT^XUTMOPT | SCHDOPT+29 |
OPTSTAT^XUTMOPT | SCHDOPT+7 |
RESCH^XUTMOPT | TASKIT+17 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^XOB(18.12 - [#18.12] | FIND1^DIC, GET1^DIQ |
^PS(59.74 - [#59.74] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(59.74 - [#59.74] | PINGCHK+3, PINGCHK+7, PINGFILE+9, PINGFILE+10, UPDATENT+5 |
^TMP($J | PINGTST+4!, PINGTST+5*, PINGTST+7, PINGTST+8!, INTERACT+6!, INTERACT+7*, INTERACT+9*, INTERACT+10*, INTERACT+14, INTERACT+28! , DUPTHRPY+6!, DUPTHRPY+7*, DUPTHRPY+11*, DUPTHRPY+12*, DUPTHRPY+15, DUPTHRPY+16, DOSECHK+7!, DOSECHK+8*, DOSECHK+9*, DOSECHK+10* , DOSECHK+11*, DOSECHK+13*, DOSECHK+14*, DOSECHK+17, DOSECHK+18, CUSTOM+8!, CUSTOM+9*, CUSTOM+10*, CUSTOM+11*, CUSTOM+14 , INTACT+7!, INTACT+8*, INTACT+10, INTACT+13, INTACT+14, INTACT+15, INTACT+19, INTACT+20, INTACT+21, PING+1! , PING+2*, SCUST+1, SCUST+2 |
^UTILITY($J | OUTPUT+1! |
^XTMP("PSSRUN" | SLASTRUN+5*, SLASTRUN+6*, GLASTRUN+1 |
Name | Line Occurrences |
---|---|
$$CONCHK | TESTS+2, QTESTS+9 |
$$CUSTOM | TESTS+14, QTESTS+13 |
$$DOSECHK | TESTS+11, QTESTS+12 |
$$DUPTHRPY | TESTS+8, QTESTS+11 |
$$GLASTRUN | CONCHK+10, INTACT+30 |
$$INTERACT | TESTS+5, QTESTS+10 |
$$PINGFILE | PINGCHK+5 |
$$PINGTST | PINGCHK+4, CONCHK+5 |
EXIT | RUNTEST+15 |
NEWENT | PINGFILE+14, PINGFILE+15 |
OUTPUT | INTERACT+18, INTERACT+19, INTERACT+21, INTERACT+26, DUPTHRPY+20, DUPTHRPY+23, DUPTHRPY+28, DUPTHRPY+29, DOSECHK+21, DOSECHK+23 , DOSECHK+26, DOSECHK+28, DOSECHK+30, CUSTOM+19, CUSTOM+20, CUSTOM+23, CUSTOM+28 |
PRSRTN | TESTS+3, TESTS+6, TESTS+9, TESTS+12, TESTS+15, INTACT+35 |
SCUST | CUSTOM+16 |
SMSGDWN | PINGCHK+6 |
SMSGRST | UPDATENT+11 |
TASKIT | SCHDOPT+8 |
UPDATENT | PINGFILE+13 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | QTESTS+2~, QTESTS+3 |
%ZIS | RUNTEST+3~, RUNTEST+15* |
%ZIS("A" | RUNTEST+15* |
BASE | PINGTST+2~, PINGTST+3*, PINGTST+4, PINGTST+5, PINGTST+6, PINGTST+7, PINGTST+8, INTERACT+3~, INTERACT+5*, INTERACT+6 , INTERACT+7, INTERACT+9, INTERACT+10, INTERACT+11, INTERACT+14, INTERACT+28, DUPTHRPY+3~, DUPTHRPY+5*, DUPTHRPY+6, DUPTHRPY+7 , DUPTHRPY+11, DUPTHRPY+12, DUPTHRPY+13, DUPTHRPY+15, DUPTHRPY+16, DOSECHK+2~, DOSECHK+4*, DOSECHK+7, DOSECHK+8, DOSECHK+9 , DOSECHK+10, DOSECHK+11, DOSECHK+13, DOSECHK+14, DOSECHK+15, DOSECHK+17, DOSECHK+18, CUSTOM+3~, CUSTOM+5*, CUSTOM+8 , CUSTOM+9, CUSTOM+10, CUSTOM+11, CUSTOM+12, CUSTOM+14, INTACT+2~, INTACT+3*, INTACT+7, INTACT+8, INTACT+9 , INTACT+10, INTACT+13, INTACT+14, INTACT+15, INTACT+19, INTACT+20, INTACT+21, PING~, PING+1, PING+2 , PING+3, SCUST+1, SCUST+2 |
BY | VENDRPT+11~, VENDRPT+12* |
CLAS1 | DUPTHRPY+3~, DUPTHRPY+15*, DUPTHRPY+18, DUPTHRPY+21, DUPTHRPY+26, DUPTHRPY+31 |
CLAS2 | DUPTHRPY+3~, DUPTHRPY+16*, DUPTHRPY+26 |
DA | UPDATENT+2~, UPDATENT+3*, UPDATENT+5, SMSGDWN+15! |
DESC | SLASTRUN+1~, SLASTRUN+2*, SLASTRUN+5 |
DHD | VENDRPT+11~, VENDRPT+13* |
DIC | NEWENT+1~, NEWENT+2*, VENDRPT+11~, VENDRPT+12* |
DIC(0 | NEWENT+2* |
DIE | UPDATENT+2~, UPDATENT+9*, SMSGDWN+15*! |
DIFF | UPDATENT+2~, UPDATENT+7*, UPDATENT+8* |
DIOBEG | VENDRPT+11~, VENDRPT+14* |
DIOEND | VENDRPT+11~ |
DIPCRIT | VENDRPT+11~, VENDRPT+12* |
DIR | SCHDOPT+4~, SCHDOPT+23!, SCHDOPT+26!, PRSRTN+2~ |
DIR("?" | SCHDOPT+24* |
DIR("A" | SCHDOPT+25* |
DIR("B" | SCHDOPT+23* |
DIR(0 | SCHDOPT+23*, PRSRTN+2* |
DIW | OUTPUT+2~ |
DIWF | OUTPUT+2~, OUTPUT+4* |
DIWL | OUTPUT~, OUTPUT+3* |
DIWR | OUTPUT+2~, OUTPUT+4* |
DIWT | OUTPUT+2~ |
DO | NEWENT+1~ |
DR | UPDATENT+2~, UPDATENT+9*, SMSGDWN+15*! |
DRUG1 | CUSTOM+3~, CUSTOM+7*, CUSTOM+15, SCUST+1 |
DRUG2 | CUSTOM+3~, CUSTOM+7*, CUSTOM+15, SCUST+2 |
DTOUT | SCHDOPT+4~, SCHDOPT+27 |
DUOUT | SCHDOPT+4~, SCHDOPT+27 |
DWNTIME | UPDATENT+2~, UPDATENT+5*, UPDATENT+6, UPDATENT+7 |
FLDS | VENDRPT+11~, VENDRPT+15* |
FR | VENDRPT+11~, VENDRPT+13* |
FREQ | TASKIT~, TASKIT+8*, TASKIT+9*, TASKIT+17 |
HRS | HRSMIN+4~, HRSMIN+7*, HRSMIN+8 |
HRSMIN | HRSMIN+4~, HRSMIN+5*, HRSMIN+8*, HRSMIN+9*, HRSMIN+10 |
INFO | INTERACT+3~, INTERACT+14*, INTERACT+15, INTERACT+17, INTERACT+24*, INTERACT+25*, INTERACT+26, INTERACT+29, CUSTOM+3~, CUSTOM+17 , CUSTOM+18, CUSTOM+26*, CUSTOM+27*, CUSTOM+28, CUSTOM+30, OUTPUT~, OUTPUT+4, SCUST+1*, SCUST+2*, SCUST+3* |
INTRO | INTERACT+3~, INTERACT+13*, INTERACT+15*, INTERACT+18, INTERACT+21, DUPTHRPY+3~, DUPTHRPY+17*, DUPTHRPY+18*, DUPTHRPY+20, DOSECHK+2~ , DOSECHK+19*, DOSECHK+21, DOSECHK+26, CUSTOM+3~, CUSTOM+15*, CUSTOM+17*, CUSTOM+19, CUSTOM+23 |
IO("Q" | RUNTEST+17, RUNTEST+18, RUNTEST+20! |
IOM | OUTPUT+4 |
ION | RUNTEST+4, RUNTEST+17, RUNTEST+18 |
L | VENDRPT+11~, VENDRPT+12* |
LAST | UPDATENT~, UPDATENT+3 |
LASTAVL | PINGFILE+7~, PINGFILE+10*, PINGFILE+12, PINGFILE+13, PINGFILE+14 |
LASTRUN | SLASTRUN~, SLASTRUN+6 |
LIEN | PINGFILE+7~, PINGFILE+9*, PINGFILE+10, PINGFILE+11, PINGFILE+12, PINGFILE+13, PINGFILE+14, PINGFILE+15 |
LINE1 | DUPTHRPY+3~, DUPTHRPY+25*, DUPTHRPY+28 |
LINE2 | DUPTHRPY+3~, DUPTHRPY+26*, DUPTHRPY+29 |
MESSAGE | CONCHK+3~ |
MIN | HRSMIN~, HRSMIN+7*, HRSMIN+9 |
MINHR | HRSMIN+4~, HRSMIN+6*, HRSMIN+7 |
NEWVAL | UPDATENT+2~, UPDATENT+4*, UPDATENT+7 |
NOW | SLASTRUN+1~, SLASTRUN+3*, SLASTRUN+4, SLASTRUN+5 |
ORDER | DOSECHK+2~, DOSECHK+5*, DOSECHK+17, DOSECHK+18, CUSTOM+3~, CUSTOM+6*, SCUST+1 |
POP | RUNTEST+3~, RUNTEST+15 |
PSDRUG1 | INTERACT+3~, INTERACT+8*, INTERACT+13, INTERACT+14, DUPTHRPY+3~, DUPTHRPY+9*, DUPTHRPY+17, DUPTHRPY+25, DOSECHK+2~, DOSECHK+6* , DOSECHK+17, DOSECHK+18, DOSECHK+19 |
PSDRUG2 | INTERACT+3~, INTERACT+8*, INTERACT+13, DUPTHRPY+3~, DUPTHRPY+10*, DUPTHRPY+17, DUPTHRPY+25, DOSECHK+2~ |
PSERROR | TASKIT+7!, TASKIT+17 |
PSFDB | SMSGDWN+1~, SMSGRST+1~ |
PSFDB(1 | SMSGDWN+7*, SMSGDWN+11*, SMSGRST+7*, SMSGRST+10* |
PSFDB(2 | SMSGDWN+8*, SMSGDWN+12*, SMSGRST+8*, SMSGRST+11* |
PSFDB(3 | SMSGDWN+9* |
PSFIN | INTACT+2~ |
PSORDER | INTERACT+3~, INTERACT+8*, INTERACT+14, DUPTHRPY+3~, DUPTHRPY+8* |
PSSCKW1 | INTACT+2~, INTACT+4*, INTACT+5 |
PSSCKW2 | INTACT+2~, INTACT+5*, INTACT+6*, INTACT+27, INTACT+29 |
PSSCKW3 | INTACT+2~, INTACT+6*, INTACT+29 |
PSSCKWER | INTACT+2~, INTACT+4!, INTACT+5! |
PSSCOUNT | QTESTS+2~*, QTESTS+4*, QTESTS+6* |
PSSFLAG | RUNTEST+3~, RUNTEST+4*, RUNTEST+17, RUNTEST+18 |
PSSLEFT | INTERACT+4~*, INTERACT+19, INTERACT+26, DUPTHRPY+4~*, DUPTHRPY+23, DUPTHRPY+28, DUPTHRPY+29, DOSECHK+3~*, DOSECHK+23, DOSECHK+28 , DOSECHK+30, CUSTOM+4~*, CUSTOM+20, CUSTOM+28 |
PSSPEC | INTERACT+3~, INTERACT+24, CUSTOM+3~, CUSTOM+26 |
PSSPEC("CLINI | CAL EFFECTS: " , INTERACT+23*, CUSTOM+25* |
PSSROOT | SCHDOPT+4~, SCHDOPT+7 |
PSSROOT(1 | SCHDOPT+8, SCHDOPT+16, SCHDOPT+19 |
PSSTIME | SCHDOPT+16*, SCHDOPT+17, QTESTS+2~*, QTESTS+3*, QTESTS+5 |
PURGE | SLASTRUN+1~, SLASTRUN+4*, SLASTRUN+5 |
RESULT | CONCHK+3~, CONCHK+5*, CONCHK+6, CONCHK+15 |
SINGLE | DOSECHK+2~, DOSECHK+18*, DOSECHK+28 |
START | TASKIT~, TASKIT+10*, TASKIT+13*, TASKIT+17 |
STATUS | PINGCHK+2~, PINGCHK+4*, PINGCHK+5*, PINGCHK+6, PINGTST+2~, PINGTST+7*, PINGTST+9, PINGFILE~, PINGFILE+8*, PINGFILE+11 , PINGFILE+12, PINGFILE+13, PINGFILE+14, PINGFILE+15, RUNTEST+3~, TESTS+2*, TESTS+3, TESTS+5*, TESTS+8*, TESTS+11* , TESTS+14*, QTESTS+9*, QTESTS+10*, QTESTS+11*, QTESTS+12*, QTESTS+13*, CONCHK+3~, CUSTOM+3~, CUSTOM+14*, CUSTOM+17 , CUSTOM+20, CUSTOM+30, INTACT+2~, INTACT+10*, INTACT+11 |
SUB | SLASTRUN+1~ |
TO | VENDRPT+11~, VENDRPT+13* |
TOTAL | DOSECHK+2~, DOSECHK+17*, DOSECHK+19, DOSECHK+20, DOSECHK+30, DOSECHK+31 |
U | PINGFILE+10, SLASTRUN+5 |
X | NEWENT+2*, NEWENT+3!, RUNTEST+3~, TESTS+3, TESTS+6, TESTS+9, TESTS+12, TESTS+15, OUTPUT+2~, OUTPUT+4* |
XMB | SMSGDWN+1~, SMSGDWN+3*, SMSGRST+1~, SMSGRST+3* |
XMDUN | SMSGDWN+1~, SMSGRST+1~ |
XMDUZ | SMSGDWN+1~, SMSGDWN+2*, SMSGRST+1~, SMSGRST+2* |
XMTEXT | SMSGDWN+1~, SMSGDWN+4*, SMSGRST+1~, SMSGRST+4* |
XMV | SMSGDWN+1~, SMSGRST+1~ |
XMY | SMSGDWN+1~, SMSGRST+1~ |
XMY("G.PSS OR | DER CHECKS" , SMSGDWN+13*, SMSGRST+12* |
Y | NEWENT+3!, SCHDOPT+4~, SCHDOPT+27, CONCHK+3~, CONCHK+10*, CONCHK+11, CONCHK+13, INTACT+2~, INTACT+15*, INTACT+16* , INTACT+17, INTACT+21*, INTACT+22*, INTACT+23, INTACT+25*, INTACT+27, INTACT+30*, INTACT+31, INTACT+33 |
ZTDESC | RUNTEST+3~, RUNTEST+19* |
ZTQUEUED | RUNTEST+3~, EXIT |
ZTREQ | RUNTEST+3~, EXIT* |
ZTRTN | RUNTEST+3~, RUNTEST+19* |