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

AZXZSUP5.m

Go to the documentation of this file. 
  1. AZXZSUP5 ;SUPPORT DATABASE PROGRAM[ 08/25/92  8:56 AM ]
  1.  ;05/07/92  JOHN H. LYNCH
  1.  ;
  1.  ;THIS ROUTINE WILL ALLOW A USER TO PRINT OUT
  1.  ;A LIST OF PROBLEM CODES CURRENTLY BEING USED
  1.  ;WITH THE SUPPORT LOG DATABASE.  A KEY IS GIVEN
  1.  ;FOR AN EASY UNDERSTANDING OF HOW THE PROBLEM CODES
  1.  ;ARE USED, THEN A LIST OF THE PROBLEM CODES IN
  1.  ;THEIR CATAGORIES ARE GIVEN.
  1.  
  1. MAIN ;AZXZSUP5 PROGRAM CONTROL
  1.  ;INITIALIZE LOCAL VARIABLES
  1.  S FILE="1991011"          ;FILE NUMBER (PROBCODE)
  1.  
  1.  W @IOF                    ;CLEAR SCREEN
  1.  W !!!,"Problem Code Print..."
  1. KEYPRNT ;SUB-ROUTINE OF MAIN
  1.  W !!,"Would you like to print out a Key"
  1.  R !,"for the Problem Code Print: Y// ",KEY
  1.  I KEY="^" G KILLVARS
  1.  I KEY="?" W !!,"The ""Problem Code Key Print"" gives a brief description",!,"of the current types of problem codes and their sub-classes." G KEYPRNT
  1.  I KEY="" S KEY="Y"
  1.  D SETDATE                 ;CALL SETDATE SUB-ROUTINE
  1.  D ^%ZIS U IO              ;CALL DEVICE
  1.  I KEY="Y" D PRNTKEY       ;CALL PRINTKEY SUB-ROUTINE
  1.  D PRNTCODE                ;CALL PRINTOUT SUB-ROUTINE
  1.  X ^%ZIS("C")              ;CLOSE DEVICE
  1.  
  1.  R !!,"Do you want to print another Problem Code List? Y// ",YN
  1.  I YN="" S YN="Y"
  1.  I YN="Y" G MAIN
  1. KILLVARS ;SUB-ROUTINE OF MAIN
  1.  ;K 
  1.  Q
  1.  
  1. SETDATE ;SET DATE = CURRENT DATE FOR REPORT
  1.  S Y=DT                ;SET Y TO CURRENT DATE FOR REPORT OUTPUT
  1.  D DD^%DT              ;CONVERT CURRENT DATE
  1.  S DATE=Y              ;REPORT DATE
  1.  Q
  1.  
  1. PRNTKEY ;PRINT OUT KEY FOR PROBLEM CODE PRINT
  1.  
  1.  W !,"________________________________________________________________________________",!
  1.  W !,"Problem Code Key Print",?63,DATE
  1.  W !,"________________________________________________________________________________",!
  1.  W !!,"A   = ADMINISTRATIVE PROBLEM"
  1.  W !!,"F   = FTS SUPPORT CALL"
  1.  W !!,"H   = HARDWARE PROBLEM"
  1.  W !!,"HP  = HARDWARE PROCUREMENT"
  1.  W !!,"M   = MUMPS SUPPORT CALL"
  1.  W !!,"ME  = MUMPS ERROR"
  1.  W !!,"MSW = MUMPS SOFTWARE ADDED"
  1.  W !!,"O   = OPERATING SYSTEM PROBLEM"
  1.  W !!,"S   = SOFTWARE PACKAGE PROBLEM"
  1.  W !!,"U   = UNIX SUPPORT CALL"
  1.  W !!,"UE  = UNIX ERROR"
  1.  W !!!,"The ""Problem Code Key Print"" helps in identifying a sub-class"
  1.  W !,"of the current problem codes.  Every problem begins with a prefix"
  1.  W !,"of up to three letters that helps identify its sub-class.  As an"
  1.  W !,"example, any problem code that starts with, ME, would be identified"
  1.  W !,"with the sub-class for a problem which involved an error in mumps"
  1.  W !,"(M=Mumps, E=Error)."
  1.  H 2
  1.  W @IOF     ;CLEAR SCREEN (ADVANCE A PAGE)
  1.  Q
  1.  
  1. PRNTCODE ;PRINT OUT PROBLEM CODE PRINT
  1.  ;INITIALIZE LOCAL VARIABLES
  1.  S COUNT=1             ;COUNT = CURRENT LABEL NUMBER TO PRINT
  1.  S INUM=0              ;INTERNAL ENTRY NUMBER
  1.  S CODE=0              ;START CODE AT BEGINNING OF PROBCODES
  1.  
  1.  W @IOF                ;CLEAR SCREEN WHEN OUTPUT TO TERMINAL
  1.  W !,"________________________________________________________________________________",!
  1.  W !,"Problem Code Print",?63,DATE
  1.  W !,"Code",?13,"Description"
  1.  W !,"________________________________________________________________________________",!
  1.  F  S INUM=0,CODE=$O(^DIZ(FILE,"B",CODE)) Q:CODE=""  D SETINUM D CHKHEAD D PRNTOUT
  1.  Q
  1.  
  1. SETINUM ;SET THE INTERNAL NUMBER FOR EACH ENTRY  
  1.  S INUM=$O(^DIZ(FILE,"B",CODE,INUM))
  1.  Q
  1.  
  1. CHKHEAD ;CHECK TO SEE IF A NEW HEADING IS NEEDED
  1.  ;FOR EACH PROBCODE TYPE (SEE KEY)
  1.  I ($F(CODE,"A",1)=2)&(COUNT=1) S COUNT=COUNT+1 W !!,"Administrative Problem Codes...",!
  1.  I ($F(CODE,"F",1)=2)&(COUNT=2) S COUNT=COUNT+1 W !!,"FTS Problem Codes...",!
  1.  I ($F(CODE,"H",1)=2)&(COUNT=3) S COUNT=COUNT+1   W !!,"Hardware Problem Codes...",!
  1.  I ($F(CODE,"M",1)=2)&(COUNT=4) S COUNT=COUNT+1   W !!,"Mumps Problem Codes...",!
  1.  I ($F(CODE,"O",1)=2)&(COUNT=5) S COUNT=COUNT+1   W !!,"Operating System Problem Codes...",!
  1.  I ($F(CODE,"S",1)=2)&(COUNT=6) S COUNT=COUNT+1   W !!,"Software Problem Codes...",!
  1.  I ($F(CODE,"U",1)=2)&(COUNT=7) S COUNT=COUNT+1   W !!,"Unix Problem Codes...",!
  1.  Q
  1.  
  1. PRNTOUT ;PRINT OUT ACTUAL DATA 
  1.  W !,$P(^DIZ(FILE,INUM,0),U),?13,$P(^DIZ(FILE,INUM,0),U,2)
  1.  Q