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

Package: Inpatient Medications

Routine: PSGOEEW


Information

PSGOEEW ;BIR/CML3-SHOW FIELDS FOR EDIT ;15 DEC 97 1:29 PM

Source Information

Source file <PSGOEEW.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ;
EN2 ;
SET ;
ENW ;
ENKILL ;
HILIGHT ;
5 ;;3,46,34
7 ;;4,7,45
8 ;;8,5,80
10 ;;2,46,34
25 ;;3,46,34
26 ;;6,12,56
39 ;;6,9,71
40 ;;
66 ;;9,5,80
101 ;;1,6,74
109 ;;2,6,40

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " ",PSJPWTD,!,"Room-Bed: ",PSJPRB
  • Line Location: ENW+3
Function Call: WRITE
  • Prompt: !,"Order Status: ",PSGSTAT,?37,"Entered By: ",PSGEBN,!,"--------------------------------------------------------------------------------"
  • Line Location: ENW+4
Function Call: WRITE
  • Prompt: !?1,$S($D(PSGEFN(1)):$E(" *",PSGEFN(1)+1)_"(1)",1:" "),?16,"Drug: ",PSGPDN
  • Line Location: ENW+5
Function Call: WRITE
  • Prompt: !?1,$S($D(PSGEFN(2)):$E(" *",PSGEFN(2)+1)_"(2)",1:" "),?6,"Dosage Ordered: ",PSGDO,?46,$S($D(PSGEFN(12)):$E(" *",PSGEFN(12)+1)_"(12)",1:" ")," Start: ",$P(PSGSDN,"^",2)
  • Line Location: ENW+6
Function Call: WRITE
  • Prompt: !?1,$S($D(PSGEFN(3)):$E(" *",PSGEFN(3)+1)_"(3)",1:" "),?11,"Med Route: ",PSGMRN,?46,$S($D(PSGEFN(13)):$E(" *",PSGEFN(13)+1)_"(13)",1:" ")," Stop: ",$P(PSGFDN,"^",2)
  • Line Location: ENW+7
Function Call: WRITE
  • Prompt: !?1,$S($D(PSGEFN(4)):$E(" *",PSGEFN(4)+1)_"(4)",1:" "),?7,"Schedule Type: ",PSGSTN,?46,$S($D(PSGEFN(14)):$E(" *",PSGEFN(14)+1)_"(14)",1:" ")," Self Med: ",$P("NO^YES","^",PSGSM+1)
  • Line Location: ENW+8
Function Call: WRITE
  • Prompt: " (HS)"
  • Line Location: ENW+8
Function Call: WRITE
  • Prompt: !?1,$S($D(PSGEFN(5)):$E(" *",PSGEFN(5)+1)_"(5)",1:" "),?12,"Schedule: ",PSGSCH
  • Line Location: ENW+9
Function Call: WRITE
  • Prompt: !?1,$S($D(PSGEFN(6)):$E(" *",PSGEFN(6)+1)_"(6)",1:" "),?9,"Admin Times: ",PSGAT
  • Line Location: ENW+10
Function Call: WRITE
  • Prompt: !?1,$S($D(PSGEFN(7)):$E(" *",PSGEFN(7)+1)_"(7)",1:" "),?12,"Provider: ",PSGPRN
  • Line Location: ENW+11
Function Call: WRITE
  • Prompt: !?1,$S($D(PSGEFN(8)):$E(" *",PSGEFN(8)+1)_"(8)",1:" ")," Special Instructions: "
  • Line Location: ENW+12
Function Call: WRITE
  • Prompt: !?28
  • Condition for execution: $L(QQ)+$X>79
  • Line Location: ENW+12
Function Call: WRITE
  • Prompt: QQ," "
  • Line Location: ENW+12
Function Call: WRITE
  • Prompt: !!?1,$S($D(PSGEFN(9)):$E(" *",PSGEFN(9)+1)_"(9)",1:" ")," Dispense Drug",?48,"U/D",?60,"Inactive Date",!,"-------------------------------------------------------------------------------"
  • Line Location: ENW+13
Function Call: WRITE
  • Prompt: !?6,D,?48,$S($P(ND,"^",2):$P(ND,"^",2),1:1)
  • Line Location: ENW+16
Function Call: WRITE
  • Prompt: ?60,PSGID
  • Condition for execution: PSGID
  • Line Location: ENW+16
Function Call: WRITE
  • Prompt: !?2
  • Condition for execution: $L(Y2)+$X>79
  • Line Location: ENW+17
Function Call: WRITE
  • Prompt: " ",Y2
  • Line Location: ENW+17
Function Call: WRITE
  • Prompt: !!,$S($D(PSGEFN(11)):$E(" *",PSGEFN(11)+1)_"(11)",1:" ")," Provider Comments:"
  • Line Location: ENW+18
Function Call: WRITE
  • Prompt: !?2,$G(^(Q,0))
  • Line Location: ENW+20
Function Call: WRITE
  • Prompt: !?2,$G(^(6))
  • Line Location: ENW+21
Info |  Source |  Entry Points |  Interaction Calls