PSBMLLKU ;BIRMINGHAM/TEJ - BCMA RPC LOOKUP UTLILITIES ;03/06/16 3:06pm
Source file <PSBMLLKU.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 4 | DD^%DT NOW^%DTC FIND^DIC $$GET1^DIQ |
| Barcode Medication Administration | 3 | $$GETINIT^PSBCSUTX CLIN^PSBO $$IVPTAB^PSBVDLU3 |
| Inpatient Medications | 1 | EN^PSJBCMA1 |
| Kernel | 1 | $$UP^XLFSTR |
| Outpatient Pharmacy | 1 | $$HRCNF^APSPFUNC |
| PCE Patient Care Encounter | 1 | $$HRN^AUPNPAT |
| Registration | 1 | ($$DOB,$$SSN)^DPTLK1 |
| Uncategorized | 1 | $$HRCNF^BDGF2 |
| 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 |
| Package | Total | Caller Graph |
|---|---|---|
| Barcode Medication Administration | 1 | PSB MED LOG LOOKUP |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RPC(RESULTS,PSBREC) | ; Remote Procedure Call Entry Point.
|
|
| ADMLKUP(RESULTS,PSBREC) | ;
; Lookup ADMinistrations per DFN and search DATE ; input - PSBREC(1) DFN ; PSBREC(2) Search DATE |
|
| CHKKEY(PSBIENX) | ;
|
|
| PTLKUP(RESULTS,PSBREC) | ; Patient lookup handled separately for security
; input - PSBREC (array) User entered patient lookup data |
|
| PTREC(DFN) | ;
; Extrinsic to return a Pt Rec in standard list format |
|
| SELECTAD(RESULTS,PSBREC) | ; Select Administration
|
|
| SELSTTUS(RESULTS) | ;
; Provide the SELectable STaTUS |
|
| KILLAADT | ;
; Here because there is an errant index entry via version 1.0/2.0 ; Cleansing! |
|
| PAD(VAL) | ; Return VAL with leading zeroes padded to 6 characters
|
| Name | Field # of Occurrence |
|---|---|
| DD^%DT | SELECTAD+27 |
| NOW^%DTC | ADMLKUP+10 |
| $$HRCNF^APSPFUNC | PTLKUP+15 |
| $$HRN^AUPNPAT | PTREC+8 |
| $$HRCNF^BDGF2 | PTREC+4 |
| FIND^DIC | PTLKUP+49, PTLKUP+52 |
| $$GET1^DIQ | ADMLKUP+19, ADMLKUP+20, ADMLKUP+21, ADMLKUP+24, ADMLKUP+25, ADMLKUP+26, ADMLKUP+32, CHKKEY+1, PTLKUP+15, PTLKUP+24 , PTLKUP+26, PTREC+5, PTREC+6, SELECTAD+19, SELECTAD+20, SELECTAD+21, SELECTAD+22, SELECTAD+23, SELECTAD+24, SELECTAD+27 , SELECTAD+29, SELECTAD+31, SELECTAD+32, SELECTAD+36, SELECTAD+63, SELECTAD+74, SELECTAD+79, SELSTTUS+5 |
| $$DOB^DPTLK1 | PTREC+7 |
| $$SSN^DPTLK1 | PTREC+8 |
| $$GETINIT^PSBCSUTX | ADMLKUP+33 |
| CLIN^PSBO | PTLKUP+34 |
| $$IVPTAB^PSBVDLU3 | SELSTTUS+9 |
| EN^PSJBCMA1 | ADMLKUP+28, SELSTTUS+5 |
| $$UP^XLFSTR | PTLKUP+24 |
| RPC Name | Call Tags |
|---|---|
| PSB MED LOG LOOKUP | RPC |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | FIND^DIC, GET1^DIQ |
| ^NURSF(211.4 - [#211.4] | GET1^DIQ |
| ^DIC(42 - [#42] | GET1^DIQ |
| ^PSDRUG - [#50] | GET1^DIQ |
| ^PS(52.6 - [#52.6] | GET1^DIQ |
| ^PS(52.7 - [#52.7] | GET1^DIQ |
| ^PSB(53.79 - [#53.79] | GET1^DIQ |
| ^AUTTLOC - [#9999999.06] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | PTREC+3 |
| ^NURSF(211.4 - [#211.4] | PTLKUP+24, PTLKUP+26 |
| ^PSB(53.79 - [#53.79] | ADMLKUP+13, ADMLKUP+15, ADMLKUP+16, ADMLKUP+17, ADMLKUP+19, ADMLKUP+34, SELECTAD+16, SELECTAD+17, SELECTAD+43, SELECTAD+44 , SELECTAD+50, SELECTAD+51, SELECTAD+58, SELECTAD+61, SELECTAD+63, SELECTAD+64, SELECTAD+69, SELECTAD+70, SELECTAD+72, SELECTAD+74 , SELECTAD+75, SELECTAD+77, SELECTAD+79, SELECTAD+80, SELECTAD+81, KILLAADT+4! |
| ^TMP("DILIST" | PTLKUP+10!, PTLKUP+51!, PTLKUP+53, PTLKUP+55*, PTLKUP+56, PTLKUP+58, PTLKUP+59, PTLKUP+60 |
| ^TMP("PSJ1" | ADMLKUP+28!, ADMLKUP+29, ADMLKUP+30, ADMLKUP+31!, SELSTTUS+5!, SELSTTUS+6, SELSTTUS+7, SELSTTUS+8, SELSTTUS+14, SELSTTUS+15 , SELSTTUS+16, SELSTTUS+17, SELSTTUS+18, SELSTTUS+19, SELSTTUS+20, SELSTTUS+23! |
| ^XUSEC("PSB MANAGER" | CHKKEY+1 |
| Name | Line Occurrences |
|---|---|
| $$CHKKEY | ADMLKUP+15, SELECTAD+15 |
| $$PAD | PTLKUP+15 |
| $$PTREC | PTLKUP+19, PTLKUP+38, PTLKUP+60 |
| @( | RPC+6 |
| KILLAADT | ADMLKUP+15 |
| SELSTTUS | SELECTAD+26 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | ADMLKUP+10 |
| CNT | SELSTTUS+4~, SELSTTUS+19*, SELSTTUS+20 |
| DFN | ADMLKUP+10*, ADMLKUP+13, ADMLKUP+15, ADMLKUP+19, ADMLKUP+28, PTREC~, PTREC+3, PTREC+4, PTREC+5, PTREC+6 , PTREC+7, PTREC+8, KILLAADT+4 |
| DFNXX | PTLKUP+36~, PTLKUP+37*, PTLKUP+38 |
| DSIT | SELECTAD+11~, SELECTAD+32*, SELECTAD+33 |
| DUZ | CHKKEY+1 |
| DUZ("AG" | PTLKUP+13, PTREC+4, PTREC+8 |
| DUZ(2 | PTLKUP+15, PTREC+4, PTREC+8 |
| ISIT | SELECTAD+11~, SELECTAD+31*, SELECTAD+33 |
| PSBCHMTY | SELSTTUS+4~, SELSTTUS+8*, SELSTTUS+9 |
| PSBCLINORD | RPC+3~, RPC+4*, PTLKUP+11, PTLKUP+28, PTLKUP+46 |
| PSBCNT | ADMLKUP+11*, ADMLKUP+22*, ADMLKUP+23, ADMLKUP+24, ADMLKUP+25, ADMLKUP+26, ADMLKUP+29, ADMLKUP+30, ADMLKUP+32, ADMLKUP+33 , ADMLKUP+34, ADMLKUP+35, PTLKUP+36*, PTLKUP+38*, SELECTAD+12~*, SELECTAD+17*, SELECTAD+62*, SELECTAD+63, SELECTAD+64, SELECTAD+65 , SELECTAD+66, SELECTAD+69, SELECTAD+70, SELECTAD+73*, SELECTAD+74, SELECTAD+75, SELECTAD+78*, SELECTAD+79, SELECTAD+80, SELECTAD+82 |
| PSBDATA | PTLKUP+8!, PTLKUP+12*, PTLKUP+13, PTLKUP+15, PTLKUP+17, PTLKUP+20, PTLKUP+21*, PTLKUP+22*, PTLKUP+24, PTLKUP+25!* , PTLKUP+34*, PTLKUP+35, PTLKUP+48, PTLKUP+49 |
| PSBDATA( | PTLKUP+26*, PTLKUP+37, PTLKUP+51, PTLKUP+52 |
| PSBDATA("" | PTLKUP+49, PTLKUP+50 |
| >> PSBDATA1 | PTLKUP+20*, PTLKUP+57, PTLKUP+61 |
| >> PSBDT | ADMLKUP+11*, ADMLKUP+13 |
| PSBIEN | ADMLKUP+14*, ADMLKUP+15*, ADMLKUP+16, ADMLKUP+17, ADMLKUP+19, ADMLKUP+20, ADMLKUP+21, ADMLKUP+22, ADMLKUP+24, ADMLKUP+25 , ADMLKUP+26, ADMLKUP+32, ADMLKUP+33, ADMLKUP+34, SELECTAD+12~*, SELECTAD+15, SELECTAD+16, SELECTAD+17, SELECTAD+18, SELECTAD+19 , SELECTAD+20, SELECTAD+22, SELECTAD+23, SELECTAD+24, SELECTAD+27, SELECTAD+29, SELECTAD+31, SELECTAD+32, SELECTAD+36, SELECTAD+43 , SELECTAD+50, SELECTAD+58, SELECTAD+61, SELECTAD+63, SELECTAD+64, SELECTAD+69, SELECTAD+70, SELECTAD+72, SELECTAD+74, SELECTAD+75 , SELECTAD+77, SELECTAD+79, SELECTAD+80, SELECTAD+81, SELSTTUS+5, KILLAADT+4 |
| PSBIENX | CHKKEY~, CHKKEY+1 |
| PSBINDX | PTLKUP+7~, PTLKUP+10*, PTLKUP+21*, PTLKUP+22*, PTLKUP+45*, PTLKUP+48*, PTLKUP+49, PTLKUP+52 |
| PSBINTSY | SELSTTUS+4~, SELSTTUS+8*, SELSTTUS+9 |
| PSBIVPSH | SELSTTUS+4~, SELSTTUS+8*, SELSTTUS+9 |
| PSBIVTYP | SELSTTUS+4~, SELSTTUS+7*, SELSTTUS+9 |
| PSBMRRX | SELECTAD+11~, SELECTAD+40, SELSTTUS+20* |
| PSBNRSWD | PTLKUP+7~, PTLKUP+24* |
| PSBORTYP | SELSTTUS+4~, SELSTTUS+7*, SELSTTUS+9, SELSTTUS+11, SELSTTUS+12 |
| PSBPT | PTLKUP+9!, PTLKUP+23!, PTLKUP+54!, PTLKUP+55 |
| PSBPT( | PTLKUP+53* |
| PSBPT(0 | PTLKUP+9*, PTLKUP+23*, PTLKUP+51, PTLKUP+53*, PTLKUP+54 |
| PSBPTCHX | SELECTAD+10!, SELECTAD+47, SELSTTUS+18* |
| PSBREC | RPC~, ADMLKUP~, PTLKUP~, SELECTAD~ |
| PSBREC( | PTLKUP+31, PTLKUP+32, PTLKUP+33 |
| PSBREC(0 | RPC+4*, RPC+6 |
| PSBREC(1 | ADMLKUP+10, PTLKUP+12, SELECTAD+12 |
| PSBREC(2 | ADMLKUP+10 |
| PSBRPT | PTLKUP+7~, PTLKUP+34 |
| PSBRPT(2 | PTLKUP+32*, PTLKUP+33* |
| >> PSBSRCH | ADMLKUP+10*, ADMLKUP+11*, ADMLKUP+13*, ADMLKUP+15, ADMLKUP+19, ADMLKUP+20, ADMLKUP+23, KILLAADT+4 |
| PSBX | PTLKUP+26*, PTLKUP+51*, PTLKUP+52, SELECTAD+12~, SELECTAD+41*, SELECTAD+42*, SELECTAD+43, SELECTAD+48*, SELECTAD+49*, SELECTAD+50 , SELECTAD+55*, SELECTAD+56*, SELECTAD+57, SELECTAD+58, SELECTAD+61*, SELECTAD+63, SELECTAD+64, SELECTAD+69, SELECTAD+70, SELECTAD+72* , SELECTAD+74, SELECTAD+75, SELECTAD+77*, SELECTAD+79, SELECTAD+80 |
| PSBXIV | SELECTAD+10!, SELECTAD+54, SELSTTUS+21* |
| >> PSBXORDN | ADMLKUP+19*, ADMLKUP+28 |
| PSBXTAB | SELSTTUS+4~, SELSTTUS+9*, SELSTTUS+10, SELSTTUS+11*, SELSTTUS+12*, SELSTTUS+18, SELSTTUS+21, SELSTTUS+22 |
| PSBXX | PTLKUP+59*, PTLKUP+60, PTREC+2~, PTREC+3*, PTREC+4*, PTREC+5*, PTREC+6*, PTREC+7*, PTREC+8*, PTREC+9 , SELECTAD+43*, SELECTAD+44, SELECTAD+50*, SELECTAD+51, SELECTAD+58* |
| >> PSBXXX | SELECTAD+43*, SELECTAD+44, SELECTAD+50*, SELECTAD+51 |
| >> PSBY | PTLKUP+24*, PTLKUP+26, PTLKUP+51*, PTLKUP+53* |
| >> PSBZ | PTLKUP+24*, PTLKUP+53* |
| PTLKUP+31*, PTLKUP+32, PTLKUP+33 | |
| RESULTS | RPC~, RPC+6*, ADMLKUP~, ADMLKUP+9!, PTLKUP~, PTLKUP+8!, PTLKUP+40, PTLKUP+61, SELECTAD~, SELECTAD+10! , SELECTAD+26, SELSTTUS~ |
| RESULTS( | ADMLKUP+22*, ADMLKUP+23*, ADMLKUP+24*, ADMLKUP+25*, ADMLKUP+26*, ADMLKUP+29*, ADMLKUP+30*, ADMLKUP+32*, ADMLKUP+33*, ADMLKUP+34* , PTLKUP+38*, PTLKUP+60*, SELECTAD+63*, SELECTAD+64*, SELECTAD+65*, SELECTAD+66*, SELECTAD+69*, SELECTAD+70*, SELECTAD+74*, SELECTAD+75* , SELECTAD+79*, SELECTAD+80* |
| RESULTS("" | PTLKUP+44, PTLKUP+62 |
| RESULTS(0 | ADMLKUP+12*, ADMLKUP+35*, PTLKUP+17*, PTLKUP+18*, PTLKUP+41*, PTLKUP+44*, PTLKUP+57*, PTLKUP+61*, PTLKUP+62*, SELECTAD+14* , SELECTAD+82* |
| RESULTS(1 | ADMLKUP+12*, ADMLKUP+35, PTLKUP+17*, PTLKUP+19*, PTLKUP+42*, PTLKUP+46, PTLKUP+57*, PTLKUP+61*, SELECTAD+17*, SELECTAD+18* , SELECTAD+19*, SELECTAD+20*, SELECTAD+21*, SELECTAD+22*, SELECTAD+23*, SELECTAD+24*, SELECTAD+26, SELECTAD+28*, SELECTAD+29*, SELECTAD+33* , SELECTAD+35*, SELECTAD+41, SELECTAD+42, SELECTAD+44*, SELECTAD+47, SELECTAD+48, SELECTAD+49, SELECTAD+51*, SELECTAD+54, SELECTAD+55 , SELECTAD+56, SELECTAD+57, SELECTAD+58*, SELSTTUS+15*, SELSTTUS+16*, SELSTTUS+17*, SELSTTUS+22* |
| RESULTS(2 | SELECTAD+36* |
| U | RPC+4, ADMLKUP+23, ADMLKUP+24, ADMLKUP+25, ADMLKUP+26, ADMLKUP+29, ADMLKUP+30, ADMLKUP+32, ADMLKUP+33, ADMLKUP+34 , ADMLKUP+35, PTLKUP+26, PTLKUP+51, PTLKUP+53, PTLKUP+56, PTREC+4, PTREC+5, PTREC+6, PTREC+7, PTREC+8 , SELECTAD+17, SELECTAD+18, SELECTAD+19, SELECTAD+20, SELECTAD+21, SELECTAD+22, SELECTAD+23, SELECTAD+24, SELECTAD+26, SELECTAD+28 , SELECTAD+29, SELECTAD+33, SELECTAD+35, SELECTAD+36, SELECTAD+41, SELECTAD+42, SELECTAD+43, SELECTAD+44, SELECTAD+47, SELECTAD+48 , SELECTAD+49, SELECTAD+50, SELECTAD+51, SELECTAD+54, SELECTAD+55, SELECTAD+56, SELECTAD+57, SELECTAD+58, SELECTAD+63, SELECTAD+64 , SELECTAD+65, SELECTAD+66, SELECTAD+69, SELECTAD+70, SELECTAD+74, SELECTAD+75, SELECTAD+79, SELECTAD+80, SELSTTUS+7, SELSTTUS+8 , SELSTTUS+15, SELSTTUS+16, SELSTTUS+17, SELSTTUS+18, SELSTTUS+20, SELSTTUS+22 |
| VAL | PAD~, PAD+1 |
| X | PTLKUP+14~, PTLKUP+15*, PTLKUP+16, PTLKUP+19 |
| >> Y | SELECTAD+27*, SELECTAD+28 |
