Routine: PSBMLEN

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
VA Fileman	8	^%DT (C,NOW)^%DTC ^DDS (HLP,REFRESH)^DDSUTL ^DIC YN^DICN ($$GET1,D)^DIQ ^DIR
Barcode Medication Administration	5	NEW^PSBMLEN1 ($$GETADMIN,$$GETFREQ)^PSBVDLU1 INFUSING^PSBVDLU2 (CLEAN,PSJ,PSJ1)^PSBVT $$PSBDCHK1^PSBVT1
Inpatient Medications	2	EN^PSJBCMA (ENE,ENR)^PSJBCMA4
Toolkit	1	$$GET^XPAR

Package

Total

Call Graph

VA Fileman

^%DT (C,NOW)^%DTC ^DDS (HLP,REFRESH)^DDSUTL ^DIC YN^DICN ($$GET1,D)^DIQ ^DIR

Barcode Medication Administration

NEW^PSBMLEN1 ($$GETADMIN,$$GETFREQ)^PSBVDLU1 INFUSING^PSBVDLU2 (CLEAN,PSJ,PSJ1)^PSBVT $$PSBDCHK1^PSBVT1

Inpatient Medications

EN^PSJBCMA (ENE,ENR)^PSJBCMA4

Toolkit

$$GET^XPAR

Package	Total	Caller Graph
Barcode Medication Administration	1	PSB MED LOG NEW ENTRY

Package

Total

Caller Graph

Barcode Medication Administration

PSB MED LOG NEW ENTRY

Name	Comments	DBIA/ICR reference
HDR()	;
EN	;
EDIT
EDIT1
EN1	;
EN2	;
VALID	;
UNITS	;Check UNITS field for entry of PATCH

External References

Name	Field # of Occurrence
^%DT	EN1+2, EDIT1+2
C^%DTC	EDIT1+29
NOW^%DTC	EN1+8
^DDS	EDIT1+50
HLP^DDSUTL	VALID+1, VALID+4, VALID+5, VALID+6, UNITS+5
REFRESH^DDSUTL	UNITS+6
^DIC	EN+9, EDIT+6
YN^DICN	EDIT1+31
$$GET1^DIQ	EDIT1+20, EDIT1+21, EDIT1+23, EDIT1+24, EDIT1+33, EDIT1+35
D^DIQ	EDIT1+4, EDIT1+16, EDIT1+29
^DIR	EN1+44, EN2+8, EN2+23, EDIT1+15, EDIT1+26
NEW^PSBMLEN1	EN2+24
$$GETADMIN^PSBVDLU1	EN1+29
$$GETFREQ^PSBVDLU1	EN1+24
INFUSING^PSBVDLU2	EDIT1+35
CLEAN^PSBVT	EN1+10
PSJ^PSBVT	EN1+10
PSJ1^PSBVT	EDIT1+42
$$PSBDCHK1^PSBVT1	EN1+21
EN^PSJBCMA	EN1+5
ENE^PSJBCMA4	EDIT1+53
ENR^PSJBCMA4	EDIT1+52
$$GET^XPAR	EN1+40

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Manual Medication Entry",! Line Location: EN+3
Function Call: WRITE	Prompt: !,"This option is NOT AVAILABLE in PSB READ ONLY mode.",! Line Location: EN+4
Function Call: WRITE	Prompt: !,"Notice: No validation of medications is done with this option." Line Location: EN+5
Function Call: WRITE	Prompt: !,"Entries in the Med Log created with this option will reflect this" Line Location: EN+6
Function Call: WRITE	Prompt: !,"in the comments.",!! Line Location: EN+7
Function Call: WRITE	Prompt: !,"Searching for Orders..." Line Location: EN1+3
Function Call: WRITE	Prompt: ! Line Location: EN1+44
Function Call: WRITE	Prompt: !!?5,"No Med Orders Found!",! Line Location: EN2+1
Function Call: WRITE	Prompt: !?7,"Admin Times: ",$P(^TMP("PSB",$J,PSBSCHT,PSBMED,PSBX),U,2) Line Location: EN2+19
Function Call: WRITE	Prompt: ! Line Location: EN2+22
Function Call: WRITE	Prompt: @IOF,"Manual Medication Entry",!," #",?4,"Sc",?7,"Medication",?41,"St" Line Location: HDR+1
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: HDR+2
Function Call: WRITE	Prompt: !! Line Location: EDIT1+2
Function Call: WRITE	Prompt: Y Line Location: EDIT1+4
Function Call: WRITE	Prompt: Y Line Location: EDIT1+16
Function Call: WRITE	Prompt: ?5," ("_$$GET1^DIQ(53.79,PSBIEN_",",.26)_")" Line Location: EDIT1+21
Function Call: WRITE	Prompt: !!?5,"No Meds Found!" Line Location: EDIT1+28
Function Call: WRITE	Prompt: $C(7) Line Location: VALID+1
Function Call: WRITE	Prompt: $C(7) Line Location: VALID+4
Function Call: WRITE	Prompt: $C(7) Line Location: VALID+5
Function Call: WRITE	Prompt: $C(7) Line Location: VALID+6
Function Call: WRITE	Prompt: $C(7) Line Location: UNITS+4
Routine Call	DDS Line Location: EDIT1+50
Routine Call	DIC Line Location: EN+9 EDIT+6
Routine Call	DIR Line Location: EN1+44 EN2+8 EN2+23 EDIT1+15 EDIT1+26

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^PSB(53.79 - [#53.79]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSB(53.79 - [#53.79]	EN1+35, EN1+36, EN1+38, EN1+39, EDIT1+9, EDIT1+11, EDIT1+12, EDIT1+22, EDIT1+52, EDIT1+53 , VALID+3
^TMP("PSB"	EN+2!, EN1+30!, EN1+43, EN2+1, EN2+3, EN2+6, EN2+7, EN2+11, EN2+12, EN2+16 , EN2+19, EN2+21
^TMP("PSBO"	EN+12!, EN1+16!, EN2+21*, EN2+24
^TMP("PSJ"	EN+2!, EN1+4!, EN1+6, EN1+9
^XUSEC("PSB MANAGER"	EDIT+3, EDIT1+11
^XUSEC("PSB READ ONLY"	EN+4

Name	Line Occurrences
$$HDR	EN2+1, EN2+8
EDIT	EDIT+10
EDIT1	EDIT+8
EN1	EN+11
EN2	EN2+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN1+8, EDIT1+31*
>> %DT	EN1+1, EDIT1+1
>> %DT("A"	EN1+1, EDIT1+1
>> %DT("B"	EN1+1, EDIT1+2
DA	EDIT+4, EDIT+9!, EDIT1+27, EDIT1+32, EDIT1+33, EDIT1+35, EDIT1+52, EDIT1+53, VALID+3
>> DDP	UNITS+3
>> DDSBR	UNITS+2*
>> DDSDA	UNITS+3
>> DDSERROR	VALID+1, VALID+4, VALID+5, VALID+6, UNITS+2*
DDSFILE	EDIT+9!, EDIT1+43*
>> DDSFLD	UNITS+3
>> DDSOLD	UNITS+3
>> DDSREFT	UNITS+3
DFN	EN+10, EN1+5, EN1+24, EN1+29, EN1+35, EN1+36, EN1+38, EN1+39, EDIT+7, EDIT+9! , EDIT1+9, EDIT1+11, EDIT1+52, EDIT1+53
DIC	EN+8, EN+9!, EDIT+5, EDIT+6!
DIC("A"	EN+8, EDIT+5
DIC(0	EN+8, EDIT+5
DIR	EN1+44!, EN2+8!, EN2+23!
DIR(0	EN1+44, EN2+8, EN2+23, EDIT1+15, EDIT1+26*
DR	EDIT+9!, EDIT1+44, EDIT1+45, EDIT1+46, EDIT1+47, EDIT1+48, EDIT1+49
DUZ	EN+4, EDIT+3, EDIT1+11
IOF	EN+3, HDR+1, EDIT1+4, EDIT1+16
IOM	HDR+2, EDIT1+6, EDIT1+18
IOSL	EN2+8, EN2+22
>> PSBADST	EN1+22, EN1+26, EN1+28, EN1+29*, EN1+30, EN1+31, EN1+43
PSBAUDIT	EDIT+1~, EDIT+2*
PSBBAG2	EDIT1+36*, EDIT1+37, EDIT1+38, EDIT1+39, EDIT1+41!
PSBBAGN	EDIT1+35*, EDIT1+37, EDIT1+38, EDIT1+40, EDIT1+41!
PSBBAGST	EDIT1+36*, EDIT1+38, EDIT1+39, EDIT1+41!
>> PSBCHEMT	EN1+14, EN1+15, EDIT1+48
PSBCNT	EN+1~, EN2+2, EN2+9, EN2+10, EN2+21, EN2+23, EDIT+9!, EDIT1+7, EDIT1+13, EDIT1+19 , EDIT1+25, EDIT1+26, EDIT1+28
>> PSBCOMP	EDIT1+33, EDIT1+34, EDIT1+35, EDIT1+37
>> PSBDFN	EDIT1+33*, EDIT1+42
PSBDT	EN+1~, EN1+2, EN1+5, EN1+29, EDIT+9!, EDIT1+2, EDIT1+3, EDIT1+4, EDIT1+7, EDIT1+9 , EDIT1+16, EDIT1+27, EDIT1+29, EDIT1+31*
PSBERR	EN+1~, EN1+7*, EN1+44
PSBFLAG	EN+1~
PSBFORM	EN+1~
PSBFREQ	EN+1~, EN1+24*, EN1+25, EN1+26, EN1+27, EN1+29
PSBGVN	EN1+34!, EN1+36, EN1+37!, EN1+39, EN1+40, EN1+41, EN1+42*
PSBIEN	EDIT+9!, EDIT1+10, EDIT1+11, EDIT1+12, EDIT1+13, EDIT1+20, EDIT1+21, EDIT1+22, EDIT1+23, EDIT1+24
>> PSBISYR	EN1+13, EN1+14, EDIT1+46, EDIT1+47
>> PSBIVT	EN1+12, EN1+13, EN1+14, EN1+15, EDIT1+45, EDIT1+46, EDIT1+47, EDIT1+48
PSBMED	EN+1~, EN2+5, EN2+6, EN2+7, EN2+10, EN2+11, EN2+12, EN2+16, EN2+19, EN2+21
>> PSBNGF	EN1+34, EN1+42
PSBNOW	EN+1~, EN1+8*, EN1+33
>> PSBODD	EN1+20, EN1+27, EN1+28
>> PSBOIT	EN1+35, EN1+36, EN1+38, EN1+39
>> PSBOITX	EN1+43
>> PSBONX	EN1+11, EN1+12, EN1+24, EN1+29, EN1+36, EN1+39, EN1+43, EDIT1+33*, EDIT1+34, EDIT1+36 , EDIT1+42, EDIT1+44
PSBORA	EDIT1+41!
>> PSBOSP	EN1+43
>> PSBOST	EN1+29, EN1+33, EN1+43
>> PSBOSTS	EN1+41, EN1+43
>> PSBOUT	EN1+17, EN1+22, EN1+26, EN1+28, EN1+31*, EN1+32
>> PSBPORA(	EDIT1+36
PSBREC	EN+2!
PSBREC(7	VALID+2
>> PSBSCH	EN1+21, EN1+23
PSBSCHT	EN+1~, EN1+18, EN1+34, EN1+37, EN1+43, EN2+2, EN2+3, EN2+6, EN2+7, EN2+8* , EN2+10, EN2+11, EN2+12, EN2+16, EN2+19, EN2+21
PSBSRCH	EDIT+9!, EDIT1+7, EDIT1+9, EDIT1+11
>> PSBSTUS	EDIT1+33*, EDIT1+34, VALID+1
PSBTMP	EDIT+9!, EDIT1+8!
PSBTMP(	EDIT1+13*, EDIT1+27
PSBVARD	EN+1~
PSBX	EN+1~, EN1+9, EN1+10, EN1+43, EN2+7, EN2+11, EN2+12, EN2+16, EN2+19, EN2+21
>> PSBY	EN1+31*
>> PSBYES	EN1+20, EN1+21, EN1+22, EN1+23, EN1+25, EN1+26
U	EN1+36, EN1+39, EN1+43, EN2+11, EN2+12, EN2+16, EN2+19, EN2+21, EDIT1+11, EDIT1+12 , EDIT1+22, EDIT1+36, EDIT1+52, EDIT1+53, VALID+3
X	EN1+34!, EN1+35, EN1+36, EN1+37!, EN1+38, EN1+39, EDIT1+29, EDIT1+36*, VALID+1, VALID+4 , VALID+5, VALID+6
>> X1	EDIT1+29*
>> X2	EDIT1+29*
Y	EN+9, EN+10, EN1+2, EN1+34!, EN1+36, EN1+37!, EN1+39, EN1+44, EN2+8, EN2+12* , EN2+14, EN2+15, EN2+16, EN2+17, EN2+18, EN2+24, EDIT+6, EDIT+7, EDIT1+2, EDIT1+4* , EDIT1+16, EDIT1+25, EDIT1+27, EDIT1+29, EDIT1+30, UNITS+1

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBMLEN

Information

Source Information

Call Graph

Call Graph Total: 16

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: