PSSHRVL1 ;WOIFO/AV,TS,SG - Continuation Data Validation routine for drug checks ; Jan 15, 2007@16:00
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+10, GCNREASN+20, GCNMESX+3 |
| ^PSNDF(50.68 - [#50.68] | GCNREASN+25 |
| ^TMP( | NEXTEX+7, NEXTEXD+6, WDOSE+8, WDOSE+11*, WPROFILE+7*, WPROFILE+9, WPROSPEC+9*, KILLCHEK+4!, KILLNODE+6! |
| ^TMP($J | GCNREASN+18*, GCNREASN+23, GCNREASN+30*, 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+18, GCNREASN+27 |
| $$LOCORREM | NOCHKMSG+6, OUTPAT+8, ERRMSG+12 |
| $$NEXTEX | WPROFILE+7, WPROSPEC+9 |
| $$NEXTEXD | WDOSE+11 |
| $$NOCHKMSG | GCNREASN+12 |
| $$NXCHKMSG | GCNREASN+18, GCNREASN+23, GCNREASN+27 |
| $$ORDRTYP | LOCORREM+4 |
| $$OUTPAT | NOCHKMSG+6 |
| GCNMESX | GCMESS+6 |
| KILLCHEK | WPROFILE+11, KILLALL+3, KILLALL+4, KILLALL+5, KILLALL+6 |
| NZMSG | GCNREASN+23 |
| 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+18, GCNREASN+26, GCNREASN+30 |
| 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+10, GCNREASN+19, GCNREASN+20, GCNREASN+30, NXCHKMSG+3, NXCHKMSG+6 |
| DRUGNAME | DOSEMSG~, DOSEMSG+11, DOSEMSG+13, DOSEMSG+14, ERRMSG~, ERRMSG+17, ERRMSG+18, ERRMSG+20, ERRMSG+21 |
| DRUGNM | GCNREASN~, GCNREASN+12, GCNREASN+18, GCNREASN+23, GCNREASN+27, GCNREASN+30, NOCHKMSG~, NOCHKMSG+6, CHKRATE~, CHKRATE+17 , CHKDRATN~, CHKDRATN+12, NXCHKMSG~, NXCHKMSG+4, NXCHKMSG+17, 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+12*, GCNREASN+18*, GCNREASN+23*, GCNREASN+27*, GCNREASN+30, GCNREASN+31, 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+20*, GCNREASN+22, GCNREASN+24 |
| 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+12, GCNREASN+13, GCNREASN+14, GCNREASN+30, NOCHKMSG~, NOCHKMSG+6, OUTPAT~, OUTPAT+8, OUTPAT+9 , ERRMSG~, ERRMSG+12, GCMESS+2, GCMESS+3, GCMESS+4, NXCHKMSG+10, NXCHKMSG+11 |
| 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 |
| PSSDSFG | NXCHKMSG+1~, NXCHKMSG+6*, NXCHKMSG+12, NXCHKMSG+13, NXCHKMSG+14 |
| >> 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+12, GCNREASN+23 , GCNREASN+30, 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 |
| PSSPGXFG | GCNREASN+8~, GCNREASN+9*, GCNREASN+11*, NXCHKMSG+12, NXCHKMSG+13, NXCHKMSG+14 |
| PSSREASN | GCNREASN+8~, GCNREASN+18*, GCNREASN+19*, GCNREASN+23*, GCNREASN+27*, GCNREASN+30 |
| PSSTXT1 | NXCHKMSG+1~, NXCHKMSG+7*, NXCHKMSG+12 |
| PSSTXT2 | NXCHKMSG+1~, NXCHKMSG+8*, NXCHKMSG+13 |
| PSSTXT3 | NXCHKMSG+1~, NXCHKMSG+9*, NXCHKMSG+14 |
| PSSVAPRD | GCNREASN+8~, GCNREASN+9*, GCNREASN+10*, GCNREASN+11 |
| 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+12*, 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+18*, GCNREASN+27* |
| PSSVQPAC | GCNREASN+8~, GCNREASN+12*, GCNREASN+23, GCNREASN+29 |
| PSSVQPVP | GCMESS+1~, GCMESS+2*, GCMESS+3 |
| PSSVQREM | GCNREASN+8~, GCNREASN+13*, GCNREASN+19, GCNREASN+22, GCNREASN+24, NXCHKMSG+3, NXCHKMSG+17 |
| PSSVQTY1 | GCNREASN+8~, GCNREASN+14* |
| PSSVQTY2 | GCNREASN+8~, GCNREASN+14*, GCNREASN+29, NXCHKMSG+3, NXCHKMSG+6 |
| PSSVQVUI | GCNMESX+1~, GCNMESX+5*, GCNMESX+7 |
| PSSX | NXCHKMSG+1~, NXCHKMSG+10*, NXCHKMSG+12*, NXCHKMSG+13*, NXCHKMSG+14*, NXCHKMSG+15*, NXCHKMSG+17 |
| PSSZMESS | NXCHKMSG+1~, NXCHKMSG+2, NXCHKMSG+3*, NXCHKMSG+4*, NXCHKMSG+16*, NXCHKMSG+17*, NXCHKMSG+18 |
| PSUNIT | CHKUNIT~, CHKUNIT+6 |
| REASON | GCNREASN+8~, GCNREASN+13*, GCNREASN+18*, GCNREASN+19*, GCNREASN+23*, GCNREASN+27*, GCNREASN+31, 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+10, GCNREASN+22, GCNREASN+24, GCNREASN+25, GCNREASN+30, GCNREASN+31, DEMOCHK+17 , MEDRTE+11, CHKDSTYP+12, CHKDOSE+10, CHKUNIT+9, CHKFREQ+10, CHKRATE+18, CHKDRATN+13 |
| VAIEN | GCNREASN+8~, GCNREASN+24*, GCNREASN+25 |
| VAPROD1 | GCNREASN+8~, GCNREASN+16*, GCNREASN+25*, GCNREASN+26 |
| 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+12, OIMSG+6 |