Routine: PSBMLLKU

Package	Total	Call Graph
VA Fileman	4	DD^%DT NOW^%DTC FIND^DIC $$GET1^DIQ
Barcode Medication Administration	1	$$IVPTAB^PSBVDLU3
IHS Changes To ADT	1	$$HRCNF^BDGF2
IHS Changes To Pharmacy	1	$$HRCNF^APSPFUNC
IHS Patient	1	$$HRN^AUPNPAT
Inpatient Medications	1	EN^PSJBCMA1
Kernel	1	$$UCASE^XUSG
Registration	1	($$DOB,$$SSN)^DPTLK1

Name	Comments	DBIA/ICR reference
SELECTAD(RESULTS,PSBREC)	; Select Administration
SELSTTUS(RESULTS)	; ; Provide the SELectable STaTUS
PTLKUP(RESULTS,PSBREC)	; Patient lookup handled separately for security ; input - PSBREC (array) User entered patient lookup data
KILLAADT	; ; Here because there is an errorant index entry via version 1.0/2.0 ; Cleansing!
PAD(VAL)	; Return VAL with leading zeroes padded to 6 characters
CHKKEY(PSBIENX)	;
ADMLKUP(RESULTS,PSBREC)	; ; Lookup ADMinistrations per DFN and search DATE ; input - PSBREC(1) DFN ; PSBREC(2) Search DATE
PTREC(DFN)	; ; Extrinsic to return a Pt Rec in standard list format
RPC(RESULTS,PSBREC)	; Remote Procedure Call Entry Point.

Name	Field # of Occurrence
DD^%DT	SELECTAD+26
NOW^%DTC	ADMLKUP+10
$$HRCNF^APSPFUNC	PTLKUP+12
$$HRN^AUPNPAT	PTREC+8
$$HRCNF^BDGF2	PTREC+4
FIND^DIC	PTLKUP+26, PTLKUP+29
$$GET1^DIQ	ADMLKUP+19, ADMLKUP+20, ADMLKUP+21, ADMLKUP+24, ADMLKUP+25, ADMLKUP+26, ADMLKUP+32, ADMLKUP+33, CHKKEY+1, PTLKUP+12 , PTLKUP+22, PTLKUP+24, PTREC+5, PTREC+6, SELECTAD+18, SELECTAD+19, SELECTAD+20, SELECTAD+21, SELECTAD+22, SELECTAD+23 , SELECTAD+26, SELECTAD+28, SELECTAD+29, SELECTAD+31, SELECTAD+47, SELECTAD+54, SELECTAD+59, SELSTTUS+5
$$DOB^DPTLK1	PTREC+7
$$SSN^DPTLK1	PTREC+8
$$IVPTAB^PSBVDLU3	SELSTTUS+9
EN^PSJBCMA1	ADMLKUP+28, SELSTTUS+5
$$UCASE^XUSG	PTLKUP+22

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+22, PTLKUP+24
^PSB(53.79 - [#53.79]	ADMLKUP+13, ADMLKUP+15, ADMLKUP+16, ADMLKUP+17, ADMLKUP+19, ADMLKUP+34, SELECTAD+15, SELECTAD+16, SELECTAD+36, SELECTAD+37 , SELECTAD+42, SELECTAD+45, SELECTAD+47, SELECTAD+48, SELECTAD+52, SELECTAD+54, SELECTAD+55, SELECTAD+57, SELECTAD+59, SELECTAD+60 , SELECTAD+61, KILLAADT+4!
^TMP("DILIST"	PTLKUP+18!, PTLKUP+28!, PTLKUP+30, PTLKUP+32*, PTLKUP+33, PTLKUP+35, PTLKUP+36, PTLKUP+37
^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+21!
^XUSEC("PSB MANAGER"	CHKKEY+1

Name	Line Occurrences
$$CHKKEY	ADMLKUP+15, SELECTAD+14
$$PAD	PTLKUP+12
$$PTREC	PTLKUP+16, PTLKUP+37
@(	RPC+2
KILLAADT	ADMLKUP+15
SELSTTUS	SELECTAD+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ADMLKUP+10
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
DUZ	CHKKEY+1
DUZ("AG"	PTLKUP+10, PTREC+4, PTREC+8
DUZ(2	PTLKUP+12, PTREC+4, PTREC+8
PSBCHMTY	SELSTTUS+4~, SELSTTUS+8*, SELSTTUS+9
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, SELECTAD+11~, SELECTAD+16, SELECTAD+46, SELECTAD+47, SELECTAD+48, SELECTAD+49, SELECTAD+50, SELECTAD+53 , SELECTAD+54, SELECTAD+55, SELECTAD+58*, SELECTAD+59, SELECTAD+60, SELECTAD+62
PSBDATA	PTLKUP+9, PTLKUP+10, PTLKUP+12, PTLKUP+14, PTLKUP+17, PTLKUP+19, PTLKUP+20, PTLKUP+22, PTLKUP+23!, PTLKUP+25 , PTLKUP+26
PSBDATA(	PTLKUP+24*, PTLKUP+28, PTLKUP+29
PSBDATA(""	PTLKUP+26, PTLKUP+27
>> PSBDATA1	PTLKUP+17*, PTLKUP+34, PTLKUP+38
>> 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+11~*, SELECTAD+14, SELECTAD+15, SELECTAD+16, SELECTAD+17, SELECTAD+18 , SELECTAD+19, SELECTAD+21, SELECTAD+22, SELECTAD+23, SELECTAD+26, SELECTAD+28, SELECTAD+29, SELECTAD+31, SELECTAD+36, SELECTAD+42 , SELECTAD+45, SELECTAD+47, SELECTAD+48, SELECTAD+52, SELECTAD+54, SELECTAD+55, SELECTAD+57, SELECTAD+59, SELECTAD+60, SELECTAD+61 , SELSTTUS+5, KILLAADT+4
PSBIENX	CHKKEY~, CHKKEY+1
PSBINDX	PTLKUP+18~, PTLKUP+19, PTLKUP+20, PTLKUP+25, PTLKUP+26, PTLKUP+29
PSBINTSY	SELSTTUS+4~, SELSTTUS+8*, SELSTTUS+9
PSBIVPSH	SELSTTUS+4~, SELSTTUS+8*, SELSTTUS+9
PSBIVTYP	SELSTTUS+4~, SELSTTUS+7*, SELSTTUS+9
PSBNRSWD	PTLKUP+8~, PTLKUP+22*
PSBORTYP	SELSTTUS+4~, SELSTTUS+7*, SELSTTUS+9, SELSTTUS+11, SELSTTUS+12
PSBPT	PTLKUP+21!, PTLKUP+31!, PTLKUP+32
PSBPT(	PTLKUP+30*
PSBPT(0	PTLKUP+21, PTLKUP+28, PTLKUP+30, PTLKUP+31
PSBPTCHX	SELECTAD+10!, SELECTAD+33, SELSTTUS+18*
PSBREC	RPC~, ADMLKUP~, PTLKUP~, SELECTAD~
PSBREC(0	RPC+2
PSBREC(1	ADMLKUP+10, PTLKUP+9, SELECTAD+11
PSBREC(2	ADMLKUP+10
>> PSBSRCH	ADMLKUP+10, ADMLKUP+11, ADMLKUP+13*, ADMLKUP+15, ADMLKUP+19, ADMLKUP+20, ADMLKUP+23, KILLAADT+4
PSBX	PTLKUP+24, PTLKUP+28, PTLKUP+29, SELECTAD+11~, SELECTAD+34, SELECTAD+35, SELECTAD+36, SELECTAD+39, SELECTAD+40, SELECTAD+41 , SELECTAD+42, SELECTAD+45, SELECTAD+47, SELECTAD+48, SELECTAD+52, SELECTAD+54, SELECTAD+55, SELECTAD+57*, SELECTAD+59, SELECTAD+60
PSBXIV	SELECTAD+10!, SELECTAD+38, SELSTTUS+19*
>> PSBXORDN	ADMLKUP+19*, ADMLKUP+28
PSBXTAB	SELSTTUS+4~, SELSTTUS+9, SELSTTUS+10, SELSTTUS+11, SELSTTUS+12*, SELSTTUS+18, SELSTTUS+19, SELSTTUS+20
PSBXX	PTLKUP+36, PTLKUP+37, PTREC+2~, PTREC+3, PTREC+4, PTREC+5, PTREC+6, PTREC+7, PTREC+8, PTREC+9 , SELECTAD+36, SELECTAD+37, SELECTAD+42*
>> PSBXXX	SELECTAD+36*, SELECTAD+37
>> PSBY	PTLKUP+22, PTLKUP+24, PTLKUP+28, PTLKUP+30*
>> PSBZ	PTLKUP+22, PTLKUP+30
RESULTS	RPC~, RPC+2*, ADMLKUP~, ADMLKUP+9!, PTLKUP~, PTLKUP+7!, PTLKUP+38, SELECTAD~, SELECTAD+10!, SELECTAD+25 , SELSTTUS~
RESULTS(	ADMLKUP+22, ADMLKUP+23, ADMLKUP+24, ADMLKUP+25, ADMLKUP+26, ADMLKUP+29, ADMLKUP+30, ADMLKUP+32, ADMLKUP+33, ADMLKUP+34 , PTLKUP+37, SELECTAD+47, SELECTAD+48, SELECTAD+49, SELECTAD+50, SELECTAD+54, SELECTAD+55, SELECTAD+59, SELECTAD+60*
RESULTS(""	PTLKUP+39
RESULTS(0	ADMLKUP+12, ADMLKUP+35, PTLKUP+14, PTLKUP+15, PTLKUP+34, PTLKUP+38, PTLKUP+39, SELECTAD+13, SELECTAD+62*
RESULTS(1	ADMLKUP+12, ADMLKUP+35, PTLKUP+14, PTLKUP+16, PTLKUP+34, PTLKUP+38, SELECTAD+16, SELECTAD+17, SELECTAD+18, SELECTAD+19* , SELECTAD+20, SELECTAD+21, SELECTAD+22, SELECTAD+23, SELECTAD+25, SELECTAD+27, SELECTAD+28, SELECTAD+29, SELECTAD+30, SELECTAD+34 , SELECTAD+35, SELECTAD+37, SELECTAD+39, SELECTAD+40, SELECTAD+41, SELECTAD+42, SELSTTUS+15, SELSTTUS+16, SELSTTUS+17, SELSTTUS+20
RESULTS(2	SELECTAD+31*
U	ADMLKUP+23, ADMLKUP+24, ADMLKUP+25, ADMLKUP+26, ADMLKUP+29, ADMLKUP+30, ADMLKUP+32, ADMLKUP+33, ADMLKUP+34, ADMLKUP+35 , PTLKUP+24, PTLKUP+28, PTLKUP+30, PTLKUP+33, PTREC+4, PTREC+5, PTREC+6, PTREC+7, PTREC+8, SELECTAD+16 , SELECTAD+17, SELECTAD+18, SELECTAD+19, SELECTAD+20, SELECTAD+21, SELECTAD+22, SELECTAD+23, SELECTAD+25, SELECTAD+27, SELECTAD+28 , SELECTAD+29, SELECTAD+30, SELECTAD+31, SELECTAD+34, SELECTAD+35, SELECTAD+36, SELECTAD+37, SELECTAD+39, SELECTAD+40, SELECTAD+41 , SELECTAD+42, SELECTAD+47, SELECTAD+48, SELECTAD+49, SELECTAD+50, SELECTAD+54, SELECTAD+55, SELECTAD+59, SELECTAD+60, SELSTTUS+7 , SELSTTUS+8, SELSTTUS+15, SELSTTUS+16, SELSTTUS+17, SELSTTUS+18, SELSTTUS+20
VAL	PAD~, PAD+1
X	PTLKUP+11~, PTLKUP+12*, PTLKUP+13, PTLKUP+16
>> Y	SELECTAD+26*, SELECTAD+27

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBMLLKU

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: