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

AZHLSCA.m

Go to the documentation of this file. 
  1. AZHLSCA ;IHS/ADC/GTH:KEU:JGN - SELECT INSTALL FILE ROUTINES ;  [ 10/05/1999  2:16 PM ]
  1.  ;;5.0;AZHLSC;;JUNE 29, 1999
  1.  ; DIC WILL SELECT THE INSTALL FILE, ROUTINES ARE RETREIVED AND PLACED IN THE ^UTILITY($J,ROUTINE)="" FILE
  1. EN K ^UTILITY($J),^TMP($J,"Z"),I,AZHLSCRE,AZHLSCR2,AZHLSCR3,AZHLPAT,AZHLPATS,DTOUT,DUOUT,AZHLNF S (AZHLSCR1,AZHLSC4I)=0
  1.  ;DIR TO READ INSTALL FILE OR USE %RSEL TO READ ALL ROUTINES
  1.  ;
  1.  S DIR(0)="Y",DIR("A")="SAC CHK, SELECT INSTALL FILE ROUTINES //YES ",DIR("B")="Y" D ^DIR G:Y="^"!(Y="") SELROUTI I Y(0)="NO" G SELROUTI I $D(DTOUT)!$D(DUOUT) G SELROUTI
  1.  W !
  1.  K DIC("A"),Y,DIR("B")
  1.  S DIC(0)="EAQ",DIC="^XPD(9.7," D ^DIC S AZHLSCRE=$P(Y,"^",1)
  1.  I Y=-1!($P(Y,"^",1)="") G SELROUTI
  1.  W !
  1.  ;SELECT BY PATCH NUMBER OR HIT RETURN SELECTS ALL ROUTINES IN INSTALL FILE
  1.  ;
  1.  S DIR(0)="NO^1:9999",DIR("A")="ENTER ONE PATCH NUMBER OR HIT RETURN(ALL ROUTINES)" D ^DIR I Y="" G ALLROUTI
  1.  I Y="^" G SELROUTI
  1.  W !
  1. PATCHROU I Y>0 S AZHLPAT=Y D SELPATCH I AZHLSC4I=1 G SELROUTI
  1.  I Y=0 G ALLROUTI
  1.  ;AZHLNF  = 1 PATCH FOUND
  1.  I '$D(AZHLNF) G SELPATI
  1.  ;
  1. ALLROUTI K DIC("A"),Y,DIR("B")
  1.  ;USE COUNT OF ROUTINES IN  O NODE PIECE 4 TO TERMINATE LOOP
  1.  S AZHLSCR3=$P($G(^XPD(9.7,AZHLSCRE,"RTN",0)),"^",4) G:AZHLSCR3=0 SELROUTI
  1.  ;SEARCH FOR ALL ROUTINES IN INSTALL FILE
  1.  ;
  1.  F I=1:1:AZHLSCR3 S AZHLSCR1=$O(^XPD(9.7,AZHLSCRE,"RTN",AZHLSCR1)) Q:AZHLSCR1="B"  S AZHLSCR2=^XPD(9.7,AZHLSCRE,"RTN",AZHLSCR1,0),^UTILITY($J,AZHLSCR2)="" 
  1.  I AZHLSCRE="" G SELROUTI ; DO NOT SET AZHLSC4I IF ROUTINES NOT SELECTED
  1.  ;          AZHLSC4I = 0 SELECT ROUTINES %RSEL 
  1.  ;          AZHLSC4I = 1 SELECTED ROUTINES FROM INSTALL FILE
  1.  S AZHLSC4I=1
  1. SELROUTI ;
  1.  K DIC("A"),Y,DIR("B"),AZHLSCREC,AZHLSCR2,AZHLSCR3,AZHLSCR1,DTOUT,DUOUT,AZHLSCNF
  1.  Q
  1. SELPATCH ; SELECT ROUTINES BY PATCH NUMBER FROM INSTALL FILE
  1.  ;USE COUNT OF ROUTINES O NODE PIECE 4 TO TERMINATE LOOP
  1.  S AZHLSCR3=$P($G(^XPD(9.7,AZHLSCRE,"RTN",0)),"^",4) Q:AZHLSCR3=0 
  1.  ;SELECT ROUTINES IN INSTALL FILES TO SEARCH FOR PATCH NUMBER
  1.  ;
  1.  F I=1:1:AZHLSCR3 S AZHLSCR1=$O(^XPD(9.7,AZHLSCRE,"RTN",AZHLSCR1)) Q:AZHLSCR1="B"  S AZHLSCR2=^XPD(9.7,AZHLSCRE,"RTN",AZHLSCR1,0) D SECLINE
  1.  Q
  1. SELPATI ;
  1.  I AZHLSC4I=1 G ENDPATCH
  1.  W !,"PATCH NUMBER (",AZHLPAT,") NOT FOUND, TO CONTINUE SELECT ROUTINES",!
  1. ENDPATCH Q
  1.  ;READ ROUTINE INTO ^TMP($J,"Z") TO CHECK SEC LINE FOR PATCH NUMBER
  1.  ;
  1. SECLINE ;SEARCH FOR PATCH NUMBER IN SECOND LINE OF ROUTINE
  1.  S X=AZHLSCR2,XCNP=0,DIF="^TMP($J,""Z"","
  1.  X ^%ZOSF("LOAD")
  1.  ;VARIABLE AZHLPATS IS SET TO PATCH NUMBERS IN PIECE FIVE OF RECORD
  1.  S AZHLPATS=$P($G(^TMP($J,"Z",2,0)),";",5) G:AZHLPATS="" PATEND S AZHLPATS=$P(AZHLPATS,"**",2)_",0"
  1.  F II=1:1 D:AZHLPAT=$P(AZHLPATS,",",II) UTILIREC Q:$P(AZHLPATS,",",II)=0
  1. PATEND ;NO PATCH FOUND IN PATCH PIECE
  1.  ; AZHLSCNF = 1 PATCH NOT FOUND
  1.  ;
  1.  I AZHLSC4I=0 S AZHLSCNF=1
  1.  Q
  1.  ;
  1.  ;SET ROUTINE NAME IN ^UTILITY($J,ROUTINE NAME) TO PASS TO SAC CHECKER
  1.  ;
  1. UTILIREC ;  SET ROUTINE RECORD TO BE PASSED TO ^AZHLSC
  1.  ;          AZHLSC4I = 0 SELECT ROUTINES %RSEL 
  1.  ;          AZHLSC4I = 1 SELECTED ROUTINES FROM INSTALL FILE
  1.  S ^UTILITY($J,AZHLSCR2)="",AZHLSC4I=1 Q