Routine: PSBPRND

Name	Comments	DBIA/ICR reference
HEADER	;Header
PROCESS(PSBPRNDT,PSBSTRTE,PSBDUZ,PSBPRNM)
ENV(PSBPRNDT,PSBSTRT,PSBDUZ,PRNMSG)	;
PSBPRNS	;Document all administrations of a PRN order that have NOT had ; the PRN Effectiveness documented for dates user provided
PSBEMAIL(PSB1,PSB2,PSB3,PSB4,PSB5)
FILEIT(PSBIEN,PSBPRNM)

Name	Field # of Occurrence
^%DT	PSBPRNS+10, PSBPRNS+15
DD^%DT	PSBPRNS+23, PSBPRNS+24, PSBEMAIL+7, PSBEMAIL+8
^%ZTLOAD	ENV+8
D^DIQ	PSBPRNS+11, PSBPRNS+16
FILEIT^PSBML	FILEIT+5
VAL^PSBML	FILEIT+4
^XMD	PSBEMAIL+28

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Your DUZ is not defined. It must be defined." Line Location: ENV+1
Function Call: WRITE	Prompt: !! Line Location: ENV+3
Function Call: WRITE	Prompt: !,"Your DUZ is not defined. It must be defined." Line Location: PSBPRNS+4
Function Call: WRITE	Prompt: ! Line Location: PSBPRNS+10
Function Call: WRITE	Prompt: ! Line Location: PSBPRNS+15
Function Call: WRITE	Prompt: !,"Start date cannot be greater than end date" Line Location: PSBPRNS+17
Function Call: WRITE	Prompt: !!,"PRN effectiveness entered by: ",PSBNAME,! Line Location: PSBPRNS+20
Function Call: WRITE	Prompt: !!!,?10,"PRN DOCUMENTATION WILL BE FILED FOR THE FOLLOWING" Line Location: PSBPRNS+25
Function Call: WRITE	Prompt: !!,?5,"PRN START DATE...........: ",PSBRDTA Line Location: PSBPRNS+26
Function Call: WRITE	Prompt: !,?5,"PRN END DATE.............: ",PSBRDT Line Location: PSBPRNS+27
Function Call: WRITE	Prompt: !,?5,"PRN ENTERED BY...........: ",PSBNAME Line Location: PSBPRNS+28
Function Call: WRITE	Prompt: !,?5,"PRN DOCUMENTATION STATEMENT: " Line Location: PSBPRNS+29
Function Call: WRITE	Prompt: # Line Location: HEADER+1
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: HEADER+2
Function Call: WRITE	Prompt: !,?23,"PRN EFFECTIVENESS DOCUMENTATION ROUTINE" Line Location: HEADER+3
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: HEADER+4

Name	Line Occurrences (* Changed, ! Killed)
^PSB(53.79 - [#53.79]	PROCESS+5, PROCESS+6, PROCESS+8, PROCESS+9, PROCESS+10
^VA(200 - [#200]	PSBPRNS+19, PSBEMAIL+9

Name	Line Occurrences
ENV	PSBPRNS+40
FILEIT	PROCESS+11
HEADER	PSBPRNS+6, PSBPRNS+21, PSBPRNS+39
PSBEMAIL	PROCESS+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	PSBPRNS+8, PSBPRNS+13
>> %DT("A"	PSBPRNS+8, PSBPRNS+13
>> %DT("B"	PSBPRNS+9, PSBPRNS+14
>> DFN	PROCESS+5*, PROCESS+6, PROCESS+8
DUZ	ENV+1, PSBPRNS+4, PSBPRNS+5, PSBEMAIL+10, PSBEMAIL+27
IOM	HEADER+2, HEADER+4
PRNMSG	ENV~
PSB1	PSBEMAIL~, PSBEMAIL+16, PSBEMAIL+29!
PSB2	PSBEMAIL~, PSBEMAIL+19, PSBEMAIL+29!
PSB3	PSBEMAIL~, PSBEMAIL+7, PSBEMAIL+29!
PSB3X	PSBEMAIL+7*, PSBEMAIL+18, PSBEMAIL+29!
PSB4	PSBEMAIL~, PSBEMAIL+8, PSBEMAIL+29!
PSB4X	PSBEMAIL+8*, PSBEMAIL+17, PSBEMAIL+29!
PSB5	PSBEMAIL~, PSBEMAIL+9*, PSBEMAIL+15, PSBEMAIL+29!
>> PSBANS	PSBPRNS+34*, PSBPRNS+36
PSBCNT	PROCESS+4, PROCESS+13, PROCESS+15, PROCESS+16!
>> PSBDT	PSBPRNS+10*, PSBPRNS+11
PSBDTA	PSBPRNS+15*, PSBPRNS+16, PSBPRNS+23, PROCESS+16!
PSBDUZ	ENV~, PSBPRNS+5*, PSBPRNS+19, PSBPRNS+40, PROCESS~, PROCESS+15, PROCESS+16!
>> PSBFLAG	PSBPRNS+35, PSBPRNS+36, PSBPRNS+37
PSBIEN	PSBPRNS+3~, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11, FILEIT~, FILEIT+3, FILEIT+4
PSBMG	PSBEMAIL+10*, PSBEMAIL+11, PSBEMAIL+30!
PSBMSG	PSBEMAIL+30!
PSBMSG(1	PSBEMAIL+12*
PSBMSG(10	PSBEMAIL+21*
PSBMSG(11	PSBEMAIL+22*
PSBMSG(12	PSBEMAIL+23*
PSBMSG(13	PSBEMAIL+24*
PSBMSG(14	PSBEMAIL+25*
PSBMSG(15	PSBEMAIL+26*
PSBMSG(2	PSBEMAIL+13*
PSBMSG(3	PSBEMAIL+14*
PSBMSG(4	PSBEMAIL+15*
PSBMSG(5	PSBEMAIL+16*
PSBMSG(6	PSBEMAIL+17*
PSBMSG(7	PSBEMAIL+18*
PSBMSG(8	PSBEMAIL+19*
PSBMSG(9	PSBEMAIL+20*
>> PSBNAME	PSBPRNS+19*, PSBPRNS+20, PSBPRNS+28
PSBPRMG	PROCESS+16!
PSBPRNDT	ENV~, PSBPRNS+11*, PSBPRNS+17, PSBPRNS+24, PSBPRNS+40, PROCESS~, PROCESS+3, PROCESS+15, PROCESS+16!
PSBPRNM	PSBPRNS+31*, PSBPRNS+32, PSBPRNS+33, PSBPRNS+40, PROCESS~, PROCESS+11, PROCESS+15, PROCESS+16!, FILEIT~, FILEIT+2
PSBPRTA	PROCESS+3*, PROCESS+7, PROCESS+17!
>> PSBRDT	PSBPRNS+23*, PSBPRNS+27
>> PSBRDTA	PSBPRNS+24*, PSBPRNS+26
>> PSBREC(0	FILEIT+2*, FILEIT+4
PSBSRTD	PROCESS+2*, PROCESS+7, PROCESS+17!
PSBSTRT	ENV~, PROCESS+6*, PROCESS+7, PROCESS+8
PSBSTRTE	PSBPRNS+16*, PSBPRNS+17, PSBPRNS+40, PROCESS~, PROCESS+2, PROCESS+15, PROCESS+16!
U	PROCESS+9, PROCESS+10
XMSUB	PSBEMAIL+27*, PSBEMAIL+30!
XMTEXT	PSBEMAIL+27*, PSBEMAIL+30!
XMY	PSBEMAIL+30!
XMY(	PSBEMAIL+27*
>> Y	PSBPRNS+10, PSBPRNS+15, PSBPRNS+23, PSBPRNS+24, PSBEMAIL+7, PSBEMAIL+8
>> ZTDESC	ENV+2*
>> ZTIO	ENV+2*
>> ZTRTN	ENV+2*
ZTSAVE	ENV+2!
ZTSAVE("PSBDUZ"	ENV+6*
ZTSAVE("PSBPRNDT"	ENV+4*
ZTSAVE("PSBPRNM"	ENV+7*
ZTSAVE("PSBSTRTE"	ENV+5*
ZTSK	ENV+2!, ENV+9, ENV+10, ENV+11

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBPRND

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: