Routine: PSBMD

Information

PSBMD ;BIRMINGHAM/EFC - BCMA MISSING DOSE FUNCTIONS ;6/28/10 1:37pm

Source Information

Source file <PSBMD.m>

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
VA Fileman	10	NOW^%DTC ^DDS (MSG,REFRESH)^DDSUTL ($$GET,PUT)^DDSVAL FILE^DICN FIELD^DID FILE^DIE ^DIK ($$GET1,D)^DIQ ^DIR
Barcode Medication Administration	2	(HFSCLOSE,HFSOPEN)^PSBUTL (CLEAN,PSJ1)^PSBVT
Kernel	1	^%ZTLOAD
MailMan	1	^XMD
Registration	1	(DEM,IN5)^VADPT
Toolkit	1	$$GET^XPAR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Barcode Medication Administration	2	PSB MISSING DOSE FOLLOWUP PSB MISSING DOSE REQUEST

Entry Points

Name	Comments	DBIA/ICR reference
FLWUP	; Follow-Up on missing dose
NEW(RESULTS)	; Create a new missing dose request ; Called interactively and via RPCBroker
DQ(PSBMD,PSBMM)	; Dequeue report from Taskman
RPC(RESULTS,PSBDFN,PSBDRUG,PSBDOSE,PSBRSN,PSBADMIN,PSBNEED,PSBUID,PSBON,PSBSCHD)	;
SUBMIT(DA)	; Submit Request to Pharmacy
PAGE(PSBIX)	;
VAL(PSBFLDS)	; Validate that fields in PSBFLDS are filled in
POST	;call from 'Patient' field of screenman form PSB MISSING DOSE REQUEST ;
XQ	; Called via Kernel Menus
OUT	;

External References

Name	Field # of Occurrence
NOW^%DTC	RPC+11, SUBMIT+21, DQ+9, NEW+10
^%ZTLOAD	SUBMIT+26
^DDS	XQ+4, PAGE+13
MSG^DDSUTL	VAL+9
REFRESH^DDSUTL	POST+6
$$GET^DDSVAL	VAL+2
PUT^DDSVAL	POST+4, POST+5
FILE^DICN	NEW+14
FIELD^DID	OUT+1, VAL+6
FILE^DIE	RPC+25, RPC+38
^DIK	XQ+6
$$GET1^DIQ	DQ+13, DQ+14, OUT+3, OUT+5, FLWUP+9, FLWUP+10, FLWUP+11, FLWUP+12, FLWUP+15, FLWUP+16 , FLWUP+17
D^DIQ	DQ+9
^DIR	XQ+3, PAGE+6
HFSCLOSE^PSBUTL	SUBMIT+35
HFSOPEN^PSBUTL	SUBMIT+33
CLEAN^PSBVT	RPC+42
PSJ1^PSBVT	RPC+28, RPC+29, RPC+35
DEM^VADPT	OUT+5
IN5^VADPT	RPC+24, POST+3
^XMD	SUBMIT+38
$$GET^XPAR	SUBMIT+7, SUBMIT+8, SUBMIT+13, SUBMIT+14, OUT+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Error: ",$P(PSBMD(0),U,2) Line Location: XQ+3
Function Call: WRITE	Prompt: @IOF Line Location: XQ+5
Function Call: WRITE	Prompt: !,"Cancelling Request..." Line Location: XQ+6
Function Call: WRITE	Prompt: "Cancelled!" Line Location: XQ+6
Function Call: WRITE	Prompt: Y Line Location: DQ+9
Function Call: WRITE	Prompt: !?3,"ADDITIVE: ",$$GET1^DIQ(52.6,+^PSB(53.68,PSBMD,.6,X,0),.01) Line Location: DQ+13
Function Call: WRITE	Prompt: !?3,"SOLUTION: ",$$GET1^DIQ(52.7,+^PSB(53.68,PSBMD,.7,X,0),.01) Line Location: DQ+14
Function Call: WRITE	Prompt: !?3,PSBRET("LABEL"),":" Line Location: OUT+2
Function Call: WRITE	Prompt: "." Line Location: OUT+2
Function Call: WRITE	Prompt: $$GET1^DIQ(53.68,PSBMD_",",PSBFLD) Line Location: OUT+3
Function Call: WRITE	Prompt: "." Line Location: OUT+8
Function Call: WRITE	Prompt: "." Line Location: OUT+10
Function Call: WRITE	Prompt: !!,"No Unresolved Missing Dose Requests Found." Line Location: FLWUP+5
Function Call: WRITE	Prompt: !?5,PSBDRUG Line Location: FLWUP+13
Function Call: WRITE	Prompt: !?10,"ADDITIVES: ",$$GET1^DIQ(52.6,+^PSB(53.68,+PSBIEN,.6,X,0),.01) Line Location: FLWUP+16
Function Call: WRITE	Prompt: !?10,"SOLUTIONS: ",$$GET1^DIQ(52.7,+^PSB(53.68,+PSBIEN,.7,X,0),.01) Line Location: FLWUP+17
Function Call: WRITE	Prompt: @IOF,PSBHDR,!,$TR($J("",IOM)," ","-") Line Location: PAGE+10
Function Call: WRITE	Prompt: @IOF,PSBHDR,!,$TR($J("",IOM)," ","-") Line Location: PAGE+15
Routine Call	DDS Line Location: XQ+4 PAGE+13
Routine Call	DIE Line Location: RPC+25 RPC+38
Routine Call	DIR Line Location: XQ+3 PAGE+6

RPC Name	Call Tags
PSB SUBMIT MISSING DOSE	RPC

FileNo	Call Tags
^PS(52.6 - [#52.6]	GET1^DIQ
^PS(52.7 - [#52.7]	GET1^DIQ
^PSB(53.68 - [#53.68]	Classic Fileman Calls, FIELD^DID, GET1^DIQ, GET^DDSVAL

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	RPC+16, SUBMIT+3
^DPT - [#2]	RPC+16
^PSB(53.68 - [#53.68]	RPC+26, RPC+31, RPC+33, RPC+36, RPC+37, RPC+39, SUBMIT+2, SUBMIT+9, SUBMIT+15, DQ+2 , DQ+3, DQ+4, DQ+5, DQ+13, DQ+14, OUT+12, NEW+7, NEW+10, NEW+15, FLWUP+4 , FLWUP+16, FLWUP+17, PAGE+14
^TMP("PSB"	FLWUP+3!, FLWUP+4, FLWUP+5, FLWUP+8, PAGE+5, PAGE+11, PAGE+14!

Name	Line Occurrences
$$PAGE	FLWUP+18, FLWUP+19
DQ	SUBMIT+34
NEW	RPC+8, XQ+2
OUT	DQ+11, DQ+12
SUBMIT	RPC+40, XQ+7

Name	Field # of Occurrence
^(	FLWUP+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	RPC+11, SUBMIT+23, DQ+9, NEW+10
D0	NEW+13!
DA	XQ+1~, XQ+4, XQ+7, SUBMIT~, SUBMIT+2, SUBMIT+9, SUBMIT+15, SUBMIT+25, SUBMIT+34, VAL+2 , FLWUP+1~, PAGE+11, POST+4, POST+5
>> DDSERROR	VAL+10*
DDSFILE	XQ+1~, XQ+4, FLWUP+1~, PAGE+11
DFN	RPC+7~, RPC+24, OUT+5~, POST+2~, POST+3*
DIC	NEW+2~, NEW+11*
DIC("DR"	NEW+12*
DIC(0	NEW+11*
>> DIE	POST+4, POST+5
DIK	XQ+1~, XQ+6*
>> DILOCKTM	RPC+26, DQ+3, NEW+7
DIR	FLWUP+1~
DIR("A"	PAGE+3, PAGE+4
DIR(0	XQ+3, PAGE+5
DR	XQ+1~, XQ+4, FLWUP+1~, PAGE+11
>> DTOUT	PAGE+8
DUZ	RPC+13, NEW+4
DUZ("AG"	OUT+7
DUZ(2	RPC+14, NEW+5
>> I	RPC+30, RPC+31, RPC+32, RPC+33, RPC+36, RPC+37
IO	SUBMIT+34
IOF	XQ+5, FLWUP+7, PAGE+10, PAGE+15
IOM	FLWUP+7, PAGE+10, PAGE+15
IOSL	FLWUP+18
PSB	VAL+1~, VAL+2, VAL+4, VAL+6
PSB("LABEL"	VAL+7
PSB("TITLE"	VAL+7
>> PSBAD	RPC+30*
PSBADA	RPC+28!, RPC+29!, RPC+31, RPC+36
PSBADA(	RPC+30*, RPC+31, RPC+36
PSBADMIN	RPC~, RPC+20
>> PSBCFLD	DQ+4*, DQ+11, DQ+12
PSBCX	PAGE+2~, PAGE+11*, PAGE+14
PSBDFN	RPC~, RPC+15, RPC+16, RPC+24, RPC+28, RPC+29, RPC+35
PSBDOSE	RPC~, RPC+18
PSBDRUG	RPC~, RPC+17, RPC+34, FLWUP+1~, FLWUP+12*, FLWUP+13, FLWUP+14
PSBDX	PAGE+2~, PAGE+6*
PSBFDA	RPC+7~
PSBFDA(	RPC+12, RPC+13, RPC+14, RPC+15, RPC+16, RPC+17, RPC+18, RPC+19, RPC+20, RPC+21 , RPC+22, RPC+23, RPC+24, RPC+31, RPC+33, RPC+36, RPC+37*
PSBFLD	DQ+1~, DQ+11, DQ+12, OUT+1, OUT+3, OUT+4, OUT+12, VAL+1~, VAL+2*
PSBFLD(	VAL+2*, VAL+3!, VAL+4
PSBFLDS	VAL~, VAL+2
PSBHDR	FLWUP+1~, FLWUP+6*, FLWUP+7, PAGE+10, PAGE+15
PSBIEN	FLWUP+1~, FLWUP+8*, FLWUP+9, FLWUP+10, FLWUP+11, FLWUP+12, FLWUP+15, FLWUP+16, FLWUP+17
PSBIENS	RPC+7~, RPC+10*, RPC+12, RPC+13, RPC+14, RPC+15, RPC+16, RPC+17, RPC+18, RPC+19 , RPC+20, RPC+21, RPC+22, RPC+23, RPC+24, RPC+26, RPC+31, RPC+33, RPC+36, RPC+37 , RPC+39, RPC+40, RPC+41
PSBIX	PAGE~, PAGE+4, PAGE+5, PAGE+7
PSBMD	RPC+7~, RPC+8, XQ+1~, XQ+2, DQ~, DQ+2, DQ+3, DQ+4, DQ+5, DQ+13 , DQ+14, OUT+3, OUT+5, OUT+12
PSBMD(0	RPC+9, RPC+10, XQ+3, XQ+4
PSBMG	SUBMIT+1~, SUBMIT+7, SUBMIT+8, SUBMIT+9, SUBMIT+31, SUBMIT+32, SUBMIT+36
PSBMM	DQ~, DQ+6
PSBMSG	RPC+7~, VAL+1~, VAL+5, VAL+8, VAL+9
PSBMSG(	VAL+7*
PSBMSG(""	VAL+7
PSBMSG(0	VAL+5*
PSBMSG(1	VAL+5*
PSBMSG(2	VAL+5*
PSBNEED	RPC~, RPC+21
PSBNOW	RPC+7~, RPC+11*, RPC+12
PSBON	RPC~, RPC+28, RPC+35
>> PSBPONX	RPC+29
PSBPRT	SUBMIT+1~, SUBMIT+13, SUBMIT+14, SUBMIT+15, SUBMIT+19, SUBMIT+20, SUBMIT+22
PSBRET	DQ+1~
PSBRET("LABEL"	OUT+2
PSBRSN	RPC~, RPC+19
PSBSAVE	XQ+1~, XQ+6, XQ+7
PSBSCHD	RPC~, RPC+22
>> PSBSOL	RPC+32*
PSBSOLA	RPC+28!, RPC+29!, RPC+33, RPC+37
PSBSOLA(	RPC+32*, RPC+33, RPC+37
PSBUID	RPC~, RPC+23, RPC+27, RPC+29, RPC+30, RPC+32, RPC+34
>> PSBUIDA(	RPC+29, RPC+30, RPC+32
PSBWRD	SUBMIT+1~, SUBMIT+2, SUBMIT+3, SUBMIT+7, SUBMIT+13
PSBX	FLWUP+1~, FLWUP+8, FLWUP+9, FLWUP+18, FLWUP+19, PAGE+5, PAGE+15
RESULTS	RPC~, NEW~, NEW+3!
RESULTS(0	RPC+9, RPC+41, NEW+4, NEW+5, NEW+8, NEW+17, NEW+18*
U	RPC+24, RPC+30, RPC+32, RPC+36, RPC+37, XQ+3, SUBMIT+2, SUBMIT+9, SUBMIT+15, DQ+4 , OUT+12, POST+4, POST+5
VA	OUT+5~
VA("BID"	OUT+11
VADM	OUT+5~
>> VAIP(5	POST+4
>> VAIP(6	RPC+24, POST+5
X	RPC+16, RPC+31, RPC+33, RPC+36, RPC+37, DQ+13, DQ+14, NEW+10, VAL+7, FLWUP+3 , FLWUP+4, FLWUP+16, FLWUP+17, PAGE+2~, PAGE+14, POST+3
X1	PAGE+2~, PAGE+14*
XMSUB	XQ+1~, SUBMIT+37*
XMTEXT	XQ+1~, SUBMIT+36*
XMY	XQ+1~
XMY("G."	SUBMIT+36*
>> Y	DQ+9, NEW+17, NEW+18, FLWUP+2, FLWUP+4, FLWUP+5, FLWUP+8, FLWUP+18, FLWUP+19, PAGE+6 , PAGE+7, PAGE+8, PAGE+9, PAGE+10, PAGE+11, PAGE+12
>> ZTDESC	SUBMIT+24*
>> ZTDTH	SUBMIT+23*
>> ZTIO	SUBMIT+22*
>> ZTREQ	OUT+13*
>> ZTRTN	SUBMIT+25*

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBMD

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: