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

Package: Inpatient Medications

Routine: PSJOEEW


Information

PSJOEEW ;BIR/CML3-SHOW INPATIENT FIELDS FOR EDIT ;17 SEP 97 / 1:41 PM

Source Information

Source file <PSJOEEW.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ;
EN2 ;
SET ;
EN3 ;
ENW ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " ",PSJPWTD,!,"Room-Bed: ",PSJPRB
  • Line Location: ENW+3
Function Call: WRITE
  • Prompt: !?5,"Entered: ",PSGLID," By: ",PSGEBN,!,"Order Status: ",PSGSTAT,!,"--------------------------------------------------------------------------------"
  • Line Location: ENW+4
Function Call: WRITE
  • Prompt: !?1,$S(Q:" ",$D(PSGEFN(1)):$E(" *",PSGEFN(1)+1)_"(1)",1:" "),?19,"Drug: ",PSGPDN
  • Line Location: ENW+5
Function Call: WRITE
  • Prompt: !?1,$S(Q:" ",$D(PSGEFN(2)):$E(" *",PSGEFN(2)+1)_"(2)",1:" "),?9,"Dosage Ordered: ",PSGDO
  • Line Location: ENW+6
Function Call: WRITE
  • Prompt: !?1,$S(Q:" ",$D(PSGEFN(3)):$E(" *",PSGEFN(3)+1)_"(3)",1:" "),?14,"Med Route: ",PSGMRN
  • Line Location: ENW+7
Function Call: WRITE
  • Prompt: !?1,$S(Q:" ",$D(PSGEFN(4)):$E(" *",PSGEFN(4)+1)_"(4)",1:" "),?15,"Schedule: ",PSGSCH
  • Line Location: ENW+8
Function Call: WRITE
  • Prompt: !?1,$S(Q:"(1)",$D(PSGEFN(5)):$E(" *",PSGEFN(5)+1)_"(5)",1:" "),?15,"Provider: ",PSGPRN
  • Line Location: ENW+9
Function Call: WRITE
  • Prompt: !?7
  • Condition for execution: $L(Y2)+$X>79
  • Line Location: ENW+10
Function Call: WRITE
  • Prompt: " ",Y2
  • Line Location: ENW+10
Info |  Source |  Entry Points |  Interaction Calls