Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSJMEDS

Package: Inpatient Medications

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

External References

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

Interaction Calls

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*

Label References

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

Naked Globals

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All