source: FOIAVistA/trunk/r/INCOMPLETE_RECORDS_TRACKING-DGJ/DGJTHLP.m@ 1470

Last change on this file since 1470 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 3.8 KB
Line 
1DGJTHLP ;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 ;
5HLP ; -- 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")
9HLPRTN 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 ;
16HLPQ K I,DGJXX,DGJTHTXT,DGJTHRTN,Y
17 Q
18HLPS ; -- short help
19 S X="?" D DISP^XQORM1 W !
20 Q
21 ;
22HLP1 ; -- 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 ;
27ENHLPTXT ; -- 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
59DLHLPTXT ; -- 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 ;
84STATUS ;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
Note: See TracBrowser for help on using the repository browser.