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: PSGAMS

Package: Inpatient Medications

Routine: PSGAMS


Information

PSGAMS ;BIR/CML3-AMIS REPORT ;25 AUG 94 / 12:07 PM

Source Information

Source file <PSGAMS.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Inpatient Medications 4 ^PSGAMS0  $$ENDTC^PSGMI  (ENCV,ENKV)^PSGSETU  EN3^PSGTI  
VA FileMan 2 ^%DT  C^%DTC  
Kernel 1 ^%ZISC  

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: 4

Package Total Caller Graph
Inpatient Medications 4 PSGDCT  PSGPRVR  PSGSCT  PSJU AMIS  

Entry Points

Name Comments DBIA/ICR reference
GO ;
DONE ;
ENQ ;
GPR ;
ADD ;
ENDTS ;
DT ;
DTM ;
ENDC ;

External References

Name Field # of Occurrence
^%DT DT+1
C^%DTC ENDTS+2
^%ZISC GO+1
^PSGAMS0 ENQ+2
$$ENDTC^PSGMI ENDTS+2, ENDC+2
ENCV^PSGSETU PSGAMS+3
ENKV^PSGSETU DONE+1
EN3^PSGTI GO+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!?32,"*** WARNING ***",!,"PICK LISTS need to be filed away for the following ward group",$E("s",P>1),", or this AMIS"
  • Line Location: PSGAMS+5
Function Call: WRITE
  • Prompt: !?3,$S($D(^PS(57.5,Q,0)):$P(^(0),"^"),1:Q)
  • Line Location: PSGAMS+6
Function Call: WRITE
  • Prompt: $C(7),!!?10,"*** THERE IS NO DATA FOR THIS REPORT, YET. ***"
  • Line Location: ENDTS+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: !!,"Enter ",D," DATE: "
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: "The start and stop dates may be the same, in effect, a one day report."
  • Line Location: DTM+2
Function Call: WRITE
  • Prompt: " "_$S(X1:" ",1:"")_"The stop"_$S(X1:" ",1:"")_"date may not come before the start date."
  • Condition for execution: D="STOP"
  • Line Location: DTM+3
Function Call: WRITE
  • Prompt: !?2,"Dates are inclusive. (The first date found is "_FIRST_".)"
  • Line Location: DTM+3
Function Call: WRITE
  • Prompt: $C(7),!!?10,"** There is no data for this report, yet. **"
  • Line Location: ENDC+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] ENQ+1
^PS(53.5 - [#53.5] PSGAMS+4
^PS(55 - [#55] ENDTS+1
^PS(57.5 - [#57.5] PSGAMS+6
^PS(57.6 - [#57.6] ENQ+1, GPR+1, ENDTS+1, ENDC+1
^UTILITY("PSG" DONE+1!, ENQ+1!, ADD+1

Label References

Name Line Occurrences
ADD GPR+1
DONE PSGAMS+4
DT ENDTS+2
DTM DT+1
ENDTS PSGAMS+4
ENQ GO+1
GPR ENQ+1

Naked Globals

Name Field # of Occurrence
^( PSGAMS+4, GPR+1, ADD+1*
^(0 PSGAMS+6, ENQ+1, GPR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT ENDTS+2!*, ENDTS+3!
%DT(0 ENDTS+2*
>> D ENDTS+2*, DT+1, DTM+1, DTM+2, DTM+3
DRG DONE+1!, GPR+1*
DTIME DT+1
FD PSGAMS+4, DONE+1!, ENQ+1, ENDTS+1*, ENDTS+2*
FIRST ENDTS+2*, ENDTS+3!, DTM+3, ENDC+2*
HLP PSGAMS+4*, DONE+1!, ENDTS+1, DT+1, DTM+1, DTM+2
IO GO+1
IO("Q" GO+1
IO(0 GO+1
IOST GO+1
ND DONE+1!, GPR+1*, ADD+1
NU DONE+1!, ADD+1*
P PSGAMS+4!*, PSGAMS+5, DONE+1!
P( PSGAMS+4*, PSGAMS+6
>> POP GO+1
PR DONE+1!, GPR+1*
>> PSGID ENDTS+1*, ENDTS+2, ENDC+1*, ENDC+2
>> Q PSGAMS+4*, PSGAMS+6*
>> QQ PSGAMS+4*
RTN GO+1*, DONE+1!
SD PSGAMS+4, DONE+1!, ENQ+1, ENDTS+1*, ENDTS+2*
ST DONE+1!, ENQ+1*, GPR+1
STOP DONE+1!, ENDTS+2*
STRT DONE+1!, ENDTS+2*
W DONE+1!, ENQ+1*, GPR+1
WN DONE+1!, ENQ+1*, ADD+1
>> X ENDTS+2*, DT+1*
>> X1 ENDTS+2*, DTM+1*, DTM+2, DTM+3
>> X2 ENDTS+2*, DTM+1*, DTM+2
>> XQUIT PSGAMS+3
>> Y ENDTS+2, DT+1*
ZTOUT DONE+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All