Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSGOEM

PSGOEM.m

Go to the documentation of this file. 
  1. PSGOEM ;BIR/CML3-PSGOE MESSAGES ;26 NOV 97 / 8:28 AM 
  1.  ;;5.0;INPATIENT MEDICATIONS ;**81,260,315**;16 DEC 97;Build 73
  1.  ;;Per VHA Directive 2004-038, this routine should not be modified.
  1.  ; Reference to ^DD(53.1 is supported by DBIA# 2256.
  1.  ; Reference to ^PS(55 is supported by DBIA# 2191.
  1.  ;
  1. ENVM ;
  1.  W !!,"  Enter ORDER",$S(PSJON>1:"S (1-"_PSJON,1:" (1"),") you wish to ",$S('$D(PSJPRF):"select.",1:"view.") Q
  1.  ;
  1. ENCAM ;
  1.  W !!,"Enter a 'Y' (or press the RETURN key) to ",$S(PSJSYSU:"",1:"mark for "),"discontinu",$S(PSJSYSU:"e",1:"ation")," all of this"
  1.  W:'PSJSYSU ! W:PSJSYSU " " W "patient's" W:PSJSYSU ! W:'PSJSYSU " " W "orders.  Enter an 'N' (or '^') to leave this option now." Q
  1.  ;
  1. ENCOM ;
  1.  W !!,"Enter a 'Y' to ",$S(CF:"discontinue this order",1:"mark this order for discontinuation"),".  Press the RETURN key (or" W:'CF ! W:CF " " W "enter an 'N'" W:CF ! W:'CF " " W "or '^') to leave this option now." Q
  1.  ;
  1. ENDC ;
  1.  W !!,"You must enter 'DC' to discontinue the order or leave blank and press return to continue without discontinuing the order." Q
  1.  ;
  1. ENUMK ;
  1.  W " BEEN 'MARKED FOR DISCONTINUATION'."
  1.  F  W !,"DO YOU WANT TO 'UNMARK' ",$S($D(PSGORD):"IT",1:"THEM") S %=2 D YN^DICN Q:%  W !!?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.",!
  1.  Q
  1.  ;
  1. ENHLP(F1,F2) ; order entry fields' help
  1.  ; Input: F1 - File #
  1.  ;        F2 - Field #
  1.  N F,F0,F3,PSJD,PSJHP,PSJX
  1.  ;I X="?",$D(^DD(F1,F2,3)) S F=^(3) W !?5 F F0=1:1:$L(F," ") S F3=$P(F," ",F0) W:$L(F3)+$X>78 !?5 W F3_" "
  1.  ;
  1.  D FIELD^DID(F1,F2,"","HELP-PROMPT","PSJHP")
  1.  I X="?",$D(PSJHP("HELP-PROMPT")) S F=$G(PSJHP("HELP-PROMPT")) W !?5 F F0=1:1:$L(F," ") S F3=$P(F," ",F0) W:$L(F3)+$X>78 !?5 W F3_" "
  1.  ;
  1.  ;W:$D(^DD(F1,F2,12)) !,"("_^(12)_")" I $D(^(4)) X ^(4)
  1.  W:$D(^DD(F1,F2,12)) !,"("_^(12)_")" D FIELD^DID(F1,F2,"","XECUTABLE HELP","PSJX") I $D(PSJX("XECUTABLE HELP")) X PSJX("XECUTABLE HELP")
  1.  ;
  1.  ;  new code
  1.  D FIELD^DID(F1,F2,"","DESCRIPTION","PSJD")
  1.  G:$S(X="?":1,1:'$O(PSJD("DESCRIPTION",0))) SC F F=0:0 S F=$O(PSJD("DESCRIPTION",F)) Q:'F  I $D(PSJD("DESCRIPTION",F)) W !?2,PSJD("DESCRIPTION",F)
  1.  ;I F W:X="??" !?2,"..." I X?3."?" F F=F-1:0 S F=$O(^DD(F1,F2,21,F)) Q:'F  I $D(^(F,0)) W !?2,^(0)
  1.  I F2=106 W !?5,"CHOOSE FROM:",!?7,"W",?16,"WRITTEN",!?7,"P",?16,"TELEPHONE",!?7,"V",?16,"VERBAL",!
  1.  ; old code
  1.  ;G:$S(X="?":1,1:'$O(^DD(F1,F2,21,0))) SC F F=0:0 S F=$O(^DD(F1,F2,21,F)) Q:'F  I $D(^(F,0)) W !?2,^(0)
  1.  ;I F W:X="??" !?2,"..." I X?3."?" F F=F-1:0 S F=$O(^DD(F1,F2,21,F)) Q:'F  I $D(^(F,0)) W !?2,^(0),"RB.."
  1.  ;I F2=106 W !?5,"CHOOSE FROM:",!?7,"W",?16,"WRITTEN",!?7,"P",?16,"TELEPHONE",!?7,"V",?16,"VERBAL",!
  1.  ;
  1. SC ;
  1.  I F2=5!(F2=6) W !,"CHOOSE FROM:",!?8,0,?16,"NO",!?8,1,?16,"YES" Q
  1.  Q
  1.  ;
  1. ENFF ; up-arrow to another field
  1.  S Y=-1 I '$D(PSGFOK) W $C(7),"  ??" Q
  1.  ;I X="^301"!($P("^DOSAGE ORDERED",X)="") W:X="^301" "  " S:X="^301" X="^" W $P("^DOSAGE ORDERED",X,2) S Y=301 Q
  1.  S X=$E(X,2,99) I X=+X S Y=$S($D(PSGFOK(X)):X,1:-1) W "  " W:Y>0 $$CODES2^PSIVUTL(53.1,X) W:Y'>0 $C(7),"??" Q
  1.  K DIC S DIC="^DD(53.1,",DIC(0)="QEM",DIC("S")="I $D(PSGFOK(+Y))" D ^DIC K DIC S Y=+Y Q
  1.  ;
  1. ENAH ; help text for "ACTION" prompt
  1.  W !!,"YOU MAY SELECT:"
  1.  W:PSGACT["B" !?5,"B to bypass (take no action on) a pending order."
  1.  W:PSGACT["D" !?5,"D (or DC) to discontinue an order.  *WARNING* If you discontinue a",!?7,"non-verified order it is deleted from the system."
  1.  W:PSGACT["E" !?5,"E to edit an active or non-verified order.  NOTE: Nursing must be notified",!?7,"of all changes."
  1.  W:PSGACT["F" !?5,"F to finish a pending order."
  1.  I PSGACT["H" S HF=$S('$D(^PS(55,PSGP,5,+PSGORD,0)):1,1:$P(^(0),"^",9)'="H") W !?5,"H to ",$S(HF:"place this order on",1:"take this order off of")," hold."
  1.  W:PSGACT["I" !?5,"I to mark a non-verified order as incomplete, or to unmark a non-verified",!?7,"order so marked.  An order marked as incomplete may not be verified."
  1.  W:PSGACT["L" !?5,"L to display either the activity log or the dispense log associated with",!,?7,"this order."
  1.  W:PSGACT["N" !?5,"N to mark this order as 'NOT TO BE GIVEN'.  Orders so marked may not be",!?7,"renewed,"_$S(PSJSYSU:"",1:" or")_" reinstated"_$S(PSJSYSU:", or copied.",1:".")
  1.  W:PSGACT["R" !?5,"R to ",$S(PSGRRF:"reinstate",1:"renew")," this order."
  1.  W:PSGACT["V" !?5,"V to verify (make active) a non-verified order.  NOTE: You cannot verify",!?7,"an order that has been marked as incomplete."
  1.  I $D(PSGOEA),PSGOEA?2."?" W !!,"You may also select:" I 'PSGOENG,'$D(PSGODF),PSJPCAF,'PSGDI,'PSGPI W !?5,"C to copy (duplicate) this order into a new, non-verified order."
  1.  I $D(PSGOEA),PSGOEA?2."?" W !?5,"P to print this order to a device.",!?5,"S to show this order again."
  1.  I PSGOEAV W !!,"PLEASE NOTE: This order is automatically verified, and unless discontinued",!?13,"now, will show as active."
  1.  W !!?2,"You may also press the RETURN key if you are finished with this order or wish",!,"to take no action on it." W:'$D(PSGOETOF) "  Enter an '^' if you do not wish to take any action on any other orders."
  1.  Q
  1. DURHLP(PSGSTR,PSGRF) ; Help text for Duration of Administration *315 drp
  1.  Q:($G(PSGRF,0)<2)!($E(PSGSTR,1)'="?")
  1.  D @PSGRF
  1.  I $E(PSGSTR,1,2)="??" D
  1.  . W !!,"Enter the number of hours the medication will remain on the patient in the"
  1.  . W !,"Duration of Administration field. The BCMA user will be prompted to remove the"
  1.  . W !,"medication after the Duration of Administration period."
  1.  . W !!,"The Duration of Administration cannot match or exceed the order frequency"
  1.  . W !,"(the period of time between two Admin Times) except for BID, TID and QID schedules."
  1.  .Q
  1.  Q
  1.  ;
  1. 2 ;TYPE 2 OI
  1.  W !,"The Duration of Administration is the period of time the medication remains on"
  1.  W !,"the patient before removal. If this medication order requires a drug-free period"
  1.  W !,"prior to the next administration, enter a Duration of Administration here."
  1.  W !!,"If this medication order does not require a drug-free period prior to the next"
  1.  W !,"administration, this field should be left blank."
  1.  Q
  1.  ;
  1. 3 ;TYPE 3 OI
  1.  I $E(PSGSTR,1)="?" D
  1.  .W !,"The Duration of Administration is the period of time the medication remains on"
  1.  .W !,"the patient before removal. The Duration of Administration is required for this"
  1.  .W !,"medication order because this medication requires a drug-free period prior to"
  1.  .W !,"the next administration."
  1.  .Q
  1.  Q