PSIVHLP3.m

PSIVHLP3 ;BIR/PR-CONTINUED HELP TEXT ;12 JUL 96 / 10:30 AM

 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97

EN(HELP) W ! F PSIVHLP=0:1 S PSIVHLP2=$P($T(@HELP+PSIVHLP),";",3) Q:PSIVHLP2=""  W !,PSIVHLP2

 W ! K HELP,PSIVHLP2,PSIVHLP Q

CMPLTE ;;== B  == Bypass and leave order unchanged.

 ;;== DC == Discontinue order.

 ;;== E  == Edit the order.

 ;;== F  == Finish the order. Only ask fields required to make this

 ;;         order active that cannot be calculated automatically.

 ;;

 ;;

QOPADD ;;A protocol must be created for a quick order before it may be used

 ;;to enter orders through OE/RR. The name of the protocol created will

 ;;be in the format "PSJQ"_internal entry number_" "_quick order name.

 ;;Once a protocol is created for a Pharmacy quick order, the quick

 ;;order is uneditable until it's protocol is deleted.

 ;;

 ;;

QOPDEL ;;A Pharmacy quick order may not be edited if a protocol has been

 ;;created for it. Enter "YES" to delete the quick order protocol,

 ;;or "NO" to leave it unchanged.

 ;;

 ;; **IMPORTANT** Remember to remove the quick order protocol from any

 ;;protocol menus it has been added to before deleting!

 ;;

 ;;

STPDTHLP ;;A number of doses (dose limit) may be entered and the stop date will

 ;;be automatically calculated. To specify a dose limit enter a number

 ;;corresponding to the number of doses the to be administered.

 ;;(Example: 4 for 4 doses).

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSIVHLP3   1416     printed  Feb 18, 2025@23:30:35                                                                                                                                                                                                    Page 2

PSIVHLP3  ;BIR/PR-CONTINUED HELP TEXT ;12 JUL 96 / 10:30 AM

 +1       ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97

EN(HELP)   WRITE !

           FOR PSIVHLP=0:1

               SET PSIVHLP2=$PIECE($TEXT(@HELP+PSIVHLP),";",3)

               if PSIVHLP2=""

                   QUIT 

               WRITE !,PSIVHLP2

 +1        WRITE !

           KILL HELP,PSIVHLP2,PSIVHLP

           QUIT 

CMPLTE    ;;== B  == Bypass and leave order unchanged.

 +1       ;;== DC == Discontinue order.

 +2       ;;== E  == Edit the order.

 +3       ;;== F  == Finish the order. Only ask fields required to make this

 +4       ;;         order active that cannot be calculated automatically.

 +5       ;;

 +6       ;;

QOPADD    ;;A protocol must be created for a quick order before it may be used

 +1       ;;to enter orders through OE/RR. The name of the protocol created will

 +2       ;;be in the format "PSJQ"_internal entry number_" "_quick order name.

 +3       ;;Once a protocol is created for a Pharmacy quick order, the quick

 +4       ;;order is uneditable until it's protocol is deleted.

 +5       ;;

 +6       ;;

QOPDEL    ;;A Pharmacy quick order may not be edited if a protocol has been

 +1       ;;created for it. Enter "YES" to delete the quick order protocol,

 +2       ;;or "NO" to leave it unchanged.

 +3       ;;

 +4       ;; **IMPORTANT** Remember to remove the quick order protocol from any

 +5       ;;protocol menus it has been added to before deleting!

 +6       ;;

 +7       ;;

STPDTHLP  ;;A number of doses (dose limit) may be entered and the stop date will

 +1       ;;be automatically calculated. To specify a dose limit enter a number

 +2       ;;corresponding to the number of doses the to be administered.

 +3       ;;(Example: 4 for 4 doses).