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* |