[613] | 1 | DGJTHLP ;MJK/MAF/ESD/ALB - Help for IRT module using list processor ; 20-OCT-92
|
---|
| 2 | ;;1.0;Incomplete Records Tracking;;Jun 25, 2001
|
---|
| 3 | ;
|
---|
| 4 | ;
|
---|
| 5 | HLP ; -- IRT ListMan menu help
|
---|
| 6 | I X="?" D HLPS,PAUSE^VALM1 S VALMBCK="" G HLPQ
|
---|
| 7 | D CLEAR^VALM1
|
---|
| 8 | S DGJTHTXT=$S(DGJTHFLG="EN":"ENHLPTXT",DGJTHFLG="DL":"DLHLPTXT",DGJTHFLG="CE":"CEHLPTXT",DGJTHFLG="VW":"VWHLPTXT",DGJTHFLG="AD":"ADHLPTXT",1:"ENHLPTXT")
|
---|
| 9 | HLPRTN S DGJTHRTN=$S(DGJTHTXT="ENHLPTXT"!(DGJTHTXT="DLHLPTXT"):"DGJTHLP",1:"DGJTHLP1")
|
---|
| 10 | F I=1:1 S DGJXX=$P($T(@DGJTHTXT+I^@DGJTHRTN),";;",2,99) Q:DGJXX="$END" D
|
---|
| 11 | .D PAUSE^VALM1:DGJXX="$PAUSE" Q:'Y
|
---|
| 12 | .W !,$S(DGJXX["$PAUSE":"",1:DGJXX)
|
---|
| 13 | W !,"Possible actions for this option are the following:"
|
---|
| 14 | D HLPS,PAUSE^VALM1 S VALMBCK="R"
|
---|
| 15 | ;
|
---|
| 16 | HLPQ K I,DGJXX,DGJTHTXT,DGJTHRTN,Y
|
---|
| 17 | Q
|
---|
| 18 | HLPS ; -- short help
|
---|
| 19 | S X="?" D DISP^XQORM1 W !
|
---|
| 20 | Q
|
---|
| 21 | ;
|
---|
| 22 | HLP1 ; -- Edit IRT Deficiency (from Completed IRT Edit) menu help text
|
---|
| 23 | I X="?" D HLPS,PAUSE^VALM1 S VALMBCK="" G HLPQ
|
---|
| 24 | D CLEAR^VALM1
|
---|
| 25 | S DGJTHTXT="CIHLPTXT" G HLPRTN
|
---|
| 26 | ;
|
---|
| 27 | ENHLPTXT ; -- Enter/Edit menu help text
|
---|
| 28 | ;;Enter actions by typing the names or abbreviations.
|
---|
| 29 | ;;
|
---|
| 30 | ;;LIST ENTRY PRE-SELECTION:
|
---|
| 31 | ;; Certain actions allow the user to pre-select one or more entries
|
---|
| 32 | ;; from the Deficiency list. For the Enter/Edit Menu option, these
|
---|
| 33 | ;; actions are:
|
---|
| 34 | ;; DE -- Edit Deficiencies
|
---|
| 35 | ;; EP -- Expand Deficiency
|
---|
| 36 | ;; QC -- Quick Complete of Def.
|
---|
| 37 | ;; TS -- Treating Spec. Update
|
---|
| 38 | ;; For example:
|
---|
| 39 | ;;
|
---|
| 40 | ;; DE=1 ...will process entry #1 using the Edit action.
|
---|
| 41 | ;; DE=3 4 5 ...will process entries 3,4,5 using the Edit action.
|
---|
| 42 | ;; DE=1-3 ...will process entries 1,2,3 using the Edit action.
|
---|
| 43 | ;;$PAUSE
|
---|
| 44 | ;; The Jump to a Category (JC) action can be pre-selected by
|
---|
| 45 | ;; Type of Category.
|
---|
| 46 | ;;
|
---|
| 47 | ;; For example:
|
---|
| 48 | ;;
|
---|
| 49 | ;; JC=PHYS ...will jump to the PHYSICAL EXAMINATION category.
|
---|
| 50 | ;;
|
---|
| 51 | ;; If no entry is pre-selected, the user will be prompted for a
|
---|
| 52 | ;; selection.
|
---|
| 53 | ;;
|
---|
| 54 | ;;ACTION MENU DISPLAY:
|
---|
| 55 | ;; The ADPL 'Auto Display(On/Off)' action can be used to turn on/off
|
---|
| 56 | ;; the action menu that is displayed at the bottom of the screen.
|
---|
| 57 | ;;------------------------------------------------------------------------------
|
---|
| 58 | ;;$END
|
---|
| 59 | DLHLPTXT ; -- Delete menu help text
|
---|
| 60 | ;;Enter actions by typing the names or abbreviations.
|
---|
| 61 | ;;
|
---|
| 62 | ;;LIST ENTRY PRE-SELECTION:
|
---|
| 63 | ;; Certain actions allow the user to pre-select one or more entries
|
---|
| 64 | ;; from the Deficiency list. For the IRT Delete Menu option, these
|
---|
| 65 | ;; actions are:
|
---|
| 66 | ;;
|
---|
| 67 | ;; DL -- Delete an IRT
|
---|
| 68 | ;; EP -- Expand Deficiency
|
---|
| 69 | ;; For example:
|
---|
| 70 | ;;
|
---|
| 71 | ;; DL=3 ...will process entry #3 using the Delete action.
|
---|
| 72 | ;; DL=2 4 5 ...will process entries 2,4,5 using the Delete action.
|
---|
| 73 | ;; DL=1-3 ...will process entries 1,2,3 using the Delete action.
|
---|
| 74 | ;;
|
---|
| 75 | ;; If no entry is pre-selected, the user will be prompted for a
|
---|
| 76 | ;; selection.
|
---|
| 77 | ;;$PAUSE
|
---|
| 78 | ;;ACTION MENU DISPLAY:
|
---|
| 79 | ;; The ADPL 'Auto Display(On/Off)' action can be used to turn on/off
|
---|
| 80 | ;; the action menu that is displayed at the bottom of the screen.
|
---|
| 81 | ;;------------------------------------------------------------------------------
|
---|
| 82 | ;;$END
|
---|
| 83 | ;
|
---|
| 84 | STATUS ;This code is the screen code for the Status field (.11) of the
|
---|
| 85 | ;Incomplete Records Tracking file (393). This screens out the status
|
---|
| 86 | ;for the different types of deficiencies and the divisions if they
|
---|
| 87 | ;review IRTs.
|
---|
| 88 | 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)
|
---|
| 89 | 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
|
---|
| 90 | I "^DISCHARGE SUMMARY^INTERIM SUMMARY^OP REPORT^"[DGJTPD S DIC("S")="I ""^COMPLETED^SIGNED^REVIEWED^""'[$P(^DG(393.2,+Y,0),U,1)" Q
|
---|
| 91 | S DIC("S")="I ""^COMPLETED^INCOMPLETE^""[$P(^DG(393.2,+Y,0),U,1)" Q
|
---|
| 92 | Q
|
---|