PSBVDLU1 ;BIRMINGHAM/EFC-VIRTUAL DUE LIST (VDL) UTILITIES ;03/06/16 3:06pm
Source file <PSBVDLU1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ODDSCH(PSBTABX) | ;
|
|
| GETFREQ(PSBDFN,PSBORDN) | ;
|
|
| GETADMIN(PSBDFN,PSBORDN,PSBSTRT,PSBFREQ,PSBEVDT) | ;
|
|
| ADD(PSBREC,PSBSI,PSBDT,PSBDD,PSBSOL,PSBADD,PSBTAB) | ;
|
|
| CHECK | ||
| VNURSE(PSBTAB) | ;add initials of verifying pharmacist/verifying nurse
|
|
| OKAY(PSBSTRT,PSBADMIN,PSBSCH,PSBORDER,PSBDRUG,PSBFREQ,PSBOSTS) | ;
|
|
| DAYS(PSB) | ; Return days between doses (-1: error, 1:everyday 2: QOD...)
|
|
| LAST | ;
|
|
| GETSI(DFN,ORD,TAB) | ;Get Special Instructions/Other Print Info from IM ;*68
|
|
| INCLUDCO | ;Rebuild TMP global from PSJBCMA, RETAIN CLINC ORDERS ONLY *70
|
|
| REMOVECO | ;Rebuild TMP global from PSJBCMA, RETAIN IM ORDERS ONLY *70
|
|
| MODELITE() | ;
|
|
| INITTAB | ;*70
|
|
| FINDORD(BWDFWD,DFN,PSBDT,PSBTAB) | ;Search a patient's orders Bwd or Fwd *70
; Find the next day that contains an Active admin time not Given. |
|
| LOOPBWD | ; Loop thru days backwards and quit when pass End date. *70
|
|
| LOOPFWD | ; Loop thru days forwards and quit when pass End date. *70
|
|
| PATCHON(DFN,ORDR) | ;check if any patches are still Given & Not Removed per this patient
; Return values: ; Func: True/False (1/0) for patches do exist on a patient. ; ORDR(): array element "C"linic or "I"npatient order = 1 when ; at least 1 order of this type exists. |
|
| INFUSING(DFN,ORDR) | ;check if any IV's have bags infusing per this patient
; Return values: ; Func: True/False (1/0) for patches do exist on a patient. ; ORDR(): array element "C"linic or "I"npatient order = 1 when ; at least 1 order of this type exists. |
|
| STOPPED(DFN,ORDR) | ;check if any IV's have bags infusing per this patient
; Return values: ; Func: True/False (1/0) for patches do exist on a patient. ; ORDR(): array element "C"linic or "I"npatient order = 1 when ; at least 1 order of this type exists. |
|
| REMOVETM(MRR,STYP) | ;** Check if MRR med & add to Results array (34,35) *83
|
