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

Package: Inpatient Medications

Routine: PSGOEM


Information

PSGOEM ;BIR/CML3-PSGOE MESSAGES ;26 NOV 97 / 8:28 AM

Source Information

Source file <PSGOEM.m>

Entry Points

Name Comments DBIA/ICR reference
ENVM ;
ENCAM ;
ENCOM ;
ENDC ;
ENUMK ;
ENHLP(F1,F2) ; order entry fields' help
; Input: F1 - File #
; F2 - Field #
SC ;
ENFF ; up-arrow to another field
ENAH ; help text for "ACTION" prompt
DURHLP(PSGSTR,PSGRF) ; Help text for Duration of Administration *315 drp
2 ;TYPE 2 OI
3 ;TYPE 3 OI

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter a 'Y' (or press the RETURN key) to ",$S(PSJSYSU:"",1:"mark for "),"discontinu",$S(PSJSYSU:"e",1:"ation")," all of this"
  • Line Location: ENCAM+1
Function Call: WRITE
  • Prompt: "orders. Enter an 'N' (or '^') to leave this option now."
  • Line Location: ENCAM+2
Function Call: WRITE
  • Prompt: !!,"Enter a 'Y' to ",$S(CF:"discontinue this order",1:"mark this order for discontinuation"),". Press the RETURN key (or"
  • Line Location: ENCOM+1
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: 'CF ! W:CF " " W "enter an 'N'" W:CF ! W:'CF
  • Line Location: ENCOM+1
Function Call: WRITE
  • Prompt: "or '^') to leave this option now."
  • Line Location: ENCOM+1
Function Call: WRITE
  • Prompt: !!,"You must enter 'DC' to discontinue the order or leave blank and press return to continue without discontinuing the order."
  • Line Location: ENDC+1
Function Call: WRITE
  • Prompt: " BEEN 'MARKED FOR DISCONTINUATION'."
  • Line Location: ENUMK+1
Function Call: WRITE
  • Prompt: !,"DO YOU WANT TO 'UNMARK' ",$S($D(PSGORD):"IT",1:"THEM")
  • Line Location: ENUMK+2
Function Call: WRITE
  • Prompt: !!?2,"Enter 'Y' to UNMARK "_$S($D(PSGORD):"this order",1:"these orders")_". Enter 'N' to leave the order"_$E("s",$D(PSGORD)[0)_" MARKED AS IS.",!
  • Line Location: ENUMK+2
Function Call: WRITE
  • Prompt: !?5
  • Line Location: ENHLP+4
Function Call: WRITE
  • Prompt: !?5
  • Condition for execution: $L(F3)+$X>78
  • Line Location: ENHLP+4
Function Call: WRITE
  • Prompt: F3_" "
  • Line Location: ENHLP+4
Function Call: WRITE
  • Prompt: !?5
  • Line Location: ENHLP+7
Function Call: WRITE
  • Prompt: !?5
  • Condition for execution: $L(F3)+$X>78
  • Line Location: ENHLP+7
Function Call: WRITE
  • Prompt: F3_" "
  • Line Location: ENHLP+7
Function Call: WRITE
  • Prompt: !?2,PSJD("DESCRIPTION",F)
  • Line Location: ENHLP+14
Function Call: WRITE
  • Prompt: !?2,^(0)
  • Line Location: ENHLP+15
Function Call: WRITE
  • Prompt: !?5,"CHOOSE FROM:",!?7,"W",?16,"WRITTEN",!?7,"P",?16,"TELEPHONE",!?7,"V",?16,"VERBAL",!
  • Line Location: ENHLP+16
Function Call: WRITE
  • Prompt: !?2,^(0)
  • Line Location: ENHLP+18
Function Call: WRITE
  • Prompt: !?2,^(0),"RB.."
  • Line Location: ENHLP+19
Function Call: WRITE
  • Prompt: !?5,"CHOOSE FROM:",!?7,"W",?16,"WRITTEN",!?7,"P",?16,"TELEPHONE",!?7,"V",?16,"VERBAL",!
  • Line Location: ENHLP+20
Function Call: WRITE
  • Prompt: !,"CHOOSE FROM:",!?8,0,?16,"NO",!?8,1,?16,"YES"
  • Line Location: SC+1
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: ENFF+1
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: X="^301"
  • Line Location: ENFF+2
Function Call: WRITE
  • Prompt: $P("^DOSAGE ORDERED",X,2)
  • Line Location: ENFF+2
Function Call: WRITE
  • Prompt: !!,"YOU MAY SELECT:"
  • Line Location: ENAH+1
Function Call: WRITE
  • Prompt: !?5,"H to ",$S(HF:"place this order on",1:"take this order off of")," hold."
  • Line Location: ENAH+6
Function Call: WRITE
  • Prompt: !!,"You may also select:"
  • Line Location: ENAH+12
Function Call: WRITE
  • Prompt: !?5,"C to copy (duplicate) this order into a new, non-verified order."
  • Line Location: ENAH+12
Function Call: WRITE
  • Prompt: !?5,"P to print this order to a device.",!?5,"S to show this order again."
  • Line Location: ENAH+13
Function Call: WRITE
  • Prompt: !!,"PLEASE NOTE: This order is automatically verified, and unless discontinued",!?13,"now, will show as active."
  • Line Location: ENAH+14
Function Call: WRITE
  • Prompt: !!,"Enter the number of hours the medication will remain on the patient in the"
  • Line Location: DURHLP+4
Function Call: WRITE
  • Prompt: !,"Duration of Administration field. The BCMA user will be prompted to remove the"
  • Line Location: DURHLP+5
Function Call: WRITE
  • Prompt: !,"medication after the Duration of Administration period."
  • Line Location: DURHLP+6
Function Call: WRITE
  • Prompt: !!,"The Duration of Administration cannot match or exceed the order frequency"
  • Line Location: DURHLP+7
Function Call: WRITE
  • Prompt: !,"(the period of time between two Admin Times) except for BID, TID and QID schedules."
  • Line Location: DURHLP+8
Function Call: WRITE
  • Prompt: !,"The Duration of Administration is the period of time the medication remains on"
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: !,"the patient before removal. If this medication order requires a drug-free period"
  • Line Location: 2+2
Function Call: WRITE
  • Prompt: !,"prior to the next administration, enter a Duration of Administration here."
  • Line Location: 2+3
Function Call: WRITE
  • Prompt: !!,"If this medication order does not require a drug-free period prior to the next"
  • Line Location: 2+4
Function Call: WRITE
  • Prompt: !,"administration, this field should be left blank."
  • Line Location: 2+5
Info |  Source |  Entry Points |  Interaction Calls