PSSHRVL1 ;WOIFO/Alex Vasquez, Timothy Sabat, Steve Gordon - Continuation Data Validation routine for drug checks ;01/15/07
Source file <PSSHRVL1.m>
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 |
---|---|---|
NEXTEX(PSS,PSSHASH) | ;
|
|
NEXTEXD(PSS,PSSHASH) | ;
|
|
WRITE(PSSHASH) | ;
|
|
WDOSE(PSSHASH,PSS) | ;
|
|
WPROFILE(PSSHASH,PSS) | ;
|
|
WPROSPEC(PSSHASH,PSS) | ;
|
|
KILLALL(BASE) | ;
|
|
KILLCHEK(PSSCHECK,BASE) | ;
|
|
KILLNODE(BASE,TYPE,ORDER) | ;
|
|
GCNREASN(DRUGIEN,DRUGNM,ORDRNUM,BADGCN) | ;
|
|
NOCHKMSG(DRUGNM,ORDRNUM) | ;
|
|
OUTPAT(ORDRNUM) | ;
; Returns " Outpatient" if it is one. |
|
OIMSG(OINAME,PSSNOITN) | ;
|
|
INRSON(ERRNUM,ORDERNUM) | ;
|
|
DEMOCHK(AGE,BSA,WEIGHT,PSDRUG,WHERE) | ;
|
|
MEDRTE(PSROUTE,PSDRUGNM) | ;
|
|
CHKDSTYP(DOSETYP,PSDRUGNM) | ;
|
|
CHKDOSE(PSDOSE,PSDRUGNM) | ;
|
|
CHKUNIT(PSUNIT,PSDRUGNM) | ;
|
|
CHKFREQ(PSFREQ) | ;
|
|
CHKRATE(PSRATE,TYPE,DRUGNM,DURATION) | ;
|
|
CHKDRATN(DURATION,DRUGNM) | ;
|
|
DOSEMSG(DRUGNAME,TYPE,WARN) | ;
|
|
GETUCI() | ;
|
|
ERRMSG(TYPE,DRUGNAME,ORDRNUM,WARNING) | ;
|
|
ORDRTYP(ORDERNUM) | ;
|
|
LOCORREM(ORDERNUM) | ;
|
|
STATMSG() | ;
|
|
GCMESS() | ;Get Exclude field
|
|
GCNMESX | ;
|
|
NXCHKMSG(DRUGNM) | ;2.1 changes
|
|
NZMSG | ;Reset Message for Pharmacy Not matched to NDF error for Dosing
|
|
EXMT(PSSHRDRG) | ; given drug ien, is it exempt from dosing call? 2.1 change
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("UCI" | GETUCI+3 |
^PSDRUG - [#50] | GCNREASN+17, GCNMESX+3 |
^PSNDF(50.68 - [#50.68] | GCNREASN+22 |
^TMP( | NEXTEX+7, NEXTEXD+6, WDOSE+8, WDOSE+11*, WPROFILE+7*, WPROFILE+9, WPROSPEC+9*, KILLCHEK+4!, KILLNODE+6! |
^TMP($J | GCNREASN+20, GCNREASN+27*, OUTPAT+9, OIMSG+9, GCMESS+3, GCMESS+4, NXCHKMSG+2 |
Name | Line Occurrences |
---|---|
$$DOSEMSG | DEMOCHK+13, MEDRTE+8, CHKDSTYP+9, CHKDOSE+8, CHKUNIT+7, CHKRATE+17, CHKDRATN+12, ERRMSG+21 |
$$EXMT | NXCHKMSG+3, NXCHKMSG+6 |
$$GCMESS | GCNREASN+15, GCNREASN+24 |
$$LOCORREM | NOCHKMSG+6, OUTPAT+8, ERRMSG+12 |
$$NEXTEX | WPROFILE+7, WPROSPEC+9 |
$$NEXTEXD | WDOSE+11 |
$$NOCHKMSG | GCNREASN+9 |
$$NXCHKMSG | GCNREASN+15, GCNREASN+20, GCNREASN+24 |
$$ORDRTYP | LOCORREM+4 |
$$OUTPAT | NOCHKMSG+6 |
GCNMESX | GCMESS+6 |
KILLCHEK | WPROFILE+11, KILLALL+3, KILLALL+4, KILLALL+5, KILLALL+6 |
NZMSG | GCNREASN+20 |
WDOSE | WRITE+23 |
WPROFILE | WRITE+15 |
WPROSPEC | WRITE+32 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AGE | DEMOCHK~, DEMOCHK+9*, DEMOCHK+10 |
BADGCN | GCNREASN~, GCNREASN+15, GCNREASN+23, GCNREASN+27 |
BASE | KILLALL~, KILLALL+3, KILLALL+4, KILLALL+5, KILLALL+6, KILLCHEK~, KILLCHEK+4, KILLNODE~, KILLNODE+6 |
BSA | DEMOCHK~, DEMOCHK+9* |
C1 | ORDRTYP+3~, ORDRTYP+5*, ORDRTYP+8, ORDRTYP+9, ORDRTYP+10, ORDRTYP+11 |
DOSETYP | CHKDSTYP~, CHKDSTYP+7, CHKDSTYP+8 |
DRUGIEN | GCNREASN~, GCNREASN+16, GCNREASN+17, GCNREASN+27, NXCHKMSG+3, NXCHKMSG+6 |
DRUGNAME | DOSEMSG~, DOSEMSG+11, DOSEMSG+13, DOSEMSG+14, ERRMSG~, ERRMSG+17, ERRMSG+18, ERRMSG+20, ERRMSG+21 |
DRUGNM | GCNREASN~, GCNREASN+9, GCNREASN+15, GCNREASN+20, GCNREASN+24, GCNREASN+27, NOCHKMSG~, NOCHKMSG+6, CHKRATE~, CHKRATE+17 , CHKDRATN~, CHKDRATN+12, NXCHKMSG~, NXCHKMSG+4, NXCHKMSG+6, NZMSG+1 |
DURATION | CHKRATE~, CHKRATE+5*, CHKRATE+11, CHKDRATN~, CHKDRATN+7, CHKDRATN+10 |
ERRNUM | INRSON~, INRSON+10, INRSON+13, INRSON+14, INRSON+15 |
FLAG | DEMOCHK+8~ |
I | WDOSE+7~ |
LOCORREM | ERRMSG+9~, ERRMSG+12*, ERRMSG+15, ERRMSG+16, ERRMSG+20, LOCORREM+3~, LOCORREM+6*, LOCORREM+7*, LOCORREM+8 |
MESSAGE | GCNREASN+8~, GCNREASN+9*, GCNREASN+15*, GCNREASN+20*, GCNREASN+24*, GCNREASN+27, GCNREASN+28, NOCHKMSG+5~, NOCHKMSG+6*, NOCHKMSG+7 , OIMSG+4~, OIMSG+8, OIMSG+10*, OIMSG+11*, OIMSG+12*, OIMSG+13, NXCHKMSG+3, NZMSG+1* |
MSG | ERRMSG+9~, ERRMSG+11*, ERRMSG+15*, ERRMSG+16*, ERRMSG+17*, ERRMSG+18*, ERRMSG+19*, ERRMSG+20*, ERRMSG+21*, ERRMSG+22 , STATMSG+3~, STATMSG+6*, STATMSG+7 |
NDNODE | GCNREASN+8~, GCNREASN+17*, GCNREASN+19, GCNREASN+21 |
NONVAFLG | INRSON+5~, INRSON+6*, INRSON+8*, INRSON+11, INRSON+12 |
OINAME | OIMSG~, OIMSG+10, OIMSG+11, OIMSG+12 |
OKFLAG | CHKDSTYP+4~, CHKDSTYP+5*, CHKDSTYP+6, CHKDSTYP+7*, CHKDSTYP+8, CHKRATE+7~, CHKRATE+9*, CHKRATE+12, CHKRATE+13*, CHKRATE+14 |
ORDER | KILLNODE~, KILLNODE+6 |
ORDERNUM | INRSON~, INRSON+7*, INRSON+8, ORDRTYP~, ORDRTYP+5, ORDRTYP+7, LOCORREM~, LOCORREM+4 |
ORDRNUM | GCNREASN~, GCNREASN+9, GCNREASN+10, GCNREASN+11, GCNREASN+27, NOCHKMSG~, NOCHKMSG+6, OUTPAT~, OUTPAT+8, OUTPAT+9 , ERRMSG~, ERRMSG+12, GCMESS+2, GCMESS+3, GCMESS+4 |
ORDRTYP | LOCORREM+3~, LOCORREM+4*, LOCORREM+6 |
OUTPAT | OUTPAT+6~, OUTPAT+7*, OUTPAT+9*, OUTPAT+10 |
PSDOSE | CHKDOSE~, CHKDOSE+7 |
PSDRUG | DEMOCHK~, DEMOCHK+13, DEMOCHK+16 |
PSDRUGNM | MEDRTE~, MEDRTE+8, CHKDSTYP~, CHKDSTYP+9, CHKDOSE~, CHKDOSE+8, CHKUNIT~, CHKUNIT+7 |
PSFREQ | CHKFREQ~, CHKFREQ+7, CHKFREQ+8 |
>> PSJDGCK | GCMESS+3, GCMESS+4 |
PSMESSAGE | DEMOCHK+8~, DEMOCHK+13*, DEMOCHK+16*, DEMOCHK+17, MEDRTE+5~, MEDRTE+8*, MEDRTE+11 |
PSMSG | CHKDSTYP+4~, CHKDSTYP+9*, CHKDSTYP+12, CHKDOSE+5~, CHKDOSE+8*, CHKDOSE+10, CHKUNIT+4~, CHKUNIT+7*, CHKUNIT+9, CHKFREQ+3~ , CHKFREQ+4*, CHKFREQ+10, CHKRATE+7~, CHKRATE+17*, CHKRATE+18, CHKDRATN+3~, CHKDRATN+12*, CHKDRATN+13 |
PSNEXT | NEXTEX+5~, NEXTEX+6*, NEXTEX+7*, NEXTEX+8, NEXTEXD+4~, NEXTEXD+5*, NEXTEXD+6*, NEXTEXD+7 |
PSRATE | CHKRATE~, CHKRATE+11, CHKRATE+13 |
PSREASON | DEMOCHK+8~, DEMOCHK+9*, DEMOCHK+14*, DEMOCHK+17, MEDRTE+5~, MEDRTE+10*, MEDRTE+11, CHKDSTYP+4~, CHKDSTYP+11*, CHKDSTYP+12 , CHKDOSE+5~, CHKDOSE+9*, CHKDOSE+10, CHKUNIT+4~, CHKUNIT+8*, CHKUNIT+9, CHKFREQ+3~, CHKFREQ+9*, CHKFREQ+10 |
PSRESULT | DEMOCHK+8~, DEMOCHK+9*, DEMOCHK+10, DEMOCHK+17*, DEMOCHK+18, MEDRTE+5~, MEDRTE+6*, MEDRTE+11*, MEDRTE+12, CHKDSTYP+4~ , CHKDSTYP+5*, CHKDSTYP+12*, CHKDSTYP+13, CHKDOSE+5~, CHKDOSE+6*, CHKDOSE+10*, CHKDOSE+11, CHKUNIT+4~, CHKUNIT+5*, CHKUNIT+9* , CHKUNIT+10, CHKFREQ+3~, CHKFREQ+5*, CHKFREQ+10*, CHKFREQ+11 |
PSROUTE | MEDRTE~, MEDRTE+7 |
PSS | NEXTEX~, NEXTEXD~, WRITE+10~, WRITE+15, WRITE+23, WRITE+32, WDOSE~, WDOSE+11, WPROFILE~, WPROFILE+7 , WPROSPEC~, WPROSPEC+9 |
PSS("DoseValue" | WDOSE+8* |
PSS("I" | WRITE+12*, WRITE+14*, WRITE+20*, WRITE+22*, WRITE+25, WRITE+29*, WRITE+31*, WDOSE+10, WDOSE+11, WPROFILE+7 , WPROSPEC+9 |
PSS("PharmOrderNo" | NEXTEX+7, NEXTEXD+6, WRITE+11*, WRITE+13*, WRITE+14, WRITE+19*, WRITE+21*, WRITE+22, WRITE+25, WRITE+28* , WRITE+30*, WRITE+31, WDOSE+8, WDOSE+10, WDOSE+11, WPROFILE+7, WPROSPEC+9 |
>> PSSBASE | OUTPAT+9 |
PSSCHECK | KILLCHEK~, KILLCHEK+4 |
>> PSSDSWHE | STATMSG+6 |
PSSHASH | NEXTEX~, NEXTEXD~, WRITE~, WRITE+15, WRITE+23, WRITE+32, WDOSE~, WDOSE+11, WPROFILE~, WPROFILE+7 , WPROSPEC~, WPROSPEC+9 |
PSSHASH("Base" | NEXTEX+7, NEXTEXD+6, WDOSE+8, WDOSE+11, WPROFILE+7, WPROFILE+9, WPROFILE+11, WPROSPEC+9, GCNREASN+9, GCNREASN+20 , GCNREASN+27, OIMSG+5, OIMSG+9, GCMESS+3, GCMESS+4, NXCHKMSG+2 |
PSSHASH("Exception" | WRITE+13, WRITE+14, WRITE+21, WRITE+22, WRITE+25!, WRITE+30, WRITE+31, WDOSE+10, WDOSE+11, WPROFILE+7 , WPROSPEC+9 |
PSSHRDRG | EXMT~, EXMT+1, EXMT+2 |
PSSNOIT1 | OIMSG+4~, OIMSG+7* |
PSSNOIT2 | OIMSG+4~, OIMSG+7*, OIMSG+11 |
PSSNOITD | OIMSG+4~, OIMSG+6*, OIMSG+11 |
PSSNOITN | OIMSG~, OIMSG+7 |
PSSNOITP | OIMSG+4~, OIMSG+5*, OIMSG+8 |
PSSREASN | GCNREASN+8~, GCNREASN+15*, GCNREASN+16*, GCNREASN+20*, GCNREASN+24*, GCNREASN+27 |
PSSVQ1 | GCNMESX+1~, GCNMESX+3*, GCNMESX+4 |
PSSVQ3 | GCNMESX+1~, GCNMESX+3*, GCNMESX+4 |
PSSVQ4 | GCNMESX+1~, GCNMESX+8*, GCNMESX+9 |
PSSVQAR | GCNMESX+1~, GCNMESX+6*, GCNMESX+7 |
PSSVQARR | GCNMESX+1~ |
PSSVQARR( | GCNMESX+8 |
PSSVQDOS | GCNREASN+8~, GCNREASN+9*, NXCHKMSG+3, NXCHKMSG+6 |
PSSVQDRG | GCNMESX+1~, GCNMESX+2*, GCNMESX+3 |
PSSVQEXC | GCMESS+1~, GCMESS+5*, GCMESS+7, GCNMESX+4*, GCNMESX+9* |
PSSVQND | GCMESS+1~, GCMESS+3*, GCMESS+4*, GCNMESX+2, GCNMESX+5 |
PSSVQNOM | GCNREASN+8~, GCNREASN+15*, GCNREASN+24* |
PSSVQPAC | GCNREASN+8~, GCNREASN+9*, GCNREASN+20, GCNREASN+26 |
PSSVQPVP | GCMESS+1~, GCMESS+2*, GCMESS+3 |
PSSVQREM | GCNREASN+8~, GCNREASN+10*, GCNREASN+16, GCNREASN+19, GCNREASN+21, NXCHKMSG+3, NXCHKMSG+6 |
PSSVQTY1 | GCNREASN+8~, GCNREASN+11* |
PSSVQTY2 | GCNREASN+8~, GCNREASN+11*, GCNREASN+26, NXCHKMSG+3, NXCHKMSG+6 |
PSSVQVUI | GCNMESX+1~, GCNMESX+5*, GCNMESX+7 |
PSSZMESS | NXCHKMSG+1~, NXCHKMSG+2, NXCHKMSG+3*, NXCHKMSG+4*, NXCHKMSG+5*, NXCHKMSG+6*, NXCHKMSG+7 |
PSUNIT | CHKUNIT~, CHKUNIT+6 |
REASON | GCNREASN+8~, GCNREASN+10*, GCNREASN+15*, GCNREASN+16*, GCNREASN+20*, GCNREASN+24*, GCNREASN+28, INRSON+5~, INRSON+11*, INRSON+12* , INRSON+13*, INRSON+14*, INRSON+15*, INRSON+16, CHKRATE+7~, CHKRATE+16*, CHKRATE+18, CHKDRATN+3~, CHKDRATN+11*, CHKDRATN+13 |
RESULT | CHKRATE+7~, CHKRATE+8*, CHKRATE+18*, CHKRATE+19, CHKDRATN+3~, CHKDRATN+4*, CHKDRATN+13*, CHKDRATN+14 |
RETURN | DOSEMSG+5~, DOSEMSG+11*, DOSEMSG+13*, DOSEMSG+14*, DOSEMSG+15 |
STDRATE | CHKRATE+7~, CHKRATE+12*, CHKRATE+13 |
TEXT | DEMOCHK+8~, DEMOCHK+9*, DEMOCHK+11*, DEMOCHK+14, CHKDSTYP+4~, CHKDSTYP+6*, CHKDSTYP+7, DOSEMSG+5~, DOSEMSG+8*, DOSEMSG+11 , DOSEMSG+13, DOSEMSG+14 |
TYPE | WDOSE+7~, KILLNODE~, KILLNODE+6, CHKRATE~, CHKRATE+11, CHKRATE+15*, CHKRATE+16, DOSEMSG~, DOSEMSG+6*, DOSEMSG+10 , DOSEMSG+12, ERRMSG~, ERRMSG+15, ERRMSG+16, ERRMSG+17, ERRMSG+19, ERRMSG+20, ERRMSG+21, ORDRTYP+3~, ORDRTYP+4* , ORDRTYP+7*, ORDRTYP+8*, ORDRTYP+9*, ORDRTYP+10*, ORDRTYP+11*, ORDRTYP+12 |
U | WDOSE+10, WPROFILE+7, WPROSPEC+9, GCNREASN+19, GCNREASN+21, GCNREASN+22, GCNREASN+27, GCNREASN+28, DEMOCHK+17, MEDRTE+11 , CHKDSTYP+12, CHKDOSE+10, CHKUNIT+9, CHKFREQ+10, CHKRATE+18, CHKDRATN+13 |
VAIEN | GCNREASN+8~, GCNREASN+21*, GCNREASN+22 |
VAPROD1 | GCNREASN+8~, GCNREASN+13*, GCNREASN+22*, GCNREASN+23 |
WARN | DOSEMSG~, DOSEMSG+7*, DOSEMSG+8, DOSEMSG+14 |
WARNING | ERRMSG~, ERRMSG+10*, ERRMSG+14 |
WEIGHT | DEMOCHK~, DEMOCHK+9* |
WHERE | DEMOCHK~, DEMOCHK+9*, DEMOCHK+12, DEMOCHK+15 |
X | DEMOCHK+8~ |
Y | GETUCI+2~, GETUCI+4 |
Name | Field # of Occurrence |
---|---|
$T(DS^PSSDSAPI | GCNREASN+9, OIMSG+6 |