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 |  Local Variables  | All
Print Page as PDF
Routine: PSGDS

Package: Inpatient Medications

Routine: PSGDS


Information

PSGDS ;BIR/CML3-DISCHARGE ORDERS ;21 JUL 94 / 3:12 PM

Source Information

Source file <PSGDS.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Inpatient Medications 3 EN^PSGDS0  (ENCV,ENKV)^PSGSETU  GWP^PSJPDIR  
VA FileMan 2 D^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Inpatient Medications 4 PSGDS0  PSJU DS  PSJU OR DS  PSJU OR PAT DS  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
DONE ;
G ; get ward group
W ; get ward
P ; get patient
ENOR ;
DTM ;

External References

Name Field # of Occurrence
D^DIQ DTM+1
^DIR PSGDS+7
EN^PSGDS0 PSGDS+8, ENOR+1
ENCV^PSGSETU PSGDS+4, ENOR+1
ENKV^PSGSETU DONE+1
GWP^PSJPDIR PSGDS+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PSGDS+5
Function Call: WRITE
  • Prompt: !!?2,"If a ",N," date is entered, a discharge summary will print for only those",!,"patients that have at least one active order with a ",$S(N["A":"STOP",1:"START")," DATE on or ",$S(N["A":"after",1:"before"),!,"the ",N," date entered."
  • Line Location: DTM+2
Function Call: WRITE
  • Prompt: !?2,"Entry is not required. If neither date is entered, all patients with active",!,"orders will print (for the ward(s) chosen). Enter an up-arrow (^) to exit."
  • Line Location: DTM+3
Function Call: WRITE
  • Prompt: !?2,"If you wish to enter a ",$S(N["A":"start",1:"stop")," date of ",Y,", you must enter a TIME of day",!,"of ",T," or greater. Any date after ",Y," does not need time entered.",!
  • Line Location: DTM+4
Routine Call
  • DIR
  • Line Location:
    • PSGDS+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("PSGDS" PSGDS+7!, DONE+2!

Label References

Name Line Occurrences
@( PSGDS+8
DONE ENOR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT(0 DTM+1
CA DONE+1!
CML DONE+1!
CNTR DONE+1!
DDRG DONE+2!
DF DONE+2!
DIAG DONE+1!
DIR PSGDS+7!
DIR("?" PSGDS+6*
DIR("A" PSGDS+5*
DIR("B" PSGDS+5*
DIR(0 PSGDS+5*
DO DONE+2!
DRG DONE+2!
ELIG DONE+1!
FD DONE+2!
I1 DONE+1!
I2 DONE+1!
I3 DONE+1!
LQ DONE+2!
N DONE+1!, DTM+2, DTM+4
NC DONE+2!
ND DONE+2!
ND2 DONE+2!
NF DONE+2!
NP DONE+2!
>> ORVP ENOR+1
PAT P+1~*
PN DONE+2!
PPAGE PSGDS+2~, PSGDS+8*
PSGAP DONE+1!
PSGAPWD PSGDS+8*, DONE+1!, W+1*, ENOR+1*
PSGAPWDN PSGDS+8*, DONE+1!, W+1*, ENOR+1*
PSGAPWG PSGDS+8*, DONE+1!, G+1*, ENOR+1*
PSGAPWGN PSGDS+8*, DONE+1!, G+1*, ENOR+1*
PSGBLANK PSGDS+7*, DONE+1!
PSGDICA DONE+1!, P+2!
>> PSGP PSGDS+8*, P+1, ENOR+1
PSGPAT DONE+1!
PSGPAT( P+1*, ENOR+1*
PSGPTMP PSGDS+2~, PSGDS+8*
PSGSSH PSGDS+8*, DONE+1!
PSJACNWP DONE+2!
PSJJORD DONE+2!
PSJNEW PSGDS+2~*
PSJOPC DONE+2!
PSJSEL PSGDS+8, DONE+1!
PSJSEL("P" P+1
PSJSEL("SELECT" PSGDS+8, ENOR+1*
PSJSEL("W" W+1
PSJSEL("WG" G+1
RB DONE+2!
RTE DONE+2!
SD DONE+2!
SI DONE+2!
SM DONE+2!
ST DONE+2!
STP DONE+2!
STRT DONE+2!
STT DONE+2!
T DONE+1!, DTM+1*, DTM+4
VAEL DONE+2!
>> XQUIT PSGDS+4, ENOR+1
>> Y PSGDS+7, DTM+1*, DTM+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All