Routine: PSBIHS1

Package	Total	Call Graph
VA Fileman	6	(,DD)^%DT (C,NOW)^%DTC (,IX)^DIC WAIT^DICD YN^DICN ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Registration	2	(DEM,PID)^VADPT $$SITE^VASITE

Package	Total	Caller Graph
Barcode Medication Administration	2	PSBIHS MOB DATE PSBIHS MOB TASK

Entry Points

Name	Comments	DBIA/ICR reference
HEAD
ASK1	;GET DIVS.
STOP	;
TAS	;TASK IT OR NOT
NTASK	;NIGHT TASK
NUR	;BLUID ARRAY BY NURS LOCATION
REP	;DISPLAY DATA
STS	;LOOK IN MED FILE FOR DATA...
ASKNUR	;NURSE LOCATION
REP1
Q
ORNUM	;GET CPRS ORDER NUMBER
ASKDN	;ASK NURSE OR DIVISION
ST2	;START AND END DATES
NEW	;ALL PRNS
END
COM	;LOOPS FOR COMMENTS HELD
DIV1	;BLGD ARRAY FOR WARDS IN THE DIV SELEPSBCTED

External References

Name	Field # of Occurrence
^%DT	ST2+3, END+3
DD^%DT	ST2+6, REP+2, REP+3, HEAD+1, REP1+12, COM+6
C^%DTC	END+5, NTASK+1, NTASK+2, REP+2
NOW^%DTC	REP+3
^%ZIS	TAS+2
HOME^%ZIS	TAS+27
^%ZISC	TAS+9
^%ZTLOAD	TAS+26
^DIC	ASKNUR+1
IX^DIC	DIV1+7
WAIT^DICD	TAS+8
YN^DICN	END+8, END+13
^DIR	ASKDN+3
DEM^VADPT	REP1+10
PID^VADPT	REP1+10
$$SITE^VASITE	ASK1+1, NTASK+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You selePSBCTed a 'INAPSBCTIVE' Nurse Unit Please try again! " Line Location: ASKNUR+3
Function Call: WRITE	Prompt: !,"You entered "_Y_" Start Date must be After 'August 1, 2003" Line Location: ST2+6
Function Call: WRITE	Prompt: !,"End Date must be after the start !" Line Location: END+6
Function Call: WRITE	Prompt: !,"Print order details CPRS Med Order Button Yes/No?: " Line Location: END+7
Function Call: WRITE	Prompt: ! Line Location: TAS+2
Function Call: WRITE	Prompt: @IOF Line Location: REP+1
Function Call: WRITE	Prompt: !,?15,"BCMA/EHR Med Order Button From " Line Location: REP+2
Function Call: WRITE	Prompt: Y_" TO " Line Location: REP+2
Function Call: WRITE	Prompt: Y_" TO " Line Location: REP+2
Function Call: WRITE	Prompt: !,?65,"Run Date/Time:"_PSBRT Line Location: REP+3
Function Call: WRITE	Prompt: "-" Line Location: REP+6
Function Call: WRITE	Prompt: !,"NONE FOUND" Line Location: REP+7
Function Call: WRITE	Prompt: "-" Line Location: REP+14
Function Call: WRITE	Prompt: "-" Line Location: REP+19
Function Call: WRITE	Prompt: !,"NONE FOUND" Line Location: REP+20
Function Call: WRITE	Prompt: "-" Line Location: REP+27
Function Call: WRITE	Prompt: "-" Line Location: REP+32
Function Call: WRITE	Prompt: !,"NONE FOUND" Line Location: REP+33
Function Call: WRITE	Prompt: !,PSBNUTN Line Location: REP+36
Function Call: WRITE	Prompt: !,PSBNUTN Line Location: REP+41
Function Call: WRITE	Prompt: "-" Line Location: REP+46
Function Call: WRITE	Prompt: !,"NONE FOUND" Line Location: REP+47
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+0
Function Call: WRITE	Prompt: !,?15,"BCMA/CPRS Interface Entry in BCMA From " Line Location: HEAD+1
Function Call: WRITE	Prompt: Y_" TO " Line Location: HEAD+1
Function Call: WRITE	Prompt: Y_" TO " Line Location: HEAD+1
Function Call: WRITE	Prompt: !,"Nurse Unit: "_PSBWDNU,?65,"Run Date/Time: "_PSBRT Line Location: HEAD+2
Function Call: WRITE	Prompt: !,"NAME",?30,"HRN",?45,"DATE/TIME" Line Location: HEAD+3
Function Call: WRITE	Prompt: !,"NAME",?30,"HRN",?45,"DATE/TIME",?65,"ADMIN BY" Line Location: HEAD+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+5
Function Call: WRITE	Prompt: "-" Line Location: HEAD+5
Function Call: WRITE	Prompt: !,PSBNAME,?30,PSBPID,?40,PSBMT Line Location: REP1+15
Function Call: WRITE	Prompt: !,PSBNAME,?30,PSBPID,?40,PSBMT,?63,PSBNUR,!,?15,"Medication: ",PSBDRUG,?50,"Dosage: ",$P($G(^PSB(53.79,PSBIEN,.1)),"^",5) Line Location: REP1+16
Function Call: WRITE	Prompt: !,?27,$P(^PSB(53.79,PSBIEN,.6,J,0),"^",2)," ",$P(^PSB(53.79,PSBIEN,.6,J,0),"^",3) Line Location: REP1+20
Function Call: WRITE	Prompt: !,?27,$P(^PSB(53.79,PSBIEN,.7,J,0),"^",2)," ",$P(^PSB(53.79,PSBIEN,.7,J,0),"^",3) Line Location: REP1+23
Function Call: WRITE	Prompt: !,?15,"Comments:---------------------------------------------------------" Line Location: COM+2
Function Call: WRITE	Prompt: !,?25,"---------------------------------------------------------" Line Location: COM+9
Function Call: WRITE	Prompt: !,?15,"EHR Order Number: ",PSBORN Line Location: ORNUM+4
Routine Call	%ZIS Line Location: TAS+27
Routine Call	DIC Line Location: ASKNUR+1
Routine Call	DIR Line Location: ASKDN+3
Routine Call	%ZIS Line Location: TAS+2
Routine Call	DIC Line Location: DIV1+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^NURSF(211.4 - [#211.4]	Classic Fileman Calls
^DG(40.8 - [#40.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	REP+9
^DIC(42 - [#42]	NUR+4, DIV1+3, DIV1+11, STS+17
^DPT - [#2]	STS+29
^NURSF(211.4 - [#211.4]	ASKNUR+3, NUR+2, NUR+3, STS+18, STS+19, REP+36, REP+41
^PS(50.7 - [#50.7]	REP1+13
^PS(55 - [#55]	ORNUM+2, ORNUM+3
^PSB(53.79 - [#53.79]	STS+2, STS+3, STS+4, STS+6, STS+8, STS+26, STS+27, STS+29, STS+31, REP1+16 , REP1+18, REP1+20, REP1+21, REP1+23, COM+3, COM+4, COM+5, COM+6, ORNUM+1
^SC - [#44]	STS+19, REP+36, REP+41
^TMP($J	NEW+1!, DIV1+2!, DIV1+3, DIV1+11, DIV1+12!, STS+31, REP1+1, REP1+2, REP1+5, REP1+6 , REP1+7, REP1+9, REP1+12, REP1+13, REP1+14
^VA(200 - [#200]	REP1+14, COM+5

Label References

Name	Line Occurrences
ASK1	ASKDN+7
ASKNUR	ASKDN+6, ASKNUR+3
COM	REP1+24
END	END+6
HEAD	REP1+3, REP1+4, REP1+8
NEW	NTASK+12, TAS+8
ORNUM	REP1+17
REP1	REP+51
ST2	ASKNUR+4, ST2+6
STOP	ASKDN+3, ASKNUR+1, ST2+3, END+4, END+8, END+13, REP+52, REP1+27
TAS	END+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+8, END+10, END+13, END+14, END+15, END+18, DIV1+5!, REP+3, HEAD+6!
%DT	ST2+2, ST2+4!, ST2+7!, END+2, END+3!
%DT("A"	ST2+1, END+1
%ZIS	TAS+1*, TAS+2!
D	DIV1+5!, DIV1+6*, DIV1+9!
DFN	REP1+9*, ORNUM+2, ORNUM+3, STOP+4!
DIC	ASKNUR+1, DIV1+5!, DIV1+6, DIV1+9!, STOP+2!
DIC(0	ASKNUR+1, DIV1+6
DIR	ASKDN+5!, STOP+2!
DIR("A"	ASKDN+2*, ASKDN+5!
DIR(0	ASKDN+1*, ASKDN+5!
DT	NTASK+1, NTASK+2
DUZ("AG"	REP1+11
IO	NTASK+11, TAS+8, TAS+9
IO("Q"	TAS+7, TAS+11, TAS+29!
IO(0	TAS+9
IOF	REP+1, HEAD
IOM	REP+6, REP+14, REP+19, REP+27, REP+32, REP+46, HEAD+5
ION	TAS+25
IOSL	REP1+8
J	REP+6, REP+8, REP+14, REP+19, REP+21, REP+27, REP+32, REP+46, HEAD+5, REP1+1 , REP1+2, REP1+5, REP1+6, REP1+7, REP1+20, REP1+23, STOP+2!
POP	TAS+3, STOP+3!
PSBBC2	STS+1~, STS+24, STS+27, STS+28
PSBBDATE	ST2+4, ST2+5, ST2+6, END+6, NTASK+1, TAS+5!, STS+3, REP+2, HEAD+1, STOP+1!
PSBCNT	NEW+2, STS+25, REP+7, REP+15, REP+16, REP+20, REP+33, REP+47, REP+48, REP+49 , STOP+4!
PSBCNTP	NEW+2*, STOP+4!
PSBCOM	COM+1~, COM+4*, COM+8
PSBCOM1	END+14, END+15, NTASK+5*, REP1+24, STOP+4!
PSBCOMB	COM+1~, COM+5*, COM+7
PSBCOMT	COM+1~, COM+6*, COM+7
PSBCT	STS+1~
PSBCT(	STS+15, STS+25, REP+8, REP+10
PSBCTN	STS+1~
PSBCTN(	STS+16, STS+27, REP+10
PSBCTNLOC	STS+1~, STOP+3!
PSBCTNLOC(	STS+20, STS+25, REP+34, REP+37
PSBCTNLOCP	STOP+4!
PSBCTNLOCP(	STS+22*, REP+42
PSBCTNNLOC	STS+1~, STOP+3!
PSBCTNNLOC(	STS+21, STS+27, REP+37
PSBCTNNLOCP	STOP+4!
PSBCTNNLOCP(	STS+23*, REP+42
PSBDATE	STS+3*, STS+4, STOP+1!
PSBDD	REP+10, REP+11, REP+15, REP+23, REP+24, REP+37, REP+38, REP+42, REP+43, REP+48 , STOP+2!
PSBDFN	STS+2*, STS+3, STS+4, STOP+1!
PSBDIV	DIV1+3, STS+6, STS+7, STS+15, STS+16, STS+25, STS+27, STS+31, REP+8, REP+9 , REP+10, REP1+1, REP1+2, REP1+5, REP1+6, REP1+7, REP1+9, REP1+12, REP1+13, REP1+14 , STOP+2!
PSBDIV1	DIV1+8*, DIV1+11, STOP+3!
PSBDPER	REP+11, REP+12, REP+24, REP+25, REP+38, REP+39, REP+43, REP+44, REP+50*, STOP+1!
PSBDRUG	REP1+13*, REP1+16, STOP+2!
PSBDT	REP+10, REP+11, REP+12, REP+13, REP+23, REP+24, REP+25, REP+26, REP+37, REP+38 , REP+39, REP+40, REP+42, REP+43, REP+44, REP+45, REP+50, STOP+1!
PSBDTN	REP+10, REP+13, REP+23, REP+26, REP+37, REP+40, REP+42, REP+45, STOP+1!
PSBDV	ASK1+2, END+21, NTASK+6, NTASK+9, TAS+5!, STOP+2!
PSBDVV	STOP+3!
PSBDVV(	ASK1+2, NTASK+6, DIV1+4
PSBEDATE	END+1, END+3, END+5, END+6, NTASK+2, TAS+5!, STS+3, REP+2, STOP+1!
PSBF	STOP+3!
PSBH	STS+26*, STS+27, STOP+4!
PSBIEN	DIV1+3, STS+4, STS+6, STS+8, STS+26, STS+27, STS+29, STS+31, REP1+7*, REP1+9 , REP1+12, REP1+13, REP1+14, REP1+16, REP1+18, REP1+20, REP1+21, REP1+23, COM+3, COM+4 , COM+5, COM+6, ORNUM+1, STOP+2!
PSBLEN	STS+1~, STS+11*
PSBLEN1	STS+1~, STS+11*
PSBLN	END+17, END+18, NTASK+3*, HEAD+3, HEAD+4, REP1+15, REP1+16, STOP+2!
PSBLOC	STS+11, STS+13, STS+14, STS+17, STS+25, STS+27, STS+31, REP1+5, REP1+6, REP1+7 , REP1+9, REP1+12, REP1+13, REP1+14, STOP+1!
PSBLOC1	STS+8*, STS+11, STOP+3!
PSBLOC2	STOP+3!
PSBLOC3	STS+10*, STS+11, STOP+1!
PSBMT	REP1+12*, REP1+15, REP1+16, STOP+1!
PSBN	ASKDN+4, ASKDN+6, ASKDN+7, END+19, NTASK+3, NTASK+7, NUR+1, DIV1+1, REP+4, REP+29 , STOP+2!
PSBNAME	STS+29, STS+31, REP1+6, REP1+7, REP1+9, REP1+12, REP1+13, REP1+14, REP1+15, REP1+16 , STOP+1!
PSBNL	ASKNUR+2, ASKNUR+3, END+20, NTASK+8*, NUR+2, NUR+3, STOP+2!
PSBNLOC	STS+19*, STS+20, STS+21, STS+22, STS+23, STS+25, STS+27, STOP+3!
PSBNLOCC	STS+18*, STS+19, STOP+3!
PSBNONE	NEW+2, STS+27, REP+15, REP+16, REP+48, REP+49, STOP+2!
PSBNONEP	NEW+1!, NEW+2*, STOP+4!
PSBNS	STOP+3!
PSBNUM	DIV1+4, DIV1+6, COM+1~, COM+3, COM+4, COM+5, COM+6, STOP+3!
PSBNUR	REP1+14*, REP1+16, STOP+2!
PSBNUT	REP+34*, REP+35, REP+36, REP+37, STOP+3!
PSBNUT1	REP+35*, REP+41, REP+42, STOP+1!
PSBNUTN	REP+36, REP+41, STOP+3!
PSBNWARD	NUR+2*, NUR+3, STOP+2!
PSBNWD	NUR+3*, NUR+4, STOP+2!
PSBNWD(	NUR+4, DIV1+11, STS+10
PSBONU	REP1+3, REP1+4, REP1+26, STOP+3!
PSBORN	ORNUM+1, ORNUM+2, ORNUM+3*, ORNUM+4, STOP+4!
PSBOWD	STOP+2!
PSBPID	REP1+11*, REP1+15, REP1+16, STOP+3!
PSBPSBCTWD	STS+1~, STOP+2!
PSBPSBCTWD(	STS+13, STS+25, REP+21, REP+23
PSBPSBCTWDN	STS+1~, STOP+2!
PSBPSBCTWDN(	STS+14, STS+27, REP+23
PSBREP	END+9*, STOP+3!
PSBREP1	END+11, END+18, NTASK+2*, REP+51, STOP+2!
PSBREPT	REP+2*, HEAD+1, STOP+2!
PSBRT	REP+3*, HEAD+2, STOP+2!
PSBSSN	STOP+1!
PSBSTOP	STS+9, STS+10, STS+11, STS+12, STOP+2!
PSBTPER	REP+15, REP+48, STOP+2!
PSBVISN	END+22, NTASK+10, STOP+2!
PSBWARD	REP+21*, REP+22, REP+23, STOP+2!
PSBWD	STOP+2!, STOP+3!
PSBWDIEN	STOP+3!
PSBWDNU	STS+17, STS+19, STS+30, STS+31, HEAD+2, REP1, REP1+2*, REP1+3, REP1+4, REP1+5 , REP1+6, REP1+7, REP1+9, REP1+12, REP1+13, REP1+14, REP1+26, STOP+3!
PSBWIEN	DIV1+11, STS+17, STS+18, STOP+3!
U	DIV1+3
>> VA("PID"	REP1+11
VISN	TAS+5!
X	ASKDN+3, ASKNUR+1, ST2+3, END!, END+4, END+5, END+8, END+13, NTASK+1, NTASK+2 , DIV1+5!, DIV1+6*, DIV1+9!, REP+2
X1	END+5!, NTASK+1!, NTASK+2!, REP+2
X2	END+5!, NTASK+1!, NTASK+2!, REP+2
Y	ASKDN+4, ASKDN+5!, ASKNUR+1, ASKNUR+2, ASK1+1, ASK1+2, ST2+4!, ST2+6, ST2+7!, END+3! , NTASK+4, NTASK+6, DIV1+5!, DIV1+7, DIV1+8, DIV1+9!, REP+2, REP+3, HEAD+1, REP1+12* , COM+6*
ZTDESC	TAS+12~, TAS+14*
ZTIO	TAS+12~, TAS+25*
ZTRTN	TAS+12~, TAS+13*
ZTSAVE	TAS+12~
ZTSAVE("PSBBDATE"	TAS+15*
ZTSAVE("PSBCOM1"	TAS+24*
ZTSAVE("PSBDV"	TAS+18*
ZTSAVE("PSBDV*"	TAS+23*
ZTSAVE("PSBEDATE"	TAS+16*
ZTSAVE("PSBLN"	TAS+20*
ZTSAVE("PSBN"	TAS+21*
ZTSAVE("PSBNL"	TAS+22*
ZTSAVE("PSBREP1"	TAS+19*
ZTSAVE("PSBVISN"	TAS+17*
ZTSK	TAS+28, TAS+29!

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBIHS1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: