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

FSCRPCGJ.m

Go to the documentation of this file.
  1. FSCRPCGJ ;SLC/STAFF-NOIS RPC Patch Report Summary ;1/13/98 15:46
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. PATCH(PATCH) ; from FSCRPCG
  1. N CNT,LINE,NUM,PACKZERO,ZERO
  1. S CNT=0
  1. S ZERO=$G(^A1AE(11005,+$G(PATCH),0)) I '$L(ZERO) Q
  1. I '$L(ZERO) Q
  1. S PACKZERO=$G(^DIC(9.4,+$P(ZERO,U,2),0))
  1. D SET("=============================================================================",.CNT)
  1. S LINE="Run Date: "_$$FMTE^XLFDT(DT)
  1. S LINE=$$SETSTR^VALM1("Designation: ",LINE,46,13)_$P(ZERO,U)
  1. D SET(LINE,.CNT)
  1. S LINE="Package : "_$P(PACKZERO,U,2)_" - "_$P(PACKZERO,U)
  1. S LINE=$$SETSTR^VALM1(" Priority: ",LINE,46,13)_$$PRIORITY($P(ZERO,U,7))
  1. D SET(LINE,.CNT)
  1. S LINE="Version : "_$P(ZERO,U,3)
  1. I $P(ZERO,U,6) S LINE=$$SETSTR^VALM1("SEQ #"_$P(ZERO,U,6),LINE,23,12)
  1. S LINE=$$SETSTR^VALM1(" Status: ",LINE,46,13)_$$STATUS($P(ZERO,U,8))
  1. D SET(LINE,.CNT)
  1. D SET("=============================================================================",.CNT)
  1. D SET("",.CNT)
  1. D ASSOC(PATCH,.CNT)
  1. D SET("",.CNT)
  1. S LINE="Subject: "_$P(ZERO,U,5)
  1. D SET(LINE,.CNT)
  1. D SET("",.CNT)
  1. I $P(ZERO,U,8)'="v" Q ; *** don't display unreleased patch
  1. D SET("Category",.CNT)
  1. S NUM=0 F S NUM=$O(^A1AE(11005,PATCH,"C",NUM)) Q:NUM<1 S LINE=^(NUM,0) D
  1. .S LINE=$$CATEGORY(LINE,$P(ZERO,U,7))
  1. .I LINE="e" D
  1. ..S LINE="Enhancement ("
  1. ..I $P(ZERO,U,7)="m" S LINE=LINE_"Mandatory)" Q
  1. ..I $P(ZERO,U,7)="n" S LINE=LINE_"Optional)" Q
  1. ..S LINE=LINE_")"
  1. .D SET(" - "_LINE,.CNT)
  1. D SET("",.CNT)
  1. D SET("Description",.CNT)
  1. D SET("===========",.CNT)
  1. D SET("",.CNT)
  1. S NUM=0 F S NUM=$O(^A1AE(11005,PATCH,"D",NUM)) Q:NUM<1 S LINE=" "_^(NUM,0) D
  1. .D SET(LINE,.CNT)
  1. D SET("",.CNT)
  1. D SET("================================================================================",.CNT)
  1. S LINE="User Information:"
  1. D SET(LINE,.CNT)
  1. S LINE="Entered By : "_$P($G(^VA(200,+$P(ZERO,U,9),0)),U)
  1. S LINE=$$SETSTR^VALM1(" Date Entered : ",LINE,50,16)
  1. I $P(ZERO,U,12) S LINE=LINE_$$FMTE^XLFDT($P(ZERO,U,12))
  1. D SET(LINE,.CNT)
  1. S LINE="Completed By: "_$P($G(^VA(200,+$P(ZERO,U,13),0)),U)
  1. S LINE=$$SETSTR^VALM1("Date Completed: ",LINE,50,16)
  1. I $P(ZERO,U,10) S LINE=LINE_$$FMTE^XLFDT($P(ZERO,U,10))
  1. D SET(LINE,.CNT)
  1. S LINE="Released By : "_$P($G(^VA(200,+$P(ZERO,U,14),0)),U)
  1. S LINE=$$SETSTR^VALM1(" Date Released: ",LINE,50,16)
  1. I $P(ZERO,U,11) S LINE=LINE_$$FMTE^XLFDT($P(ZERO,U,11))
  1. D SET(LINE,.CNT)
  1. D SET("================================================================================",.CNT)
  1. Q
  1. ;
  1. ASSOC(PATCH,CNT) ;
  1. I '$D(^A1AE(11005,+$G(PATCH),"Q","B")) Q
  1. N AN,AZ,APATCH,AZERO,NUM K AZ
  1. S NUM=0 F S NUM=$O(^A1AE(11005,PATCH,"Q",NUM)) Q:NUM<1 S AZERO=$G(^(NUM,0)) I $L(AZERO) D
  1. .S APATCH=+AZERO
  1. .S AZ(APATCH)=$S($D(^A1AE(11005,APATCH,0)):"("_$P(^(0),U,8)_")"_$P(^(0),U),1:"patch not available")
  1. .I AZ(APATCH)["*999*" S AZ(APATCH)=$P(AZ(APATCH),"*999*")_"*DBA*"_$P(AZ(APATCH),"*999*",2,99)
  1. .I $P(AZERO,U,2)="y" S AZ("STOP",APATCH)=AZ(APATCH),AZ(APATCH)=$E(AZ(APATCH)_" ",1,15)_"<<= must be installed BEFORE '"_$P(^A1AE(11005,PATCH,0),U)_"'"
  1. .E S AZ(APATCH)=$E(AZ(APATCH)_" ",1,19)_"install with patch '"_$P(^A1AE(11005,PATCH,0),U)_"'"
  1. I $D(AZ)'=11 Q
  1. S AN=0
  1. S AZ=0 F S AZ=$O(AZ(AZ)) Q:'AZ I AZ(AZ)'["<<" D PSET(.AN,.AZ,.CNT)
  1. S AZ=0 F S AZ=$O(AZ(AZ)) Q:'AZ I AZ(AZ)["<<" D PSET(.AN,.AZ,.CNT)
  1. K AZ
  1. Q
  1. ;
  1. PSET(AN,AZ,CNT) ;
  1. S AN=AN+1
  1. I AN=1 D SET("Associated patches: "_AZ(AZ),.CNT) Q
  1. E D SET(" "_AZ(AZ),.CNT)
  1. Q
  1. ;
  1. SET(LINE,CNT) ;
  1. S CNT=CNT+1
  1. S ^TMP("FSCRPC",$J,"OUTPUT",PATCH,CNT)=LINE
  1. Q
  1. PRIORITY(PRI) ; $$(priortiy) -> external value
  1. I PRI="p" Q "Patch for a Patch"
  1. I PRI="n" Q "Not Urgent"
  1. I PRI="m" Q "Mandatory"
  1. I PRI="e" Q "EMERGENCY"
  1. I PRI="i" Q "Informational"
  1. Q ""
  1. ;
  1. STATUS(STATUS) ; $$(status) -> external value
  1. I STATUS="c" Q "Completed/NotReleased"
  1. I STATUS="e" Q "Entered in Error"
  1. I STATUS="u" Q "Under Development"
  1. I STATUS="v" Q "Released"
  1. I STATUS="r" Q "Retired"
  1. Q ""
  1. ;
  1. CATEGORY(CAT,PRI) ; $$(category, priority) -> external value
  1. I CAT="d" Q "Data Dictonary"
  1. I CAT="i" Q "Input Template"
  1. I CAT="p" Q "Print Template"
  1. I CAT="r" Q "Routine"
  1. I CAT="s" Q "Sort Template"
  1. I CAT="o" Q "Other"
  1. I CAT="db" Q "Database"
  1. I CAT="pp" Q "PATCH FOR A PATCH"
  1. I CAT="inf" Q "Informational"
  1. I CAT="e" Q "Enhancement ("_$S(PRI="m":"Mandatory",PRI="n":"Optional",1:"")_")"
  1. I CAT="d" Q "Data Dictonary"
  1. Q ""
  1. ;
  1. TEST ;
  1. N NUM,PATCH
  1. S PATCH=5800
  1. D PATCH(PATCH)
  1. S NUM=0 F S NUM=$O(^TMP("FSCRPC",$J,"OUTPUT",PATCH,NUM)) Q:NUM<1 W !,^(NUM)
  1. Q