- 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
- Q
- HLPS ; -- short help
- S X="?" D DISP^XQORM1 W !
- Q
- ;
- 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
- 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