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

HELP(X) ; Offer help

 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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---TIUVSITH   1059     printed  Dec 13, 2024@02:46:31                                                                                                                                                                                                    Page 2

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

HELP(X)   ; Offer help

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

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

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

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

               Begin DoDot:1

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

               End DoDot:1

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

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

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

               Begin DoDot:1

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

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

               End DoDot:1

 +11       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