Routine: PSJMEDS

Information

PSJMEDS ;BIR/MV-FIND PATIENT INFO FOR SPECIFIC WARD ;07 Jul 98 / 4:05 PM

Source Information

Source file <PSJMEDS.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Inpatient Medications	5	$$ENPDN^PSGMI ^PSJAC ^PSJMIV ^PSJMPEND ^PSJPL0

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Inpatient Medications	1	PSJMDWS

Entry Points

Name	Comments	DBIA/ICR reference
WARDGP	;*** Find wards within a ward group
G	;*** Goto W to set up ^TMP when print by WARD/WARD GROUP
ADMIN	;
ALLTM	;*** Get UNIT DOSE information from ^PS(55
P	;*** Set up ^TMP for sort by patients
MEDTYPE	;
W	;*** Set up ^TMP when listing by ward
TEAM	;*** Look up selected team. PSGTMALL= All teams were selected.
WARD	;*** Go through each patient within a given WARD
UDOSE	;
LOOP(XTYPE)	;*** Loop through stop date cross ref. to find unit dose nodes

Name	Field # of Occurrence
$$ENPDN^PSGMI	UDOSE+6
^PSJAC	WARDGP+6, WARDGP+8, WARD+4
^PSJMIV	LOOP+3, LOOP+4, LOOP+5
^PSJMPEND	MEDTYPE+4
^PSJPL0	ADMIN+1

Name	Line Occurrences
Function Call: WRITE	Prompt: to Line Location: G+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	WARDGP+1
^DPT("CN"	WARD+4
^PS(51.2 - [#51.2]	UDOSE+7
^PS(55 - [#55]	WARDGP+5, WARDGP+6, WARDGP+7, WARDGP+8, LOOP+1, LOOP+2, UDOSE+2, UDOSE+3, UDOSE+6, UDOSE+11
^PS(57.5 - [#57.5]	WARDGP+1
^PS(57.7 - [#57.7]	TEAM+5, ALLTM+2
^TMP($J	P+2, P+3, P+4, W+1, W+2, W+3, W+4, W+5

Name	Line Occurrences
@(	UDOSE+14, ADMIN+2, ADMIN+3
ADMIN	UDOSE+13
ALLTM	TEAM+3
LOOP	MEDTYPE+2, MEDTYPE+3
MEDTYPE	WARDGP+6, WARDGP+8, WARD+4, TEAM+3, TEAM+4, TEAM+5
TEAM	WARD+4
UDOSE	LOOP+2
WARD	WARDGP+1

Name	Field # of Occurrence
^(0	WARDGP+1, ALLTM+2, UDOSE+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADMIN	ADMIN+3*
>> CLINIC	WARDGP+5, WARDGP+6, WARDGP+7, WARDGP+8
>> DRG	UDOSE+6*, P+2, W+1, W+2, W+3
>> JDFN	WARDGP+6, WARDGP+8
>> ON	LOOP+2*, UDOSE+2, UDOSE+3, UDOSE+6, UDOSE+11, ADMIN+1, P+2, P+3, P+4, W+1 , W+2, W+3, W+4, W+5
>> PPN	WARDGP+6, WARDGP+8, WARD+4*, P+2, W+1, W+2, W+3
>> PSGEXPDT	LOOP+1*, LOOP+2
>> PSGLFD	UDOSE+9*, P+3, W+4
>> PSGLOD	UDOSE+9*, P+3, W+4
>> PSGLSD	UDOSE+9*, P+3, W+4
>> PSGMAR(	ADMIN+3
>> PSGMFOR	ADMIN+1*
>> PSGMTYPE	MEDTYPE+2, MEDTYPE+3
>> PSGP	WARDGP+6, WARDGP+8, WARD+4*, LOOP+1, LOOP+2, UDOSE+2, UDOSE+3, UDOSE+6, UDOSE+11, P+2 , P+3, P+4, W+1, W+2, W+3, W+4, W+5
>> PSGP(0	WARDGP+6, WARDGP+8, WARD+4
>> PSGPLF	UDOSE+3
>> PSGPLO	ADMIN+1*
>> PSGPLS	LOOP+1
>> PSGRBADM	W+1, W+2, W+3
>> PSGSS	WARDGP+4*, WARD+4, UDOSE+14, ADMIN+2, ADMIN+3
>> PSGTM	TEAM+4, TEAM+5
>> PSGTM(	TEAM+5
>> PSGTMALL	TEAM+3, TEAM+5
>> PSGWD	WARDGP+1*, TEAM+5, ALLTM+2
>> PSGWG	WARDGP+1, WARDGP+2
>> PSGWN	WARDGP+1*, WARD+4, W+1, W+2, W+3
>> PSJACNWP	WARDGP+4, WARD+3
>> PSJADT	UDOSE+14, ADMIN+2, ADMIN+3*, P+2, W+1, W+2, W+3
>> PSJATME	UDOSE+14, ADMIN+2, ADMIN+3*, P+2, W+1, W+2, W+3
>> PSJDOS	UDOSE+6*, P+3, W+4
>> PSJHOLD	UDOSE+12*, P+3, W+4
>> PSJMPRN	UDOSE+10
>> PSJMR	UDOSE+7*, P+3, W+4
>> PSJPLC	ADMIN+2
>> PSJPPID	P+2, W+1, W+2, W+3
>> PSJPRB	TEAM+5, ALLTM+2, MEDTYPE+1*, P+2, W+1, W+2, W+3
>> PSJPWDN	P+2
>> PSJSCHE	UDOSE+8*, P+3, W+4
>> PSJSI	UDOSE+11*, P+4, W+5
>> PST	LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+5, UDOSE+8, P+1
QST	UDOSE+8, UDOSE+10, UDOSE+13, UDOSE+14, P+1~, P+2, P+3, P+4, W+1, W+2 , W+3, W+4, W+5
>> RBNO	TEAM+5*
STDTE	WARDGP+3~, WARDGP+5, WARDGP+6, WARDGP+7, WARDGP+8
>> TM	WARDGP+1, TEAM+2, TEAM+5, ALLTM+2, W+1, W+2, W+3
>> TMNO	TEAM+5*
U	WARDGP+1, ALLTM+2, UDOSE+2, UDOSE+3, UDOSE+6, UDOSE+7, UDOSE+8, UDOSE+9, UDOSE+11, UDOSE+12 , P+2, P+3, W+1, W+2, W+3, W+4
>> UD0	UDOSE+2*, UDOSE+7, UDOSE+9, UDOSE+11, UDOSE+12
>> UD2	UDOSE+3*, UDOSE+8, UDOSE+9
XTYPE	MEDTYPE+2, MEDTYPE+3, LOOP~, LOOP+1, LOOP+3, LOOP+4, LOOP+5

Customize PDF page

Package: Inpatient Medications

Routine: PSJMEDS

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

Naked Globals

Local Variables

Legend: