Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGJTHLP

DGJTHLP.m

Go to the documentation of this file.
  1. DGJTHLP ;MJK/MAF/ESD/ALB - Help for IRT module using list processor ; 20-OCT-92
  1. ;;1.0;Incomplete Records Tracking;;Jun 25, 2001
  1. ;
  1. ;
  1. HLP ; -- IRT ListMan menu help
  1. I X="?" D HLPS,PAUSE^VALM1 S VALMBCK="" G HLPQ
  1. D CLEAR^VALM1
  1. S DGJTHTXT=$S(DGJTHFLG="EN":"ENHLPTXT",DGJTHFLG="DL":"DLHLPTXT",DGJTHFLG="CE":"CEHLPTXT",DGJTHFLG="VW":"VWHLPTXT",DGJTHFLG="AD":"ADHLPTXT",1:"ENHLPTXT")
  1. HLPRTN S DGJTHRTN=$S(DGJTHTXT="ENHLPTXT"!(DGJTHTXT="DLHLPTXT"):"DGJTHLP",1:"DGJTHLP1")
  1. F I=1:1 S DGJXX=$P($T(@DGJTHTXT+I^@DGJTHRTN),";;",2,99) Q:DGJXX="$END" D
  1. .D PAUSE^VALM1:DGJXX="$PAUSE" Q:'Y
  1. .W !,$S(DGJXX["$PAUSE":"",1:DGJXX)
  1. W !,"Possible actions for this option are the following:"
  1. D HLPS,PAUSE^VALM1 S VALMBCK="R"
  1. ;
  1. HLPQ K I,DGJXX,DGJTHTXT,DGJTHRTN,Y
  1. Q
  1. HLPS ; -- short help
  1. S X="?" D DISP^XQORM1 W !
  1. Q
  1. ;
  1. HLP1 ; -- Edit IRT Deficiency (from Completed IRT Edit) menu help text
  1. I X="?" D HLPS,PAUSE^VALM1 S VALMBCK="" G HLPQ
  1. D CLEAR^VALM1
  1. S DGJTHTXT="CIHLPTXT" G HLPRTN
  1. ;
  1. ENHLPTXT ; -- Enter/Edit menu help text
  1. ;;Enter actions by typing the names or abbreviations.
  1. ;;
  1. ;;LIST ENTRY PRE-SELECTION:
  1. ;; Certain actions allow the user to pre-select one or more entries
  1. ;; from the Deficiency list. For the Enter/Edit Menu option, these
  1. ;; actions are:
  1. ;; DE -- Edit Deficiencies
  1. ;; EP -- Expand Deficiency
  1. ;; QC -- Quick Complete of Def.
  1. ;; TS -- Treating Spec. Update
  1. ;; For example:
  1. ;;
  1. ;; DE=1 ...will process entry #1 using the Edit action.
  1. ;; DE=3 4 5 ...will process entries 3,4,5 using the Edit action.
  1. ;; DE=1-3 ...will process entries 1,2,3 using the Edit action.
  1. ;;$PAUSE
  1. ;; The Jump to a Category (JC) action can be pre-selected by
  1. ;; Type of Category.
  1. ;;
  1. ;; For example:
  1. ;;
  1. ;; JC=PHYS ...will jump to the PHYSICAL EXAMINATION category.
  1. ;;
  1. ;; If no entry is pre-selected, the user will be prompted for a
  1. ;; selection.
  1. ;;
  1. ;;ACTION MENU DISPLAY:
  1. ;; The ADPL 'Auto Display(On/Off)' action can be used to turn on/off
  1. ;; the action menu that is displayed at the bottom of the screen.
  1. ;;------------------------------------------------------------------------------
  1. ;;$END
  1. DLHLPTXT ; -- Delete menu help text
  1. ;;Enter actions by typing the names or abbreviations.
  1. ;;
  1. ;;LIST ENTRY PRE-SELECTION:
  1. ;; Certain actions allow the user to pre-select one or more entries
  1. ;; from the Deficiency list. For the IRT Delete Menu option, these
  1. ;; actions are:
  1. ;;
  1. ;; DL -- Delete an IRT
  1. ;; EP -- Expand Deficiency
  1. ;; For example:
  1. ;;
  1. ;; DL=3 ...will process entry #3 using the Delete action.
  1. ;; DL=2 4 5 ...will process entries 2,4,5 using the Delete action.
  1. ;; DL=1-3 ...will process entries 1,2,3 using the Delete action.
  1. ;;
  1. ;; If no entry is pre-selected, the user will be prompted for a
  1. ;; selection.
  1. ;;$PAUSE
  1. ;;ACTION MENU DISPLAY:
  1. ;; The ADPL 'Auto Display(On/Off)' action can be used to turn on/off
  1. ;; the action menu that is displayed at the bottom of the screen.
  1. ;;------------------------------------------------------------------------------
  1. ;;$END
  1. ;
  1. 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
  1. ;for the different types of deficiencies and the divisions if they
  1. ;review IRTs.
  1. 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)
  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
  1. I "^DISCHARGE SUMMARY^INTERIM SUMMARY^OP REPORT^"[DGJTPD S DIC("S")="I ""^COMPLETED^SIGNED^REVIEWED^""'[$P(^DG(393.2,+Y,0),U,1)" Q
  1. S DIC("S")="I ""^COMPLETED^INCOMPLETE^""[$P(^DG(393.2,+Y,0),U,1)" Q
  1. Q