Routine: PSBMLTS

Package	Total	Call Graph
VA Fileman	7	^%DT NOW^%DTC (,$$FIND1,FIND)^DIC YN^DICN FIELD^DID ($$GET1,D)^DIQ ^DIR
Inpatient Medications	2	EN^PSJBCMA EN^PSJBCMA1
Barcode Medication Administration	1	VAL^PSBMLVAL
Toolkit	1	$$GET^XPAR

Package

Total

Call Graph

VA Fileman

^%DT NOW^%DTC (,$$FIND1,FIND)^DIC YN^DICN FIELD^DID ($$GET1,D)^DIQ ^DIR

Inpatient Medications

EN^PSJBCMA EN^PSJBCMA1

Barcode Medication Administration

VAL^PSBMLVAL

Toolkit

$$GET^XPAR

Package	Total	Caller Graph
Barcode Medication Administration	3	PSB MED LOG TROUBLE SHOOTER PSBIHS DRUG IEN CHECK PSBIHS2

Package

Total

Caller Graph

Barcode Medication Administration

PSB MED LOG TROUBLE SHOOTER PSBIHS DRUG IEN CHECK PSBIHS2

Name	Comments	DBIA/ICR reference
HDR()	;
EN	;
SCANNER	; This checks the scanning mechanism
SMED(RESULTS,PSBDATA)	; Lookup Medication
NEW(Y)	; Create the new entry
EN1	;
FILE	; Call the med log RPC to validate and order

External References

Name	Field # of Occurrence
^%DT	NEW+18, NEW+25
NOW^%DTC	EN+14
^DIC	EN+5
$$FIND1^DIC	SMED+2
FIND^DIC	SCANNER+14
YN^DICN	NEW+12
FIELD^DID	SCANNER+24
$$GET1^DIQ	SMED+4
D^DIQ	NEW+18, NEW+25, NEW+32
^DIR	EN+7, EN1+8, EN1+14, NEW+30, FILE+3, SCANNER+3
VAL^PSBMLVAL	FILE+2
EN^PSJBCMA	EN+11
EN^PSJBCMA1	NEW+3
$$GET^XPAR	SMED+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Manual Medication Log Trouble Shooter",!! Line Location: EN+3
Function Call: WRITE	Prompt: !,"Searching for Orders..." Line Location: EN+9
Function Call: WRITE	Prompt: !!?5,"No Med Orders Found!",! Line Location: EN1+1
Function Call: WRITE	Prompt: ! Line Location: EN1+13
Function Call: WRITE	Prompt: @IOF Line Location: NEW+3
Function Call: WRITE	Prompt: !,"Order: ",$P(PSBORD(0),U,3) Line Location: NEW+5
Function Call: WRITE	Prompt: !,"Medication: ",$P(PSBORD(2),U,2) Line Location: NEW+6
Function Call: WRITE	Prompt: !,"Dosage: ",$P(PSBORD(2),U,3) Line Location: NEW+7
Function Call: WRITE	Prompt: !,"Schedule: ",$P(PSBORD(4),U,2) Line Location: NEW+8
Function Call: WRITE	Prompt: !,"Admin Times: ",$P(PSBORD(4),U,9) Line Location: NEW+9
Function Call: WRITE	Prompt: !,"Start D/T: " Line Location: NEW+10
Function Call: WRITE	Prompt: !,"Stop D/T: " Line Location: NEW+11
Function Call: WRITE	Prompt: !,"-1^Medication is already logged!" Line Location: FILE+1
Function Call: WRITE	Prompt: !,RESULTS(X) Line Location: FILE+2
Function Call: WRITE	Prompt: @IOF,"Medication Log Trouble Shooter",!," # " Line Location: HDR+1
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: HDR+2
Function Call: WRITE	Prompt: ! Line Location: SCANNER+2
Function Call: WRITE	Prompt: !!,"Performing 'Exact Matches' scan of Drug File..." Line Location: SCANNER+5
Function Call: WRITE	Prompt: !!,"Results of Scan:" Line Location: SCANNER+7
Function Call: WRITE	Prompt: $S(+PSBSCAN(0)>0:" Good",1:" Invalid")," scan value." Line Location: SCANNER+8
Function Call: WRITE	Prompt: !!?5,PSBSCAN(X) Line Location: SCANNER+9
Function Call: WRITE	Prompt: !!,"Performing 'Non-Exact Match' scan on the Drug File...",! Line Location: SCANNER+11
Function Call: WRITE	Prompt: !!,"Nothing found in drug file matching '",PSBVAL,"'." Line Location: SCANNER+16
Function Call: WRITE	Prompt: !,"There are ",+^TMP("DILIST",$J,0)," matches to '",PSBVAL,"'." Line Location: SCANNER+17
Function Call: WRITE	Prompt: "." Line Location: SCANNER+25
Routine Call	DIC Line Location: SCANNER+14
Routine Call	DIC Line Location: SMED+2
Routine Call	DIC Line Location: EN+5
Routine Call	DIR Line Location: EN+7 EN1+8 EN1+14 NEW+30 FILE+3 SCANNER+3

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^PSDRUG - [#50]	FIELD^DID, FIND1^DIC, FIND^DIC, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSB(53.79 - [#53.79]	FILE+1
^TMP("DILIST"	SCANNER+12!, SCANNER+16, SCANNER+17, SCANNER+18, SCANNER+20, SCANNER+21, SCANNER+23, SCANNER+26, SCANNER+27!
^TMP("PSB"	EN+2!, EN+25*, EN1+1, EN1+3, EN1+6, EN1+7, EN1+11, EN1+12
^TMP("PSBTMP"	EN+17!, EN1+12*, EN1+15!
^TMP("PSJ"	EN+2!, EN+10!, EN+12, EN+15, EN+16, EN+18, NEW+2!, NEW+4

Name	Line Occurrences
$$HDR	EN1+1, EN1+8
EN	EN+26
EN1	EN+26, EN1+15
FILE	NEW+19, NEW+33
NEW	EN1+15
SCANNER	SCANNER+10, SCANNER+16
SMED	SCANNER+6

Name	Field # of Occurrence
^(	EN1+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+14, NEW+12*
>> %DT	NEW+17, NEW+24
>> %DT("A"	NEW+17, NEW+24
>> %DT("B"	NEW+18, NEW+25
DFN	EN+1~, EN+5*, EN+11, NEW+3, FILE+1, FILE+2
DIC	EN+4*, EN+5!
DIC("A"	EN+4*
DIC(0	EN+4*
DIR	EN+6!, EN1+8!, EN1+14!, NEW+29!, FILE+3!, SCANNER+2!, SCANNER+4!
DIR("A"	EN+6, NEW+29, SCANNER+3*
DIR(0	EN+6, EN1+8, EN1+14, NEW+29, FILE+3, SCANNER+3
IOF	EN+3, NEW+3, HDR+1
IOM	HDR+2
IOSL	EN1+8, EN1+13
PSBCNT	EN+1~, EN1+2, EN1+9, EN1+10, EN1+12, EN1+14
PSBDATA	SMED~, SMED+1*, SMED+2
PSBDT	EN+1~, NEW+18, NEW+25, NEW+31*, NEW+32, FILE+1, FILE+2
PSBERR	EN+1~, EN+13*
PSBFLD	SCANNER+1~, SCANNER+22, SCANNER+23, SCANNER+24, SCANNER+26
PSBFLD("LABEL"	SCANNER+25
PSBMED	EN+1~, EN1+5, EN1+6, EN1+7, EN1+10, EN1+11, EN1+12
PSBNOW	EN+1~, EN+14*
PSBORD	EN+2!, EN+17!, EN+18, NEW+4!
PSBORD(0	EN+22, EN+23, EN+25, NEW+5, FILE+1, FILE+2
PSBORD(1	EN+19, EN+21, EN+25
PSBORD(2	NEW+6, NEW+7
PSBORD(3	EN+25
PSBORD(4	NEW+8, NEW+9, NEW+16, NEW+23, NEW+26
PSBREC	EN+2!, NEW+1~
PSBSCAN	SCANNER+1~, SCANNER+6!
PSBSCAN(	SCANNER+9
PSBSCAN(0	SCANNER+8, SCANNER+10
PSBSCHD	EN+1~, EN+19, EN+20, EN+21, EN+25, EN1+2, EN1+3, EN1+6, EN1+7, EN1+8 , EN1+10, EN1+11, EN1+12
PSBVAL	SCANNER+1~, SCANNER+4*, SCANNER+14, SCANNER+16, SCANNER+17
PSBVDT	EN+1~, EN+8*, EN+11
PSBX	EN+15, EN+16, EN+18, EN+25, EN1+7, EN1+11, EN1+12, SCANNER+1~, SCANNER+18*, SCANNER+19 , SCANNER+20, SCANNER+21, SCANNER+23, SCANNER+26
RESULTS	NEW+2!, FILE+2, SMED~
RESULTS(	FILE+2
RESULTS(0	SMED+3, SMED+4
U	EN+16, EN+19, EN+21, EN+22, EN+23, EN+25, EN1+11, EN1+12, NEW+5, NEW+6 , NEW+7, NEW+8, NEW+9, NEW+16, NEW+23, NEW+26, FILE+1, FILE+2, SMED+4
>> X	NEW+26, NEW+28, NEW+29, FILE+2, SCANNER+4, SCANNER+6, SCANNER+9, SMED+2*, SMED+3, SMED+4
Y	EN+5, EN+7, EN+8, EN1+8, EN1+15, NEW~, NEW+3, NEW+18, NEW+25, NEW+26 , NEW+27, NEW+28, NEW+30, NEW+32*, SCANNER+3
Y(0	NEW+31
>> Z	NEW+27*, NEW+28

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBMLTS

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: