PSGFILD2 ;BIR/CML3-AUTO CANCEL HELP (CONT.) ;03 AUG 94 / 5:18 PM
;;5.0; INPATIENT MEDICATIONS ;**41**;16 DEC 97
;
ENWAI ;
W:$Y @IOF W !?67,"Page: 3 of 4",! F Q=1:1:18 S X=$P($T(WAI+Q),";",3) W !,X
R !!,"Press RETURN to continue, enter '^' to end instructions: ",X:DTIME S:'$T X="^" W:'$T $C(7) I X="^" K Q,X Q
W:$Y @IOF W !?67,"Page: 4 of 4",! F Q=19:1:36 S X=$P($T(WAI+Q),";",3) W !,X
R !!,"Press RETURN to continue: ",X:DTIME K Q,X Q
;
WAI ;
;;ward and '1 South' is selected as a 'to' ward, any time a patient is transferred
;;FROM 1 North TO 1 South, the patient's Inpatient orders will be discontinued.
;;
;; This process is 'one way' only. For example, if your site also wants orders
;;to be d/c'd whenever a patient is transferred FROM 1 South TO 1 North, you
;;will have to enter 1 South as a 'from' ward and then enter 1 North as one of
;;its 'to' wards. An example for when this would be useful might be to have
;;orders d/c'd when patients are transferred from Medicine wards to Surgery wards,
;;but not d/c'd when patients are transferred from Surgery wards to Medicine
;;wards.
;;
;;3. Service transfers - Select a 'from' service. This is a service from which
;;a patient may be transferred. For each 'from' service, you can:
;; A. Select the 'To' services. Whenever a patient is transferred from the
;;selected 'from' service to any of the selected 'to' services, the patient's IV
;;and Unit Dose orders will be d/c'd. For example, if 'Medicine' is
;;selected as a 'from' service and 'Surgery' is selected as a 'to' service, any
;;time a patient is transferred FROM Medicine TO Surgery, the patient's Inpatient
;;orders will be discontinued.
;; This process is also 'one way' only. For example, if your site also wants
;;orders to be d/c'd whenever a patient is transferred FROM Surgery TO Medicine,
;;you will have to enter Surgery as a 'from' service and then enter Medicine as
;;one of its 'to' services.
;; If all of your wards are set for auto d/c, it is not necessary to enter
;;services.
;;
;; If there is a specific ward or service for which your site does not want
;;Inpatient orders d/c'd, you need only delete the 'to' ward or service.
;;
;; Inpatient orders are always automatically d/c'd whenever the patient is
;;admitted, discharged, or transferred to unauthorized absence.
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSGFILD2 2393 printed Nov 22, 2024@17:11:21 Page 2
PSGFILD2 ;BIR/CML3-AUTO CANCEL HELP (CONT.) ;03 AUG 94 / 5:18 PM
+1 ;;5.0; INPATIENT MEDICATIONS ;**41**;16 DEC 97
+2 ;
ENWAI ;
+1 if $Y
WRITE @IOF
WRITE !?67,"Page: 3 of 4",!
FOR Q=1:1:18
SET X=$PIECE($TEXT(WAI+Q),";",3)
WRITE !,X
+2 READ !!,"Press RETURN to continue, enter '^' to end instructions: ",X:DTIME
if '$TEST
SET X="^"
if '$TEST
WRITE $CHAR(7)
IF X="^"
KILL Q,X
QUIT
+3 if $Y
WRITE @IOF
WRITE !?67,"Page: 4 of 4",!
FOR Q=19:1:36
SET X=$PIECE($TEXT(WAI+Q),";",3)
WRITE !,X
+4 READ !!,"Press RETURN to continue: ",X:DTIME
KILL Q,X
QUIT
+5 ;
WAI ;
+1 ;;ward and '1 South' is selected as a 'to' ward, any time a patient is transferred
+2 ;;FROM 1 North TO 1 South, the patient's Inpatient orders will be discontinued.
+3 ;;
+4 ;; This process is 'one way' only. For example, if your site also wants orders
+5 ;;to be d/c'd whenever a patient is transferred FROM 1 South TO 1 North, you
+6 ;;will have to enter 1 South as a 'from' ward and then enter 1 North as one of
+7 ;;its 'to' wards. An example for when this would be useful might be to have
+8 ;;orders d/c'd when patients are transferred from Medicine wards to Surgery wards,
+9 ;;but not d/c'd when patients are transferred from Surgery wards to Medicine
+10 ;;wards.
+11 ;;
+12 ;;3. Service transfers - Select a 'from' service. This is a service from which
+13 ;;a patient may be transferred. For each 'from' service, you can:
+14 ;; A. Select the 'To' services. Whenever a patient is transferred from the
+15 ;;selected 'from' service to any of the selected 'to' services, the patient's IV
+16 ;;and Unit Dose orders will be d/c'd. For example, if 'Medicine' is
+17 ;;selected as a 'from' service and 'Surgery' is selected as a 'to' service, any
+18 ;;time a patient is transferred FROM Medicine TO Surgery, the patient's Inpatient
+19 ;;orders will be discontinued.
+20 ;; This process is also 'one way' only. For example, if your site also wants
+21 ;;orders to be d/c'd whenever a patient is transferred FROM Surgery TO Medicine,
+22 ;;you will have to enter Surgery as a 'from' service and then enter Medicine as
+23 ;;one of its 'to' services.
+24 ;; If all of your wards are set for auto d/c, it is not necessary to enter
+25 ;;services.
+26 ;;
+27 ;; If there is a specific ward or service for which your site does not want
+28 ;;Inpatient orders d/c'd, you need only delete the 'to' ward or service.
+29 ;;
+30 ;; Inpatient orders are always automatically d/c'd whenever the patient is
+31 ;;admitted, discharged, or transferred to unauthorized absence.
