Routine: PSBMLEN1

Information

PSBMLEN1 ;BIRMINGHAM/EFC-BCMA MEDICATION LOG FUNCTIONS ;03/06/16 3:06pm

Package	Total	Call Graph
VA FileMan	8	^%DT NOW^%DTC ^DDS HLP^DDSUTL YN^DICN ^DIK D^DIQ ^DIR
Barcode Medication Administration	6	RPC^PSBML VAL^PSBMLVAL $$REMSTR^PSBUTL ($$GETADMIN,$$GETFREQ)^PSBVDLU1 SCANFAIL^PSBVDLU3 (CLEAN,PSJ1)^PSBVT
Inpatient Medications	1	ENE^PSJBCMA4
Kernel	1	$$FMADD^XLFDT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Barcode Medication Administration	1	PSBMLEN

Entry Points

Name	Comments	DBIA/ICR reference
NEW(Y)	; Create the new entry
FORUM
FILE	; Call the med log RPC to file it and DDS to edit it
SITECHK	;Inj or Derm site field validate
KILL	;Kill and write msg
FDATE	;Check Admin Time for future date/time.
SCANFAIL	;File an MSF record

External References

Name	Field # of Occurrence
^%DT	NEW+66
NOW^%DTC	NEW+4, NEW+66, FDATE+2
^DDS	FILE+13
HLP^DDSUTL	FDATE+3
YN^DICN	NEW+9, NEW+23, NEW+32, NEW+78
^DIK	FILE+16, KILL+3
D^DIQ	NEW+66, NEW+77
^DIR	NEW+36, NEW+73, NEW+75, FILE+8, KILL+4
RPC^PSBML	FILE+2
VAL^PSBMLVAL	NEW+28
$$REMSTR^PSBUTL	NEW+20
$$GETADMIN^PSBVDLU1	NEW+10, NEW+67
$$GETFREQ^PSBVDLU1	NEW+10
SCANFAIL^PSBVDLU3	SCANFAIL+13
CLEAN^PSBVT	NEW+3
PSJ1^PSBVT	NEW+3
ENE^PSJBCMA4	NEW+60
$$FMADD^XLFDT	FORUM+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: NEW+3
Function Call: WRITE	Prompt: !,"Order: ",PSBONX Line Location: NEW+13
Function Call: WRITE	Prompt: !,"Medication: ",PSBOITX Line Location: NEW+14
Function Call: WRITE	Prompt: !,"Dosage: ",PSBDOSE Line Location: NEW+15
Function Call: WRITE	Prompt: !,"Schedule: ",PSBSCH Line Location: NEW+16
Function Call: WRITE	Prompt: !,"Admin Times: ",$S(PSBODSCH:"(Odd Sched.)",1:PSBADST) Line Location: NEW+17
Function Call: WRITE	Prompt: !!,"Brief Administration History: ",! Line Location: NEW+29
Function Call: WRITE	Prompt: !,?5,PSB(I) Line Location: NEW+29
Function Call: WRITE	Prompt: !,"This operation is NOT AVAILABLE in PSB READ ONLY mode.",! Line Location: NEW+30
Function Call: WRITE	Prompt: !,"This operation is NOT AVAILABLE in PSB READ ONLY mode.",! Line Location: NEW+31
Function Call: WRITE	Prompt: !!,"Sorry, Reason is required, No Entry Made!" Line Location: NEW+37
Function Call: WRITE	Prompt: !,$J($S(X=1:X,1:X-1),2),". ",$S(X=1:$P(PSB(X),"^",2,3),1:PSB(X)) Line Location: FILE+6
Function Call: WRITE	Prompt: !!,"Incomplete Med Log Entry, Deleting...#",DA,!,$C(7) Line Location: KILL+1
Function Call: WRITE	Prompt: $C(7) Line Location: FDATE+3
Routine Call	DDS Line Location: FILE+13
Routine Call	DIR Line Location: NEW+36 NEW+73 NEW+75 FILE+8 KILL+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSB(53.79 - [#53.79]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSB(53.79 - [#53.79]	NEW+60, FILE+11, FILE+12, FILE+14, FILE+15, FILE+16!, FILE+21, FILE+22, FILE+23, FILE+24 , FILE+25, FILE+29, FILE+37, SITECHK+2, SITECHK+5, SITECHK+8, SITECHK+11, SITECHK+14, KILL+2, KILL+3! , SCANFAIL+2, SCANFAIL+3, SCANFAIL+5, SCANFAIL+6, SCANFAIL+7, SCANFAIL+8, SCANFAIL+9, SCANFAIL+10, SCANFAIL+11
^TMP("PSB"	NEW+11!*, NEW+68, NEW+69, FORUM+24!
^XUSEC("PSB INSTRUCTOR"	NEW+31
^XUSEC("PSB READ ONLY"	NEW+21, NEW+30
^XUSEC("PSB STUDENT"	NEW+31

Label References

Name	Line Occurrences
FILE	NEW+59, FORUM+23, FILE+39
KILL	FILE+27, FILE+32
SCANFAIL	FILE+38
SITECHK	FILE+32

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NEW+5, NEW+9, NEW+23, NEW+32, NEW+78, FDATE+3
>> %DT	NEW+65*
>> %DT("A"	NEW+65*
>> %DT("B"	NEW+66*
>> %DT(0	NEW+66*!
>> A	FILE+15, KILL+2
>> AADT	FILE+15, FILE+16, KILL+2, KILL+3
>> DA	NEW+60, FILE+10*, FILE+11, FILE+12, FILE+14, FILE+15, FILE+16, FILE+21, FILE+22, FILE+23 , FILE+25, FILE+29, FILE+32, SITECHK+2, SITECHK+5, SITECHK+8, SITECHK+11, SITECHK+14, KILL+1, KILL+2 , KILL+3, SCANFAIL+2, SCANFAIL+3, SCANFAIL+5, SCANFAIL+6, SCANFAIL+7, SCANFAIL+8, SCANFAIL+9, SCANFAIL+10, SCANFAIL+11
>> DDSBR	FDATE+3*
>> DDSERROR	FDATE+3*
>> DDSFILE	FILE+10*
>> DDSPARM	FILE+10*
>> DFN	NEW+3, NEW+10, NEW+28, NEW+43, NEW+67, FORUM+5, FILE+15, FILE+16, KILL+2, KILL+3
>> DIK	FILE+16, KILL+3
>> DILOCKTM	FILE+14
DIR	NEW+34!, NEW+73!, NEW+74!, FILE+8!, KILL+4!
DIR("A"	NEW+34, NEW+74
DIR(0	NEW+34, NEW+73, NEW+74, FILE+8, KILL+4*
>> DR	FILE+11, FILE+12
DSPDRG	SCANFAIL+1~, SCANFAIL+5*, SCANFAIL+6, SCANFAIL+7
DUZ	NEW+21, NEW+30, NEW+31
>> I	NEW+29*
IOF	NEW+3, NEW+6, FILE+5
PSB	NEW+1~, NEW+28, FILE+1~, FILE+2, FILE+3
PSB(	NEW+29, FILE+6
PSB(" "	NEW+29
PSB(0	FILE+3*, FILE+6
PSB(1	NEW+29, FILE+3*, FILE+4, FILE+10
>> PSBADA(	NEW+57, FORUM+21
PSBADST	NEW+1~, NEW+10*, NEW+11, NEW+17, NEW+20
PSBAUDIT	FILE+1~, FILE+9*
>> PSBCNTNU	NEW+22*
>> PSBDDA(	NEW+54, NEW+55, FORUM+18, FORUM+19
>> PSBDFN	FILE+24, FILE+25
>> PSBDOA	NEW+20, FORUM+16
>> PSBDOSE	NEW+15, NEW+42, FORUM+4
>> PSBDOSEF	NEW+40, NEW+55, FORUM+1, FORUM+2*, FORUM+19
>> PSBDT	NEW+10
>> PSBDTX	NEW+66, NEW+67, NEW+76, NEW+77, FORUM+10, FORUM+16
PSBFREQ	NEW+1~, NEW+10*, NEW+12, NEW+67
>> PSBIEN	FILE+34, FILE+36
>> PSBIEN(1	FILE+34, FILE+36
>> PSBINCX	FILE+3
>> PSBINDX	NEW+53, NEW+55, NEW+56, NEW+57, NEW+58, FORUM+17, FORUM+19, FORUM+20, FORUM+21, FORUM+22
>> PSBMMEN	NEW+2*, FILE+9, FILE+38
>> PSBMRRFL	NEW+18, NEW+20, NEW+55, FORUM+16, FORUM+19, SITECHK+8, SITECHK+14
>> PSBNJECT	SITECHK+5, SITECHK+11
>> PSBODSCH	NEW+12*, NEW+17, NEW+67, NEW+71
>> PSBOIT	NEW+47, FORUM+9
>> PSBOITX	NEW+14
>> PSBONX	NEW+10, NEW+13, NEW+28, NEW+44, NEW+51, NEW+67, NEW+72, FORUM+6, FORUM+14, FILE+24 , FILE+25
>> PSBOPRSP	NEW+20
>> PSBOSP	NEW+5, NEW+20
>> PSBOST	NEW+10, NEW+67
PSBPRM	SCANFAIL+1~, SCANFAIL+13
PSBPRM(0	SCANFAIL+4*
PSBPRM(1	SCANFAIL+12*
PSBREC	NEW+1~, FILE+2
PSBREC(	NEW+55, NEW+57, NEW+58, FORUM+19, FORUM+21, FORUM+22
PSBREC(0	NEW+43, NEW+60, FORUM+5
PSBREC(1	NEW+44, NEW+60, FORUM+6
PSBREC(10	NEW+52, FORUM+16
PSBREC(2	NEW+45, NEW+60, FORUM+7
PSBREC(3	NEW+46, FORUM+8
PSBREC(4	NEW+47, FORUM+9
PSBREC(5	NEW+48, FORUM+10
PSBREC(6	NEW+38, FORUM+11
PSBREC(7	NEW+49, FORUM+12
PSBREC(8	NEW+50, FORUM+13
PSBREC(9	NEW+51, FORUM+14
>> PSBRMST	NEW+20
PSBRSLT	SCANFAIL+1~, SCANFAIL+13
PSBSAVE	FILE+1~, FILE+9*, FILE+14, FILE+20
>> PSBSCH	NEW+16
>> PSBSCHT	NEW+20, NEW+27, NEW+29, NEW+33, NEW+45, NEW+64, FORUM+7
>> PSBSCTMX	NEW+67*, NEW+71
>> PSBSOLA(	NEW+58, FORUM+22
PSBTIMX	FDATE+1~, FDATE+2*, FDATE+3
>> PSBVARD	NEW+42, FORUM+4
PSBX	SCANFAIL+1~, SCANFAIL+2*, SCANFAIL+4
PSBX1	SCANFAIL+1~, SCANFAIL+3*, SCANFAIL+4, SCANFAIL+6, SCANFAIL+8, SCANFAIL+10
PSBX2	SCANFAIL+1~, SCANFAIL+7, SCANFAIL+9, SCANFAIL+10, SCANFAIL+11*, SCANFAIL+12
>> PSBXUIT	FILE+19, FILE+24, FILE+27, FILE+28, FILE+30, FILE+32, FILE+35, FILE+39, SITECHK+1, SITECHK+4* , SITECHK+5, SITECHK+7, SITECHK+8, SITECHK+10, SITECHK+11, SITECHK+13, SITECHK+14, SITECHK+16
>> PSBXX	NEW+68*, NEW+69
>> PSBY	FILE+22*, FILE+23
>> PSBYX	FILE+24*, FILE+25
>> PSBYZ	FILE+25*
U	NEW+55, NEW+60, FORUM+19, FILE+10, FILE+11, FILE+12, FILE+15, FILE+21, FILE+23, FILE+25 , FILE+29, FILE+37, SITECHK+2, SITECHK+5, SITECHK+8, SITECHK+11, SITECHK+14, KILL+2, SCANFAIL+4, SCANFAIL+6 , SCANFAIL+7, SCANFAIL+8, SCANFAIL+9, SCANFAIL+10, SCANFAIL+11
>> X	NEW+29, NEW+54, NEW+55, NEW+57, NEW+58, NEW+66, NEW+69, NEW+70, NEW+74, FORUM+18* , FORUM+19, FORUM+21, FORUM+22, FILE+6, FILE+36, FILE+37, FILE+38, FDATE+2
Y	NEW~, NEW+3, NEW+33, NEW+37, NEW+38, NEW+66, NEW+69, NEW+70, NEW+75, NEW+77 , NEW+78, FILE+37*
Y(0	NEW+76
>> Z	NEW+70, FILE+37

Customize PDF page

Package: Barcode Medication Administration