Routine: PSJP

Information

PSJP ;BIR/CML3-INPATIENT LOOK-UP ; 15 Apr 98 / 9:05 AM

Source Information

Source file <PSJP.m>

Package	Total	Call Graph
Inpatient Medications	4	$$ENDTC^PSGMI HTWT^PSJAC EN^PSJCLOR3 ($$AA,EN)^PSJDPT
VA FileMan	3	NOW^%DTC YN^DICN ^DIR
Kernel	2	(,HOME)^%ZIS ($$FMADD,$$FMDIFF)^XLFDT
Registration	1	(DEM,IN5,INP,PID)^VADPT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 18

Package	Total	Caller Graph
Inpatient Medications	18	PSGL PSGOU PSGP PSGVBW PSGVBWP PSIVACT PSIVPRO PSJCLOR PSJCLOR2 PSJCLOR3 PSJCLOR4 PSJLMHED PSJO PSJO1 PSJOE PSJPADE PSJPDIR PSJPR

Entry Points

Name	Comments	DBIA/ICR reference
ENDPT	; get any patient
CHK	;
CNV	;
WP	; ward parameters
DONE	;
ENCONT	;
CH1	;
CH2	;
CH3	;
RECDCEXP()	;
CLORCHK(PSJPTIEN)	; Return patient does (1) or does not (0) have any clinic orders.

External References

Name	Field # of Occurrence
NOW^%DTC	RECDCEXP+12, CLORCHK+3
^%ZIS	WP+7
HOME^%ZIS	WP+7
YN^DICN	ENCONT+2
^DIR	CNV+2
$$ENDTC^PSGMI	CHK+11, CNV+5
HTWT^PSJAC	CNV+3
EN^PSJCLOR3	CLORCHK+6
$$AA^PSJDPT	CNV+1
EN^PSJDPT	ENDPT+2
DEM^VADPT	CHK+4, CHK+10, CNV+3, CLORCHK+4
IN5^VADPT	CHK+7, CLORCHK+2
INP^VADPT	CHK+3, CLORCHK+2
PID^VADPT	CNV+3
$$FMADD^XLFDT	RECDCEXP+13, CLORCHK+3
$$FMDIFF^XLFDT	RECDCEXP+15

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: ENDPT+1
Function Call: WRITE	Prompt: !!,"Select "_$S($D(PSGDICA):PSGDICA_" ",1:"")_"PATIENT: " Line Location: ENDPT+1
Function Call: WRITE	Prompt: $C(7),!!?3,"PATIENT IS CURRENTLY ADMITTED TO ",$P(VAIN(4),"^",2) Line Location: CHK+5
Function Call: WRITE	Prompt: ! Line Location: CNV+2
Function Call: WRITE	Prompt: " (A 'YES' or 'NO' response is required.)" Line Location: ENCONT+2
Function Call: WRITE	Prompt: !!?2,"The patient selected has never been admitted to this medical facility. You",!,"will be able to enter IV orders for this patient but NOT Unit Dose orders." Line Location: CH1+1
Function Call: WRITE	Prompt: !!?2,"This patient is shown as deceased. You will not be able to enter orders for",!,"this patient." Line Location: CH2+1
Function Call: WRITE	Prompt: !!?2,"This patient is shown to be currently discharged. You will be able to enter",!,"IV orders for this patient but NOT Unit Dose orders." Line Location: CH3+1
Routine Call	DIR Line Location: CNV+2
Routine Call	%ZIS Line Location: WP+7
Routine Call	%ZIS Line Location: WP+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(55 - [#55]	CHK+6
^PS(59.6 - [#59.6]	WP+1, RECDCEXP+8, RECDCEXP+9
^PS(59.7 - [#59.7]	RECDCEXP+10
^TMP("PSJ"	CLORCHK+5!, CLORCHK+6!, CLORCHK+7
^TMP("PSJCLOR"	CLORCHK+5!
^TMP("PSJON"	CLORCHK+5!
^TMP("PSJPRO"	CLORCHK+5!

Label References

Name	Line Occurrences
$$RECDCEXP	WP+4
@(	ENCONT+2
CNV	CHK+6
DONE	ENDPT+1
ENCONT	CHK+8, CHK+12
ENDPT	ENDPT+3, CHK+8, CHK+12, CNV+1

Naked Globals

Name	Field # of Occurrence
^(5.1	CHK+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CHK+8, CHK+12, ENCONT+1, ENCONT+2, ENCONT+3, RECDCEXP+6~, RECDCEXP+13, RECDCEXP+15
>> %Y	ENCONT+2
%ZIS	WP+7!*
C	CLORCHK+1~
DA	DONE+1!
DFN	CHK+3, CNV+1, CNV+3, CLORCHK+1~, CLORCHK+2
DIC	ENDPT+1!, ENDPT+4!, DONE+1!
DIR	CNV+2!
DIR("?"	CNV+2*
DIR("A"	CNV+2*
DIR(0	CNV+2*
DN	CLORCHK+1~
DTIME	ENDPT+1
>> FQ	ENCONT+2*
IO	WP+7
ION	WP+7
>> IOP	WP+6, WP+7
NB	DONE+1!
ND	DONE+1!, CLORCHK+1~
NS	DONE+1!
>> POP	WP+7
>> PSGDICA	ENDPT+1
>> PSGH	ENCONT+1
PSGID	CHK+11*, CHK+12, DONE+1!
PSGOD	CHK+11*, CHK+12, DONE+1!
PSGP	ENDPT+1!, CHK+3, CHK+6, CLORCHK+1~, CLORCHK+2*
PSGP(0	CHK+4, CNV+4, CLORCHK+4*
PSGSS	CLORCHK+1~, CLORCHK+2*
PSJBEG	CLORCHK+1~, CLORCHK+3*
>> PSJCLOR	CHK+5, CHK+8, CHK+12
PSJDCEXP	WP+4, RECDCEXP+6~, RECDCEXP+11, RECDCEXP+13, RECDCEXP+15*, RECDCEXP+16, CLORCHK+1~
PSJEND	CLORCHK+1~, CLORCHK+3*
PSJEXCPT	CHK+2!
>> PSJEXTP	CNV+2
>> PSJH	CHK+12*, ENCONT+2
>> PSJHDATE	CNV+2*
PSJLPDAY	RECDCEXP+6~, RECDCEXP+15*
PSJOCER	CHK+2!
PSJOL	RECDCEXP+15, CLORCHK+1~
PSJOS	CLORCHK+1~
PSJPAD	CHK+6, CHK+13, RECDCEXP+15, CLORCHK+1~, CLORCHK+4*
>> PSJPAGE	CNV+4*
>> PSJPBID	CNV+4, CLORCHK+4
>> PSJPCAF	CHK+6, CHK+7
>> PSJPDD	CHK+5, CHK+6, CHK+8, CHK+12
>> PSJPDOB	CNV+4*
>> PSJPDX	CHK+6, CHK+13
>> PSJPPID	CNV+4*
>> PSJPRB	CHK+6, CHK+13
>> PSJPSEX	CNV+4*
>> PSJPSSN	CNV+4*
>> PSJPTD	CHK+6, CHK+13
PSJPTIEN	CLORCHK~, CLORCHK+2
>> PSJPTS	CHK+6, CHK+13
>> PSJPTSP	CHK+6, CHK+13
>> PSJPWD	CHK+4, CHK+6, CHK+13*, WP+1, RECDCEXP+7
>> PSJPWDN	CHK+4, CHK+6, CHK+13*
PSJSYS	RECDCEXP+6~, RECDCEXP+10*, RECDCEXP+11
>> PSJSYSL	WP+3, WP+5, WP+7
>> PSJSYSP0	WP+6
>> PSJSYSU	WP+3
>> PSJSYSW	WP+1*
>> PSJSYSW0	WP+1*, WP+3, WP+6
PSJWD	RECDCEXP+6~, RECDCEXP+9*, RECDCEXP+11
PSJWD1	RECDCEXP+6~, RECDCEXP+7*, RECDCEXP+8
QFLG	ENDPT+1*, DONE+1!
TMPCLIN	CLORCHK+1~*
U	RECDCEXP+9, RECDCEXP+10, RECDCEXP+16
>> VA("BID"	CNV+4, CLORCHK+4
>> VA("PID"	CNV+4
VA200	CHK+3, DONE+1!, CLORCHK+2
VADM	CLORCHK+1~
VADM(1	CHK+4, CNV+4, CLORCHK+4
VADM(2	CNV+4
VADM(3	CNV+4
VADM(4	CNV+4
VADM(5	CNV+4
VADM(6	CHK+11
VAIN	CLORCHK+1~
VAIN(1	CHK+6
VAIN(2	CHK+6
VAIN(3	CHK+6
VAIN(4	CHK+4, CHK+5, CHK+6, RECDCEXP+7
VAIN(5	CHK+6
VAIN(7	CHK+6
VAIN(9	CHK+6
VAIP	DONE+1!, CLORCHK+1~
VAIP("D"	CHK+7*
VAIP(13	CHK+8, CHK+12, CHK+13, CLORCHK+4
VAIP(3	CHK+11
VAIP(4	CHK+11
VAIP(5	CHK+13
VAIP(6	CHK+13
VAIP(7	CHK+13
VAIP(8	CHK+13
VAIP(9	CHK+13
VAMT	DONE+1!
X	ENDPT+1, CHK+11, CHK+12, CNV+5, WP+3, WP+6, DONE+1!, RECDCEXP+6~, RECDCEXP+8, RECDCEXP+9 , RECDCEXP+13, RECDCEXP+15, RECDCEXP+16, CLORCHK+1~, CLORCHK+3
Y	ENDPT+1!, ENDPT+3, CHK+3, CNV+1, CNV+2, ENCONT+3, CLORCHK+1~, CLORCHK+2
Y(0	DONE+1!

Customize PDF page

Package: Inpatient Medications