TIUVSITH.m

TIUVSITH ; SLC/JER - Help for Interactive Visit look-up ;2/11/99@10:18:21

 ;;1.0;TEXT INTEGRATION UTILITIES;**39**;Jun 20, 1997

 ;IHS/ITSC/LJF 02/27/2003 added call to IHS help subroutine

 ;

HELP(X) ; Offer help

 D HELP^BTIUVSIT(X) S TIUI=0 Q   ;IHS/ITSC/LJF 02/27/2003 use IHS help code

 W !!?3,"Indicate the visit with which the document is associated by choosing"

 W !?3,"the corresponding number."

 W !!?3,"To add a new visit (e.g., for unscheduled or telephone contacts), enter ""N""."

 I '(+$G(TIUII)#20) D

 . W !!?3,"To see MORE, older visits (i.e., beyond the 20 most recent) enter ""M""."

 W !!?3,"To see UNSCHEDULED visits (i.e., those entered as standalone AMBULATORY"

 W !?3,"or TELEPHONE visits for a previous note) enter ""U""."

 I +$P(TIUPRM0,U,14) D

 . W !!?3,"Finally, to extend your view of FUTURE appointments (e.g., cancellations"

 . W !?3,"requiring documentation, etc.), enter ""F"".",!!

 Q

SELHLP ; Help for SELLOC

 W !,"Please indicate the location of your encounter with the patient."

 W !,"If the encounter was by telephone, but was associated with your"

 W !,"services for a particular Ward or Clinic, then enter the name"

 W !,"of that location."

 Q

TIUVSITH  ; SLC/JER - Help for Interactive Visit look-up ;2/11/99@10:18:21

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**39**;Jun 20, 1997

 +2       ;IHS/ITSC/LJF 02/27/2003 added call to IHS help subroutine

 +3       ;

HELP(X)   ; Offer help

 +1       ;IHS/ITSC/LJF 02/27/2003 use IHS help code

           DO HELP^BTIUVSIT(X)

           SET TIUI=0

           QUIT 

 +2        WRITE !!?3,"Indicate the visit with which the document is associated by choosing"

 +3        WRITE !?3,"the corresponding number."

 +4        WRITE !!?3,"To add a new visit (e.g., for unscheduled or telephone contacts), enter ""N""."

 +5        IF '(+$GET(TIUII)#20)

               Begin DoDot:1

 +6                WRITE !!?3,"To see MORE, older visits (i.e., beyond the 20 most recent) enter ""M""."

               End DoDot:1

 +7        WRITE !!?3,"To see UNSCHEDULED visits (i.e., those entered as standalone AMBULATORY"

 +8        WRITE !?3,"or TELEPHONE visits for a previous note) enter ""U""."

 +9        IF +$PIECE(TIUPRM0,U,14)

               Begin DoDot:1

 +10               WRITE !!?3,"Finally, to extend your view of FUTURE appointments (e.g., cancellations"

 +11               WRITE !?3,"requiring documentation, etc.), enter ""F"".",!!

               End DoDot:1

 +12       QUIT 

SELHLP    ; Help for SELLOC

 +1        WRITE !,"Please indicate the location of your encounter with the patient."

 +2        WRITE !,"If the encounter was by telephone, but was associated with your"

 +3        WRITE !,"services for a particular Ward or Clinic, then enter the name"

 +4        WRITE !,"of that location."

 +5        QUIT