©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PSBVDLU3 ;BIRMINGHAM/TEJ-BCMA VDL UTILITIES 3 ; 27 Aug 2008 9:06 PM
Source file <PSBVDLU3.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 6 | DD^%DT NOW^%DTC UPDATE^DIE ^DIK CLEAN^DILF $$GET1^DIQ |
| Barcode Medication Administration | 2 | VAL^PSBML MSFMSG^PSBMLU |
| Inpatient Medications | 2 | EN^PSJBCMA EN^PSJBCMA1 |
| Kernel | 1 | $$FMADD^XLFDT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CLEANMSF | ;
; Clean-up |
|
| SHOVDL(DFN,BDATE,OTDATE,PSBTAB) | ;
|
|
| SCANCNT(PSBTYP) | ;
; Routine to count total scans (NO MAIL) ; Input: PSBTYP - "WSCN"/"MSCN"/"MMME"/"MKEY"/"WKEY" |
|
| FILESF | ; File event.
|
|
| FNDACTV(RESULTS,PARAMS) | ; Utility to check and order for the latest " ? (parameter #3) " order activities per patient (parameter #1)
; #parameter= # "^"piece ; #1 DFN - Patient's IEN e.g. 1234 (required) ; #2 Order Number_Order Type e.g. "1V" "" = all orders ; #3 Search for Activity e.g "" = *unknown* activity ; #4 Search "back"time(hours) e.g. 12 "" = search back 3 admins ; NOTE: ="FREQ" This Function will use order's frequency. ; 1. If the order is a PRN, On Call or One-Time ; the look back a default of 72 hours. ; 2. if the order is a Continuous order key off ; of the frequency as follows. ; a.) if the frequency is <24 hours use the ; default of 72 hours. ; b.) if the frequency is >= 24 hour, look back ; 3.5 times the frequency ; NOTE: ["X#" This Function will search back # of admins. |
|
| SCANFAIL(RESULTS,PSBPARAM) | ; TEJ 05/12/2006 BCMA-Managing Scanning Failures (MSF)
; Document Unable to Scan Event ; Parameters: ; Input (via GUI): |
|
| IVPTAB(PSBORTYP,PSBIVTYP,PSBINTSY,PSBCHMTY,PSBPUSH) |
| Name | Field # of Occurrence |
|---|---|
| DD^%DT | SCANFAIL+40 |
| NOW^%DTC | FNDACTV+26, FNDACTV+36, FNDACTV+56, SCANFAIL+40 |
| UPDATE^DIE | FILESF+22, SCANCNT+8 |
| ^DIK | SCANCNT+9 |
| CLEAN^DILF | SCANFAIL+47, SCANCNT+3 |
| $$GET1^DIQ | FNDACTV+43, FNDACTV+44, FNDACTV+45, FNDACTV+46, FNDACTV+63, FNDACTV+64, FNDACTV+65, FNDACTV+66, SCANFAIL+31, SCANFAIL+38 , SCANFAIL+42 |
| VAL^PSBML | FILESF+1, FILESF+2, FILESF+3, FILESF+4, FILESF+5, FILESF+6, FILESF+7, FILESF+8, FILESF+9, FILESF+11 , FILESF+12, FILESF+14, FILESF+15, FILESF+17, FILESF+18, FILESF+19, FILESF+20, FILESF+21, SCANCNT+6, SCANCNT+7 |
| MSFMSG^PSBMLU | SCANFAIL+44 |
| EN^PSJBCMA | SHOVDL+20 |
| EN^PSJBCMA1 | FNDACTV+29, FNDACTV+50 |
| $$FMADD^XLFDT | FNDACTV+26, FNDACTV+36, FNDACTV+56 |
| RPC Name | Call Tags |
|---|---|
| PSB UTL XSTATUS SRCH | FNDACTV |
| PSB MAN SCAN FAILURE | SCANFAIL |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| ^PSB(53.77 - [#53.77] | Classic Fileman Calls |
| ^PSB(53.79 - [#53.79] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PSB(53.79 - [#53.79] | SHOVDL+30, SHOVDL+36, FNDACTV+37, FNDACTV+38, FNDACTV+39, FNDACTV+40, FNDACTV+42, FNDACTV+48, FNDACTV+57, FNDACTV+58 , FNDACTV+59, FNDACTV+60, FNDACTV+62 |
| ^TMP("PSJ" | SHOVDL+23, SHOVDL+40, FNDACTV+29!, FNDACTV+32, FNDACTV+33, FNDACTV+44, FNDACTV+50!, FNDACTV+52, FNDACTV+53, FNDACTV+64 , FNDACTV+68! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | FNDACTV+26, FNDACTV+36, FNDACTV+56, SCANFAIL+40 |
| BDATE | SHOVDL~, SHOVDL+20 |
| >> DA | SCANCNT+9* |
| DFN | SHOVDL~, SHOVDL+20, SHOVDL+29, SHOVDL+30, SHOVDL+35, SHOVDL+36 |
| >> DIK | SCANCNT+9* |
| >> DILOCKTM | FNDACTV+39, FNDACTV+59 |
| DUZ | SCANFAIL+42 |
| >> I | FNDACTV+37*, FNDACTV+38, FNDACTV+57*, FNDACTV+58 |
| >> J | FNDACTV+38*, FNDACTV+39, FNDACTV+40, FNDACTV+42, FNDACTV+43, FNDACTV+44, FNDACTV+45, FNDACTV+46, FNDACTV+58*, FNDACTV+59 , FNDACTV+60, FNDACTV+62, FNDACTV+63, FNDACTV+64, FNDACTV+65, FNDACTV+66 |
| OTDATE | SHOVDL~, SHOVDL+20 |
| PARAMS | FNDACTV~, FNDACTV+21 |
| PSB1 | SCANFAIL+28*, SCANFAIL+31, SCANFAIL+44, CLEANMSF+2! |
| PSB2 | SCANFAIL+31*, SCANFAIL+44, FILESF+3, CLEANMSF+2! |
| PSB3 | SCANFAIL+32*, SCANFAIL+44, FILESF+6, CLEANMSF+2! |
| PSB4 | SCANFAIL+33*, SCANFAIL+34, SCANFAIL+44, CLEANMSF+2! |
| PSB5 | SCANFAIL+40*, SCANFAIL+44, CLEANMSF+2! |
| >> PSB5A | SCANFAIL+40*, FILESF+4 |
| PSB6 | SCANFAIL+41*, SCANFAIL+44, FILESF+9, CLEANMSF+2! |
| PSB7 | SCANFAIL+42*, SCANFAIL+44, CLEANMSF+2! |
| >> PSB7A | SCANFAIL+42*, FILESF+1 |
| PSB8 | SCANFAIL+27*, SCANFAIL+44, CLEANMSF+2! |
| PSBACT | FNDACTV+19~, FNDACTV+21*, FNDACTV+42, FNDACTV+62 |
| PSBCHMTY | IVPTAB~, IVPTAB+27, IVPTAB+28 |
| PSBCNT | FNDACTV+19~, FNDACTV+38*, FNDACTV+43*, FNDACTV+44*, FNDACTV+45*, FNDACTV+46*, FNDACTV+58*, FNDACTV+63*, FNDACTV+64*, FNDACTV+65* , FNDACTV+66*, FNDACTV+67 |
| PSBDAT | SCANFAIL+24~, SCANFAIL+25*, SCANFAIL+26, SCANFAIL+28, SCANFAIL+32, SCANFAIL+33, SCANFAIL+41, SCANFAIL+44, SCANFAIL+52, SCANFAIL+53 , SCANFAIL+54 |
| PSBDAT1 | SCANFAIL+24~, SCANFAIL+25*, SCANFAIL+34, SCANFAIL+36, SCANFAIL+37 |
| PSBDFN | FNDACTV+19~, FNDACTV+21*, FNDACTV+23, FNDACTV+29, FNDACTV+37, FNDACTV+38, FNDACTV+48, FNDACTV+50, FNDACTV+57, FNDACTV+58 , SCANFAIL+28*, FILESF+2 |
| >> PSBFILE | SCANFAIL+37*, SCANFAIL+38, SCANFAIL+39, FILESF+10, FILESF+13, FILESF+16, FILESF+19, FILESF+21 |
| >> PSBFLG | SHOVDL+22*, SHOVDL+28, SHOVDL+30*, SHOVDL+34, SHOVDL+36*, SHOVDL+40*, SHOVDL+42 |
| PSBFRQ | FNDACTV+19~, FNDACTV+32*, FNDACTV+34, FNDACTV+35, FNDACTV+52*, FNDACTV+54, FNDACTV+55 |
| >> PSBGNODE | SHOVDL+29*, SHOVDL+30*, SHOVDL+35*, SHOVDL+36* |
| >> PSBIEN | SHOVDL+30*, SHOVDL+36* |
| PSBINTSY | IVPTAB~, IVPTAB+26, IVPTAB+28 |
| PSBIVTYP | IVPTAB~, IVPTAB+25, IVPTAB+26, IVPTAB+27, IVPTAB+28 |
| PSBMEDNM | SCANFAIL+22!, SCANFAIL+38*, FILESF+12, FILESF+15, FILESF+18 |
| PSBMEDOI | SCANFAIL+22!, SCANFAIL+36*, SCANFAIL+38, SCANFAIL+39, FILESF+11, FILESF+14, FILESF+17, FILESF+21 |
| >> PSBMMEN | SCANFAIL+32*, SCANFAIL+44, SCANFAIL+51 |
| >> PSBMSG("DIERR" | FILESF+23, SCANCNT+10 |
| PSBNEW1 | SCANFAIL+48~, SCANFAIL+49*, CLEANMSF+2!, SCANCNT+4~, SCANCNT+5* |
| PSBNEW1(1 | SCANCNT+9 |
| PSBNOW | FNDACTV+19~, FNDACTV+26*, FNDACTV+36*, FNDACTV+56* |
| >> PSBOIT | FILESF+19 |
| >> PSBOITX | FILESF+19 |
| PSBON | FNDACTV+19~, FNDACTV+21*, FNDACTV+28, FNDACTV+29, FNDACTV+37, FNDACTV+38, FNDACTV+47, FNDACTV+48*, FNDACTV+50, FNDACTV+57 , FNDACTV+58 |
| PSBORTYP | IVPTAB~, IVPTAB+22, IVPTAB+23, IVPTAB+24 |
| PSBPARAM | SCANFAIL~ |
| PSBPARAM(0 | SCANFAIL+25, SCANFAIL+52, SCANFAIL+53, SCANFAIL+54 |
| PSBPARAM(1 | SCANFAIL+25 |
| PSBPUSH | IVPTAB~, IVPTAB+23 |
| PSBSCHAD | SCANFAIL+24~ |
| >> PSBSCTYP | SCANFAIL+51*, SCANFAIL+52*, SCANFAIL+53*, SCANFAIL+54*, FILESF+5 |
| PSBSET | FNDACTV+19~, FNDACTV+26*, FNDACTV+36, FNDACTV+56 |
| PSBSFUID | SCANFAIL+22!, SCANFAIL+39!*, FILESF+20 |
| PSBTAB | SHOVDL~, SHOVDL+28, SHOVDL+34 |
| PSBTMFRM | FNDACTV+19~, FNDACTV+21*, FNDACTV+24, FNDACTV+25*, FNDACTV+26*, FNDACTV+31, FNDACTV+33*, FNDACTV+34*, FNDACTV+35*, FNDACTV+36* , FNDACTV+37, FNDACTV+51, FNDACTV+53*, FNDACTV+54*, FNDACTV+55*, FNDACTV+56*, FNDACTV+57 |
| PSBTYP | SCANCNT~, SCANCNT+7 |
| PSBX | FNDACTV+19~, FNDACTV+24*, FNDACTV+25*, FNDACTV+27*, FNDACTV+38, FNDACTV+58 |
| PSBXON | SCANFAIL+24~, SCANFAIL+26*, SCANFAIL+27, FILESF+8 |
| RESULTS | FNDACTV~, FNDACTV+20!, SCANFAIL~, SCANFAIL+22!, SCANFAIL+44 |
| RESULTS( | FNDACTV+43*, FNDACTV+44*, FNDACTV+45*, FNDACTV+46*, FNDACTV+63*, FNDACTV+64*, FNDACTV+65*, FNDACTV+66* |
| RESULTS(0 | FNDACTV+22*, FNDACTV+23*, FNDACTV+67*, SCANFAIL+23*, SCANFAIL+45*, FILESF+23*, FILESF+24*, SCANCNT+10*, SCANCNT+11* |
| RESULTS(1 | FNDACTV+23*, FNDACTV+26*, FNDACTV+36*, FNDACTV+56*, SCANFAIL+23*, SCANFAIL+45*, FILESF+23*, FILESF+24*, SCANCNT+10*, SCANCNT+11* |
| U | SHOVDL+30, SHOVDL+36, FNDACTV+21, FNDACTV+42, FNDACTV+44, FNDACTV+62, FNDACTV+64, SCANFAIL+44, SCANFAIL+52, SCANFAIL+53 , SCANFAIL+54 |
| >> X | FNDACTV+37*, FNDACTV+38, FNDACTV+42*, FNDACTV+48*, FNDACTV+57, FNDACTV+58, FNDACTV+62* |
| XMZ | FILESF+7, CLEANMSF+2! |
| >> Y | SCANFAIL+40* |
| >> Z | FNDACTV+38*, FNDACTV+48* |
| >> ZZ | FNDACTV+58* |