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

BLRINRPT.m

Go to the documentation of this file. 
  1. BLRINRPT ; IHS/MSC/MKK - IHS Lab Patch Reports ; 17-Oct-2014 09:22 ; MKK
  1.  ;;5.2;IHS LABORATORY;**1034**;NOV 01, 1997;Build 88
  1.  ;
  1. EEP ; EP - Ersatz EP
  1.  D EEP^BLRGMENU
  1.  Q
  1.  ;
  1. EP ; EP 
  1. PEP ; EP
  1.  NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)
  1.  ;
  1.  D SETBLRVS
  1.  ;
  1.  D ADDTMENU^BLRGMENU("BACKUP^BLRINRPT","Backup Confirmed By")
  1.  D ADDTMENU^BLRGMENU("INSTALL^BLRINRPT","Installed By")
  1.  ;
  1.  ; Main Menu driver
  1.  D MENUDRVR^BLRGMENU("RPMS Lab","Patch Install Reports")
  1.  Q
  1.  ;
  1. BACKUP ; EP - Report on BACKUP CONFIRMED
  1.  NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)
  1.  ;
  1.  D REPORT("BACKUP CONFIRMED BY","BACKUP")
  1.  ;
  1.  Q
  1.  ;
  1. INSTALL ; EP - Report on INSTALLED BY
  1.  NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)
  1.  ;
  1.  D REPORT("INSTALLED BY","INSTALL")
  1.  ;
  1.  Q
  1.  ;
  1.  ;
  1.  ; ============================= UTILITIES =============================
  1.  ;
  1. SETBLRVS(TWO) ; EP - Set BLRVERN variable(s).  See BLRGMENU routine.
  1.  S BLRVERN=$TR($P($T(+1),";")," ")
  1.  S:$D(TWO) BLRVERN2=TWO
  1.  Q
  1.  ;
  1. REPORT(SUBSTR,TWO) ; EP - Produce the report
  1.  Q:$$INITVARS(SUBSTR_" Report",TWO)="Q"
  1.  ;
  1.  F  S PATCH=$O(^BLRINSTL("LAB PATCH",PATCH))  Q:PATCH<1!(QFLG="Q")  D
  1.  . S (FOUNDIT,NUM)=0
  1.  . F  S NUM=$O(^BLRINSTL("LAB PATCH",PATCH,SUBSTR,NUM))  Q:NUM<1!(QFLG="Q")  D PRNTLINE(PATCH,SUBSTR,NUM)
  1.  . I FOUNDIT D LINER  S PATCHCNT=PATCHCNT+1
  1.  ;
  1.  D ^%ZISC
  1.  Q:QFLG="Q"
  1.  ;
  1.  W !!,?9,PATCHCNT," Patches analyzed.",!
  1.  D PRESSKEY^BLRGMENU(9)
  1.  Q
  1.  ;
  1. INITVARS(SECONDH,SECONDV) ; EP - Initialization
  1.  D SETBLRVS($G(SECONDV))
  1.  ;
  1.  S HEADER(1)="RPMS Lab Patch"
  1.  S HEADER(2)=SECONDH
  1.  ;
  1.  D HEADERDT^BLRGMENU
  1.  D HEADONE^BLRGMENU(.HDRONE)
  1.  ;
  1.  D ^%ZIS
  1.  U IO
  1.  ;
  1.  S HEADER(3)=" "
  1.  ;
  1.  S $E(HEADER(4),20)=$TR($$CJ^XLFSTR("@User@",43)," @","= ")
  1.  S $E(HEADER(5),5)="Patch"
  1.  S $E(HEADER(5),16)="#"
  1.  S $E(HEADER(5),20)="DUZ"
  1.  S $E(HEADER(5),30)="Name"
  1.  S $E(HEADER(5),65)="Date/Time"
  1.  ;
  1.  S MAXLINES=IOSL-4,LINES=MAXLINES+10
  1.  S QFLG="NO"
  1.  S (CNT,PATCH,PATCHCNT,PG)=0
  1.  Q "OK"
  1.  ;
  1. PRNTLINE(PATCH,SUBSTR,NUM) ; EP - Line of Data
  1.  Q:$$PRNTLNBO(PATCH,SUBSTR,NUM)="Q"
  1.  ;
  1.  S FOUNDIT=FOUNDIT+1
  1.  I LINES>MAXLINES D HEADERPG^BLRGMENU(.PG,.QFLG,HDRONE)  Q:QFLG="Q"
  1.  ;
  1.  W ?4,PATCH
  1.  W ?14,$J(NUM,2)
  1.  W ?19,USERDUZ
  1.  W ?29,USERNAME
  1.  W ?64,DATETIME
  1.  D LINERCNT
  1.  Q
  1.  ;
  1. PRNTLNBO(PATCH,SUBSTR,NUM) ; EP - Breakout variables
  1.  S STR=$G(^BLRINSTL("LAB PATCH",PATCH,SUBSTR,NUM))
  1.  S:STR'["^" USERNAME=STR,USERDUZ=""
  1.  S:STR["^" USERDUZ=$P(STR,"^"),USERNAME=$P(STR,"^",2)
  1.  Q:USERDUZ=""&(USERNAME="") "Q"
  1.  ;
  1.  S DATETIME=$P($G(^BLRINSTL("LAB PATCH",PATCH,SUBSTR,NUM,"DATE/TIME")),":",1,2)
  1.  Q "OK"
  1.  ;
  1. LINER ; EP
  1.  W !
  1.  S LINES=LINES+1
  1.  Q
  1.  ;
  1. LINERCNT ; EP
  1.  W !
  1.  S LINES=LINES+1
  1.  S CNT=1+$G(CNT)
  1.  Q