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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PSGSET

Package: Inpatient Medications

Routine: PSGSET


Information

PSGSET ;BIR/CML3-INPATIENT SIGN-ON ;25 SEP 95 / 1:39 PM

Source Information

Source file <PSGSET.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 (,HOME)^%ZIS  ^%ZISC  
Inpatient Medications 1 (ENCV,ENKV)^PSGSETU  
VA FileMan 1 C^%DTC  

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

Package Total Caller Graph
Inpatient Medications 4 PSGFILED  PSJU FILE  PSJU MGR  ^PS(53.45  
Event Capture 3 ECTD UD STATS  ECTW UD PRVR  ECTW UD SCT  
Interim Management Support 3 ECTD UD STATS  ECTW UD PRVR  ECTW UD SCT  
Auto Replenishment Ward Stock 1 ^PS(59.4  

Entry Points

Name Comments DBIA/ICR reference
DONE ;
BRJCHK ;
ENDLP ;

External References

Name Field # of Occurrence
C^%DTC BRJCHK+1
^%ZIS ENDLP+1
HOME^%ZIS PSGSET+2
^%ZISC ENDLP+2
ENCV^PSGSETU PSGSET+3
ENKV^PSGSETU PSGSET+4, DONE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"(Inpatient Medications - Version "_$P($T(PSGSET+1),";",3)
  • Line Location: PSGSET+2
Function Call: WRITE
  • Prompt: " ",$E(X,4,5),"/",$E(X,6,7),"/",$E(X,2,3),")"
  • Line Location: PSGSET+2
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!," BUT I DON'T KNOW WHO YOU ARE!! (DUZ TROUBLE)"
  • Line Location: PSGSET+4
Function Call: WRITE
  • Prompt: $S(X=3:"PHARMACIST",X=2:"PHARMACY TECHNICIAN",X=1:"NURSE",$P(PSJSYSU,";",2):"PROVIDER",1:"WARD STAFF")
  • Line Location: PSGSET+8
Function Call: WRITE
  • Prompt: " & PROVIDER"
  • Condition for execution: X&$P(PSJSYSU,";",2)
  • Line Location: PSGSET+8
Function Call: WRITE
  • Prompt: ")"
  • Line Location: PSGSET+8
Function Call: WRITE
  • Prompt: $S(X=$E(ION,1,$L(X)):$E(ION,$L(X)+1,$L(ION)),1:" "_ION)
  • Line Location: ENDLP+2
Routine Call
  • %ZIS
  • Line Location:
    • ENDLP+1
Routine Call
  • %ZIS
  • Line Location:
    • PSGSET+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.42 - [#53.42] BRJCHK+1
^PS(59.7 - [#59.7] PSGSET+2
^VA(200 - [#200] PSGSET+4, PSGSET+5, PSGSET+6

Naked Globals

Name Field # of Occurrence
^( PSGSET+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT PSGSET+2!
%ZIS PSGSET+2!, ENDLP+1!*, ENDLP+2!
DT BRJCHK+1
DUZ PSGSET+4, PSGSET+5, PSGSET+6
IO("Q" PSGSET+2!
ION ENDLP+1, ENDLP+2
IOP PSGSET+2!, ENDLP+1*!, ENDLP+2!
>> N PSGSET+5*, PSGSET+6*, PSGSET+7
>> POP ENDLP+1
>> PSGDT PSGSET+7
PSGION ENDLP+1*!, ENDLP+2!
>> PSJSYSU PSGSET+8
X PSGSET+2*, PSGSET+7*, PSGSET+8*, BRJCHK+1, ENDLP+1!, ENDLP+2*
>> X1 BRJCHK+1*
>> X2 BRJCHK+1*
>> XQUIT PSGSET+4*

Marked Items

Name Field # of Occurrence
$T(PSGSET+1 PSGSET+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  Marked Items  | All