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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSGEUDD

Package: Inpatient Medications

Routine: PSGEUDD


Information

PSGEUDD ;BIR/MV-EXTRA UNITS DISPENSED REPORT ;14 JAN 97 / 9:22 AM

Source Information

Source file <PSGEUDD.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Inpatient Medications 7 ^PSGEUDP  $$ENDDN^PSGMI  ENKV^PSGSETU  ^PSJAC  ($$STDATE,$$STOP)^PSJMDIR  $$GWP^PSJMDIR1  ($$SELDEV,EXIT,SETPRTQ,SETSORTQ)^PSJMUTL  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJU EUDD  

Entry Points

Name Comments DBIA/ICR reference
WARDGP ;*** Find wards within a ward group
C ;***Select by CLINIC
G ;***Select by WARD GROUP
START ;***Start queuing here.
ALLTM ;*** Get UNIT DOSE information from ^PS(55
P ;***Select by Patient
EXIT ;***Exit report here.
TMPWG ;***Set ^TMP global for selected by Ward/Ward Group.
W ;***Select by Ward
TEAM ;*** Look up selected team. PSGTMALL= All teams were selected.
ASK ;***Ask for date range and output device
NEW ;***New needed variables.
WARD ;*** Go through each patient within a given WARD
TMPPT ;***Set ^TMP global for selected by patient.
LOOP ;***Loop thru ^PS(55 on the Dispense log multiple.

External References

Name Field # of Occurrence
^DIR ASK+2
^PSGEUDP START+8
$$ENDDN^PSGMI LOOP+5
ENKV^PSGSETU EXIT+1
^PSJAC P+1, C+4, WARD+3
$$STDATE^PSJMDIR ASK+1
$$STOP^PSJMDIR ASK+2
$$GWP^PSJMDIR1 ASK+3
$$SELDEV^PSJMUTL ASK+4
EXIT^PSJMUTL EXIT+2
SETPRTQ^PSJMUTL START+7
SETSORTQ^PSJMUTL ASK+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] WARDGP+1
^DPT("CN" WARD+3
^PS(55 - [#55] C+3, C+4, LOOP+1, LOOP+3, LOOP+4
^PS(57.5 - [#57.5] WARDGP+1
^PS(57.7 - [#57.7] ALLTM+3
^TMP($J NEW+1!, EXIT+3!, TMPWG+1*, TMPPT+1*

Label References

Name Line Occurrences
@( START+1, LOOP+5
ALLTM TEAM+2, TEAM+4
EXIT ASK+7, START+3
LOOP P+1, C+4, WARD+3, TEAM+2, TEAM+3, TEAM+4
START ASK+13
TEAM WARD+3
WARD W+1, WARDGP+1
WARDGP G+1

Naked Globals

Name Field # of Occurrence
^(0 WARDGP+1, ALLTM+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMT NEW+2~, LOOP+5*, TMPWG+1, TMPPT+1
CLIN C+1~, C+3*, C+4
DIR ASK+2!
DIR("?" ASK+2*
DIR("A" ASK+2*
DIR(0 ASK+2*
DRG NEW+2~, LOOP+5*, TMPWG+1, TMPPT+1
DT C+1~, C+3*, C+4
IO("Q" ASK+5, ASK+7
ND NEW+2~, LOOP+4*, LOOP+5
NO NEW+2~, LOOP+4*
PPN NEW+2~, P+1*, C+4*, WARD+3*, TMPWG+1, TMPPT+1
PSGDT EXIT+3!, LOOP+2*, LOOP+3*, LOOP+4, TMPWG+1, TMPPT+1
PSGEDT ASK+2*, EXIT+3!, C+3, LOOP+3
PSGIO EXIT+3!, START+3
PSGORD EXIT+3!, LOOP+1*, LOOP+3, LOOP+4
PSGP EXIT+3!, P+1*, C+4*, WARD+3*, LOOP+1, LOOP+3, LOOP+4, TMPWG+1, TMPPT+1
PSGP(0 C+4, WARD+3
PSGPAT EXIT+3!
PSGPAT( P+1
PSGSDT ASK+1*, ASK+2, EXIT+3!, C+3, LOOP+2
PSGSS EXIT+3!, START+1, WARD+3, LOOP+5
PSGTM EXIT+3!, TEAM+3
PSGTM( TEAM+4
PSGTMALL EXIT+3!, TEAM+2
PSGWD EXIT+3!, WARDGP+1*, ALLTM+3
PSGWG EXIT+3!, WARDGP+1
PSGWGNM EXIT+3!
PSGWN EXIT+3!, WARDGP+1*, WARD+3, TMPWG+1
PSJACNWP NEW+2~, P+1*, C+2*, WARD+2*
>> PSJPBID TMPWG+1
PSJPPID P+1!, TMPPT+1
PSJPRB P+1!, ALLTM+3, TMPPT+1
>> PSJPWDN TMPPT+1
PSJSTOP EXIT+3!
TM NEW+2~, C+2*, WARDGP+1*, TEAM+1*, TEAM+3*, TEAM+4, ALLTM+2*, ALLTM+3*, TMPWG+1
U WARDGP+1, ALLTM+3, LOOP+5, TMPWG+1, TMPPT+1
WHO NEW+2~, LOOP+5*, TMPWG+1, TMPPT+1
XDESC NEW+2~, ASK+8*, ASK+12, START+4*, START+7
XSAVE NEW+2~, ASK+10*, ASK+12, START+5*, START+7
XTRTN NEW+2~, ASK+11*, ASK+12, START+6*, START+7
>> Y ASK+1, ASK+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All