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 Nov 22, 2024@17:11:02 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