Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls