Routine: PSBMLEN1

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

Package

Total

Call Graph

VA Fileman

^%DT NOW^%DTC ^DDS HLP^DDSUTL YN^DICN ^DIK D^DIQ ^DIR

Barcode Medication Administration

RPC^PSBML VAL^PSBMLVAL ($$GETADMIN,$$GETFREQ)^PSBVDLU1 SCANFAIL^PSBVDLU3 (CLEAN,PSJ1)^PSBVT

Inpatient Medications

ENE^PSJBCMA4

Package	Total	Caller Graph
Barcode Medication Administration	1	PSBMLEN

Package

Total

Caller Graph

Barcode Medication Administration

PSBMLEN

Name	Comments	DBIA/ICR reference
FILE	; Call the med log RPC to file it and DDS to edit it
SCANFAIL	;File an MSF record
FORUM
NEW(Y)	; Create the new entry
FDATE	;Check Admin Time for future date/time.

External References

Name	Field # of Occurrence
^%DT	NEW+60
NOW^%DTC	NEW+4, NEW+60, FDATE+2
^DDS	FILE+13
HLP^DDSUTL	FDATE+3
YN^DICN	NEW+9, NEW+20, NEW+29, NEW+72
^DIK	FILE+16, FILE+24
D^DIQ	NEW+60, NEW+71
^DIR	NEW+33, NEW+67, NEW+69, FILE+8
RPC^PSBML	FILE+2
VAL^PSBMLVAL	NEW+25
$$GETADMIN^PSBVDLU1	NEW+10, NEW+61
$$GETFREQ^PSBVDLU1	NEW+10
SCANFAIL^PSBVDLU3	SCANFAIL+12
CLEAN^PSBVT	NEW+3
PSJ1^PSBVT	NEW+3
ENE^PSJBCMA4	NEW+54

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+26
Function Call: WRITE	Prompt: !,?5,PSB(I) Line Location: NEW+26
Function Call: WRITE	Prompt: !,"This operation is NOT AVAILABLE in PSB READ ONLY mode.",! Line Location: NEW+27
Function Call: WRITE	Prompt: !,"This operation is NOT AVAILABLE in PSB READ ONLY mode.",! Line Location: NEW+28
Function Call: WRITE	Prompt: !!,"Sorry, Reason is required, No Entry Made!" Line Location: NEW+34
Function Call: WRITE	Prompt: !,$J($S(X=1:X,1:X-1),2),". ",$S(X=1:$P(PSB(X),"^",2),1:PSB(X)) Line Location: FILE+6
Function Call: WRITE	Prompt: $C(7) Line Location: FDATE+3
Routine Call	DDS Line Location: FILE+13
Routine Call	DIR Line Location: NEW+33 NEW+67 NEW+69 FILE+8

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+54, FILE+11, FILE+12, FILE+14, FILE+15, FILE+16!, FILE+18, FILE+19, FILE+20, FILE+21 , FILE+22, FILE+23, FILE+24!, FILE+27, FILE+31, SCANFAIL+2, SCANFAIL+3, SCANFAIL+5, SCANFAIL+6, SCANFAIL+7 , SCANFAIL+8, SCANFAIL+9, SCANFAIL+10
^TMP("PSB"	NEW+11!*, NEW+62, NEW+63, FORUM+20!
^XUSEC("PSB INSTRUCTOR"	NEW+28
^XUSEC("PSB READ ONLY"	NEW+18, NEW+27
^XUSEC("PSB STUDENT"	NEW+28

Name	Line Occurrences
FILE	NEW+53, FORUM+19
SCANFAIL	FILE+32

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBMLEN1

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: