Routine: DGJTHLP

DGJTHLP ;MJK/MAF/ESD/ALB - Help for IRT module using list processor ; 20-OCT-92

 ;;1.0;Incomplete Records Tracking;;Jun 25, 2001

HLP ; -- IRT ListMan menu help

 I X="?" D HLPS,PAUSE^VALM1 S VALMBCK="" G HLPQ

 D CLEAR^VALM1

 S DGJTHTXT=$S(DGJTHFLG="EN":"ENHLPTXT",DGJTHFLG="DL":"DLHLPTXT",DGJTHFLG="CE":"CEHLPTXT",DGJTHFLG="VW":"VWHLPTXT",DGJTHFLG="AD":"ADHLPTXT",1:"ENHLPTXT")

HLPRTN S DGJTHRTN=$S(DGJTHTXT="ENHLPTXT"!(DGJTHTXT="DLHLPTXT"):"DGJTHLP",1:"DGJTHLP1")

 F I=1:1 S DGJXX=$P($T(@DGJTHTXT+I^@DGJTHRTN),";;",2,99) Q:DGJXX="$END"  D

 .D PAUSE^VALM1:DGJXX="$PAUSE" Q:'Y

 .W !,$S(DGJXX["$PAUSE":"",1:DGJXX)

 W !,"Possible actions for this option are the following:"

 D HLPS,PAUSE^VALM1 S VALMBCK="R"

HLPQ K I,DGJXX,DGJTHTXT,DGJTHRTN,Y

HLPS ; -- short help

 S X="?" D DISP^XQORM1 W !

HLP1 ; -- Edit IRT Deficiency (from Completed IRT Edit) menu help text

 I X="?" D HLPS,PAUSE^VALM1 S VALMBCK="" G HLPQ

 D CLEAR^VALM1

 S DGJTHTXT="CIHLPTXT" G HLPRTN

ENHLPTXT ; -- Enter/Edit menu help text

 ;;Enter actions by typing the names or abbreviations.

;;

 ;;LIST ENTRY PRE-SELECTION:

 ;;  Certain actions allow the user to pre-select one or more entries

 ;;  from the Deficiency list.  For the Enter/Edit Menu option, these

 ;;  actions are:

 ;;                 DE   --  Edit Deficiencies

 ;;                 EP   --  Expand Deficiency

 ;;                 QC   --  Quick Complete of Def.

 ;;                 TS   --  Treating Spec. Update

 ;;  For example:

;;

 ;;      DE=1      ...will process entry #1 using the Edit action.

 ;;      DE=3 4 5  ...will process entries 3,4,5 using the Edit action.

 ;;      DE=1-3    ...will process entries 1,2,3 using the Edit action.

 ;;$PAUSE

 ;;  The Jump to a Category (JC) action can be pre-selected by

 ;;  Type of Category.

;;

 ;;  For example:

;;

 ;;      JC=PHYS   ...will jump to the PHYSICAL EXAMINATION category.

;;

 ;;  If no entry is pre-selected, the user will be prompted for a

 ;;  selection.

;;

 ;;ACTION MENU DISPLAY:

 ;; The ADPL 'Auto Display(On/Off)' action can be used to turn on/off

 ;; the action menu that is displayed at the bottom of the screen.

 ;;------------------------------------------------------------------------------

 ;;$END

DLHLPTXT ; -- Delete menu help text

 ;;Enter actions by typing the names or abbreviations.

;;

 ;;LIST ENTRY PRE-SELECTION:

 ;;  Certain actions allow the user to pre-select one or more entries

 ;;  from the Deficiency list.  For the IRT Delete Menu option, these

 ;;  actions are:

;;

 ;;                 DL   --  Delete an IRT

 ;;                 EP   --  Expand Deficiency

 ;;  For example:

;;

 ;;      DL=3      ...will process entry #3 using the Delete action.

 ;;      DL=2 4 5  ...will process entries 2,4,5 using the Delete action.

 ;;      DL=1-3    ...will process entries 1,2,3 using the Delete action.

;;

 ;;  If no entry is pre-selected, the user will be prompted for a

 ;;  selection.

 ;;$PAUSE

 ;;ACTION MENU DISPLAY:

 ;; The ADPL 'Auto Display(On/Off)' action can be used to turn on/off

 ;; the action menu that is displayed at the bottom of the screen.

 ;;------------------------------------------------------------------------------

 ;;$END

STATUS ;This code is the screen code for the Status field (.11) of the

 ;Incomplete Records Tracking file (393).  This screens out the status

 ;for the different types of deficiencies and the divisions if they

 ;review IRTs.

 N DGJX,DGJY,DGJTPD S DGJX=$G(^VAS(393,DA,0)) Q:DGJX']""  S DGJY=$P(DGJX,"^",6),DGJTPD=$P($G(^VAS(393.3,$P(DGJX,"^",2),0)),"^",1)

 I $D(^DG(40.8,+DGJY,"DT")),$P(^DG(40.8,+DGJY,"DT"),"^",3)=1 I "^DISCHARGE SUMMARY^INTERIM SUMMARY^OP REPORT^"[DGJTPD S DIC("S")="I ""^COMPLETED^SIGNED NO REVIEW^""'[$P(^DG(393.2,+Y,0),U,1)" Q

 I "^DISCHARGE SUMMARY^INTERIM SUMMARY^OP REPORT^"[DGJTPD S DIC("S")="I ""^COMPLETED^SIGNED^REVIEWED^""'[$P(^DG(393.2,+Y,0),U,1)" Q

 S DIC("S")="I ""^COMPLETED^INCOMPLETE^""[$P(^DG(393.2,+Y,0),U,1)" Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGJTHLP   4032     printed  Feb 18, 2025@23:27:16                                                                                                                                                                                                     Page 2

DGJTHLP   ;MJK/MAF/ESD/ALB - Help for IRT module using list processor ; 20-OCT-92

 +1       ;;1.0;Incomplete Records Tracking;;Jun 25, 2001

 +2       ;

 +3       ;

HLP       ; -- IRT ListMan menu help

 +1        IF X="?"

               DO HLPS

               DO PAUSE^VALM1

               SET VALMBCK=""

               GOTO HLPQ

 +2        DO CLEAR^VALM1

 +3        SET DGJTHTXT=$SELECT(DGJTHFLG="EN":"ENHLPTXT",DGJTHFLG="DL":"DLHLPTXT",DGJTHFLG="CE":"CEHLPTXT",DGJTHFLG="VW":"VWHLPTXT",DGJTHFLG="AD":"ADHLPTXT",1:"ENHLPTXT")

HLPRTN     SET DGJTHRTN=$SELECT(DGJTHTXT="ENHLPTXT"!(DGJTHTXT="DLHLPTXT"):"DGJTHLP",1:"DGJTHLP1")

 +1        FOR I=1:1

               SET DGJXX=$PIECE($TEXT(@DGJTHTXT+I^@DGJTHRTN),";;",2,99)

               if DGJXX="$END"

                   QUIT

               Begin DoDot:1

 +2                if DGJXX="$PAUSE"

                       DO PAUSE^VALM1

                   if 'Y

                       QUIT

 +3                WRITE !,$SELECT(DGJXX["$PAUSE":"",1:DGJXX)

               End DoDot:1

 +4        WRITE !,"Possible actions for this option are the following:"

 +5        DO HLPS

           DO PAUSE^VALM1

           SET VALMBCK="R"

 +6       ;

HLPQ       KILL I,DGJXX,DGJTHTXT,DGJTHRTN,Y

 +1        QUIT

HLPS      ; -- short help

 +1        SET X="?"

           DO DISP^XQORM1

           WRITE !

 +2        QUIT

 +3       ;

HLP1      ; -- Edit IRT Deficiency (from Completed IRT Edit) menu help text

 +1        IF X="?"

               DO HLPS

               DO PAUSE^VALM1

               SET VALMBCK=""

               GOTO HLPQ

 +2        DO CLEAR^VALM1

 +3        SET DGJTHTXT="CIHLPTXT"

           GOTO HLPRTN

 +4       ;

ENHLPTXT  ; -- Enter/Edit menu help text

 +1       ;;Enter actions by typing the names or abbreviations.

 +2       ;;

 +3       ;;LIST ENTRY PRE-SELECTION:

 +4       ;;  Certain actions allow the user to pre-select one or more entries

 +5       ;;  from the Deficiency list.  For the Enter/Edit Menu option, these

 +6       ;;  actions are:

 +7       ;;                 DE   --  Edit Deficiencies

 +8       ;;                 EP   --  Expand Deficiency

 +9       ;;                 QC   --  Quick Complete of Def.

 +10      ;;                 TS   --  Treating Spec. Update

 +11      ;;  For example:

 +12      ;;

 +13      ;;      DE=1      ...will process entry #1 using the Edit action.

 +14      ;;      DE=3 4 5  ...will process entries 3,4,5 using the Edit action.

 +15      ;;      DE=1-3    ...will process entries 1,2,3 using the Edit action.

 +16      ;;$PAUSE

 +17      ;;  The Jump to a Category (JC) action can be pre-selected by

 +18      ;;  Type of Category.

 +19      ;;

 +20      ;;  For example:

 +21      ;;

 +22      ;;      JC=PHYS   ...will jump to the PHYSICAL EXAMINATION category.

 +23      ;;

 +24      ;;  If no entry is pre-selected, the user will be prompted for a

 +25      ;;  selection.

 +26      ;;

 +27      ;;ACTION MENU DISPLAY:

 +28      ;; The ADPL 'Auto Display(On/Off)' action can be used to turn on/off

 +29      ;; the action menu that is displayed at the bottom of the screen.

 +30      ;;------------------------------------------------------------------------------

 +31      ;;$END

DLHLPTXT  ; -- Delete menu help text

 +1       ;;Enter actions by typing the names or abbreviations.

 +2       ;;

 +3       ;;LIST ENTRY PRE-SELECTION:

 +4       ;;  Certain actions allow the user to pre-select one or more entries

 +5       ;;  from the Deficiency list.  For the IRT Delete Menu option, these

 +6       ;;  actions are:

 +7       ;;

 +8       ;;                 DL   --  Delete an IRT

 +9       ;;                 EP   --  Expand Deficiency

 +10      ;;  For example:

 +11      ;;

 +12      ;;      DL=3      ...will process entry #3 using the Delete action.

 +13      ;;      DL=2 4 5  ...will process entries 2,4,5 using the Delete action.

 +14      ;;      DL=1-3    ...will process entries 1,2,3 using the Delete action.

 +15      ;;

 +16      ;;  If no entry is pre-selected, the user will be prompted for a

 +17      ;;  selection.

 +18      ;;$PAUSE

 +19      ;;ACTION MENU DISPLAY:

 +20      ;; The ADPL 'Auto Display(On/Off)' action can be used to turn on/off

 +21      ;; the action menu that is displayed at the bottom of the screen.

 +22      ;;------------------------------------------------------------------------------

 +23      ;;$END

 +24      ;

STATUS    ;This code is the screen code for the Status field (.11) of the

 +1       ;Incomplete Records Tracking file (393).  This screens out the status

 +2       ;for the different types of deficiencies and the divisions if they

 +3       ;review IRTs.

 +4        NEW DGJX,DGJY,DGJTPD

           SET DGJX=$GET(^VAS(393,DA,0))

           if DGJX']""

               QUIT

           SET DGJY=$PIECE(DGJX,"^",6)

           SET DGJTPD=$PIECE($GET(^VAS(393.3,$PIECE(DGJX,"^",2),0)),"^",1)

 +5        IF $DATA(^DG(40.8,+DGJY,"DT"))

               IF $PIECE(^DG(40.8,+DGJY,"DT"),"^",3)=1

                   IF "^DISCHARGE SUMMARY^INTERIM SUMMARY^OP REPORT^"[DGJTPD

                       SET DIC("S")="I ""^COMPLETED^SIGNED NO REVIEW^""'[$P(^DG(393.2,+Y,0),U,1)"

                       QUIT

 +6        IF "^DISCHARGE SUMMARY^INTERIM SUMMARY^OP REPORT^"[DGJTPD

               SET DIC("S")="I ""^COMPLETED^SIGNED^REVIEWED^""'[$P(^DG(393.2,+Y,0),U,1)"

               QUIT

 +7        SET DIC("S")="I ""^COMPLETED^INCOMPLETE^""[$P(^DG(393.2,+Y,0),U,1)"

           QUIT

 +8        QUIT

DGJTHLP.m