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 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 | 4 | ($$DS,DS)^PSSDSAPI TESTS^PSSHRIT IN^PSSHRQ2 $$PGXCHK^PSSPGXUT |
| 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. |
|
| PGXCHCK() | ; check pgx - pss*1*262
; 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+16 |
| HOME^%ZIS | RUNTEST+21 |
| ^%ZISC | RUNTEST+21 |
| ^%ZTLOAD | RUNTEST+21 |
| $$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+18 |
| IN^PSSHRQ2 | PINGTST+6, INTERACT+11, DUPTHRPY+13, DOSECHK+16, CUSTOM+12, INTACT+9, PING+3 |
| $$PGXCHK^PSSPGXUT | PGXCHCK+2 |
| $$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+25, 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 |
|
| 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+15 , INTERACT+29!, DUPTHRPY+6!, DUPTHRPY+7*, DUPTHRPY+11*, DUPTHRPY+12*, DUPTHRPY+15, DUPTHRPY+16, DOSECHK+7!, DOSECHK+8*, DOSECHK+9* , DOSECHK+10*, DOSECHK+11*, DOSECHK+14*, DOSECHK+15*, DOSECHK+18, DOSECHK+19, 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+17, QTESTS+14 |
| $$DOSECHK | TESTS+11, QTESTS+12 |
| $$DUPTHRPY | TESTS+8, QTESTS+11 |
| $$GLASTRUN | CONCHK+10, INTACT+30 |
| $$INTERACT | TESTS+5, QTESTS+10 |
| $$PGXCHCK | TESTS+14, QTESTS+13 |
| $$PINGFILE | PINGCHK+5 |
| $$PINGTST | PINGCHK+4, CONCHK+5 |
| EXIT | RUNTEST+16 |
| NEWENT | PINGFILE+14, PINGFILE+15 |
| OUTPUT | INTERACT+19, INTERACT+20, INTERACT+22, INTERACT+27, DUPTHRPY+20, DUPTHRPY+23, DUPTHRPY+28, DUPTHRPY+29, DOSECHK+22, DOSECHK+24 , DOSECHK+27, DOSECHK+29, DOSECHK+31, CUSTOM+19, CUSTOM+20, CUSTOM+23, CUSTOM+28 |
| PRSRTN | TESTS+3, TESTS+6, TESTS+9, TESTS+12, TESTS+15, TESTS+18, 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+16* |
| %ZIS("A" | RUNTEST+16* |
| 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+15, INTERACT+29, 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+14, DOSECHK+15, DOSECHK+16, DOSECHK+18, DOSECHK+19, 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+16, INTERACT+18, INTERACT+25*, INTERACT+26*, INTERACT+27, INTERACT+30, 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+16*, INTERACT+19, INTERACT+22, DUPTHRPY+3~, DUPTHRPY+17*, DUPTHRPY+18*, DUPTHRPY+20, DOSECHK+2~ , DOSECHK+20*, DOSECHK+22, DOSECHK+27, CUSTOM+3~, CUSTOM+15*, CUSTOM+17*, CUSTOM+19, CUSTOM+23 |
| IO("Q" | RUNTEST+18, RUNTEST+19, RUNTEST+21! |
| IOM | OUTPUT+4 |
| ION | RUNTEST+4, RUNTEST+18, RUNTEST+19 |
| 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+18, DOSECHK+19, CUSTOM+3~, CUSTOM+6*, SCUST+1 |
| POP | RUNTEST+3~, RUNTEST+16 |
| PSDRUG1 | INTERACT+3~, INTERACT+8*, INTERACT+13, INTERACT+14, INTERACT+15, DUPTHRPY+3~, DUPTHRPY+9*, DUPTHRPY+17, DUPTHRPY+25, DOSECHK+2~ , DOSECHK+6*, DOSECHK+18, DOSECHK+19, DOSECHK+20 |
| 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, INTERACT+15, 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+18, RUNTEST+19 |
| PSSLEFT | INTERACT+4~*, INTERACT+20, INTERACT+27, DUPTHRPY+4~*, DUPTHRPY+23, DUPTHRPY+28, DUPTHRPY+29, DOSECHK+3~*, DOSECHK+24, DOSECHK+29 , DOSECHK+31, CUSTOM+4~*, CUSTOM+20, CUSTOM+28 |
| PSSPEC | INTERACT+3~, INTERACT+25, CUSTOM+3~, CUSTOM+26 |
| PSSPEC("CLINI | CAL EFFECTS: " , INTERACT+24*, 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+19*, DOSECHK+29 |
| 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*, TESTS+17*, QTESTS+9*, QTESTS+10*, QTESTS+11*, QTESTS+12*, QTESTS+13*, QTESTS+14*, CONCHK+3~, PGXCHCK+2~* , PGXCHCK+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+18*, DOSECHK+20, DOSECHK+21, DOSECHK+31, DOSECHK+32 |
| U | PINGFILE+10, SLASTRUN+5 |
| X | NEWENT+2*, NEWENT+3!, RUNTEST+3~, TESTS+3, TESTS+6, TESTS+9, TESTS+12, TESTS+15, TESTS+18, 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+20* |
| ZTQUEUED | RUNTEST+3~, EXIT |
| ZTREQ | RUNTEST+3~, EXIT* |
| ZTRTN | RUNTEST+3~, RUNTEST+20* |