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

ENTIUTL2.m

Go to the documentation of this file.
  1. ENTIUTL2 ;WOIFO/SAB - Find and Sort Equipment Utilities ;2/14/2008
  1. ;;7.0;ENGINEERING;**87**;Aug 17, 1993;Build 16
  1. ;
  1. ASKEQSM(ENAML,ENDM) ; Ask Equipment Selection Method
  1. ; input
  1. ; ENAML = allowed method list, may contain the following characters
  1. ; A = all equipment
  1. ; E = by Entry #
  1. ; C = by CMR
  1. ; U = by using service
  1. ; L = by location
  1. ; S = by service of location
  1. ; example "ECULS"
  1. ; ENDM = (optional) default method
  1. ; returns null if no method selected or
  1. ; piece 1 = A, E, C, U, L, or S if a method was selected
  1. ; piece 2 = specified value when method is C, U, L, or S
  1. ; e.g. "C^12" for CMR with internal entry number = 12
  1. ;
  1. N DIC,DIR,DIROUT,DIRUT,DTOUT,DUOUT,ENRET,ENVAL,X,Y
  1. S ENRET="",ENVAL=""
  1. ;
  1. ; ask method
  1. S DIR(0)="S^"
  1. I ENAML["A" S DIR(0)=DIR(0)_"A:ALL TRACKED IT EQUIPMENT;"
  1. I ENAML["E" S DIR(0)=DIR(0)_"E:ENTRY #;"
  1. I ENAML["C" S DIR(0)=DIR(0)_"C:CMR;"
  1. I ENAML["U" S DIR(0)=DIR(0)_"U:USING SERVICE;"
  1. I ENAML["L" S DIR(0)=DIR(0)_"L:LOCATION;"
  1. I ENAML["S" S DIR(0)=DIR(0)_"S:SERVICE OF LOCATION;"
  1. Q:DIR(0)="S^" ENRET
  1. ; remove trailing ;
  1. I $E(DIR(0),$L(DIR(0)))=";" S DIR(0)=$E(DIR(0),1,$L(DIR(0))-1)
  1. S DIR("A")="Specify method to select equipment by"
  1. I $G(ENDM)]"" S DIR("B")=ENDM
  1. S DIR("?")="Enter a code from the list."
  1. S DIR("?",1)="The system considers tracked IT equipment to be"
  1. S DIR("?",2)="equipment that is on a CMR with IT TRACKING = YES."
  1. S DIR("?",3)=" "
  1. D ^DIR
  1. I '$D(DIRUT) S ENRET=Y
  1. ;
  1. ; ask a value for applicable methods
  1. ;
  1. ; method C - by CMR
  1. I ENRET="C" D
  1. . ; ask CMR
  1. . S DIC("S")="I $P($G(^(0)),U,9)=1" ; screen IT TRACKING = YES
  1. . S DIC="^ENG(6914.1,"
  1. . S DIC(0)="AQEM"
  1. . D ^DIC K DIC I Y<1 S ENRET="" Q
  1. . S ENVAL=+Y
  1. ;
  1. ; method U - by using service
  1. I ENRET="U" D
  1. . ; ask USING SERVICE
  1. . S DIC("S")="I $D(^ENG(6914,""AC"",+Y))" ; screen services with equip
  1. . S DIC="^DIC(49,"
  1. . S DIC(0)="AQEM"
  1. . D ^DIC K DIC I Y<1 S ENRET="" Q
  1. . S ENVAL=+Y
  1. ;
  1. ; method L - by location
  1. I ENRET="L" D
  1. . ; ask LOCATION
  1. . S DIC("S")="I $D(^ENG(6914,""D"",+Y))" ; screen locations with equip
  1. . S DIC="^ENG(""SP"","
  1. . S DIC(0)="AQEM"
  1. . D ^DIC K DIC I Y<1 S ENRET="" Q
  1. . S ENVAL=+Y
  1. ;
  1. ; method S - by service of location
  1. I ENRET="S" D
  1. . ; ask SERVICE
  1. . S DIC("S")="I $D(^ENG(""SP"",""D"",+Y))" ; screen services with space
  1. . S DIC="^DIC(49,"
  1. . S DIC(0)="AQEM"
  1. . D ^DIC K DIC I Y<1 S ENRET="" Q
  1. . S ENVAL=+Y
  1. ;
  1. I ENVAL]"" S ENRET=ENRET_"^"_ENVAL
  1. Q ENRET
  1. ;
  1. ASKIAEQ() ; Ask Include Assigned Equipment
  1. ;
  1. ; returns null if time-out or uparrorw
  1. ; 1 if assigned equipment should be included
  1. ; 0 if not
  1. ;
  1. N DIR,DIROUT,DIRUT,DTOUT,DUOUT,ENRET,X,Y
  1. S ENRET=""
  1. S DIR(0)="Y"
  1. S DIR("A")="Include equipment with an existing active assignment"
  1. S DIR("B")="NO"
  1. D ^DIR
  1. I '$D(DIRUT) S ENRET=Y
  1. Q ENRET
  1. ;
  1. ASKEQSRT(ENSM,ENDM) ; Ask Equipment Sort
  1. ; input ENSM = (optional) selection method
  1. ; if method is E then sort is set to E
  1. ; ENDM = (optional) default sort method
  1. ;
  1. ; returns null if no sort selected
  1. ; E, C, U, L, or S if a sort was selected
  1. ;
  1. N DIR,DIROUT,DIRUT,DTOUT,DUOUT,ENRET,X,Y
  1. S ENRET=""
  1. I $G(ENSM)="E" S ENRET="E"
  1. E D
  1. . S DIR(0)="S^E:ENTRY #;C:CMR;U:USING SERVICE;L:LOCATION;S:SERVICE OF LOCATION"
  1. . S DIR("A")="Sort equipment by"
  1. . I $G(ENDM)]"" S DIR("B")=ENDM
  1. . D ^DIR K DIR
  1. . I '$D(DIRUT) S ENRET=Y
  1. Q ENRET
  1. ;
  1. GETEQ(ENSM,ENVAL,ENSRT,ENIA) ; Get Equipment
  1. ; input ENSM = selection method (A, E, C, U, L, or S)
  1. ; NOTE: E method is interactive, while the others are not
  1. ; ENVAL = value when method is C, U, L, or S (e.g. ien of CMR)
  1. ; ENSRT = sort by (E, C, U, L, or S) - must be E for method E
  1. ; ENIA = 1 (include) or 0 (don't include) equip w/active assign
  1. ; this does not apply to method E
  1. ; optional, default = 1
  1. ; output
  1. ; ^TMP($J,"ENITEQ",0)=count^method^specified value^sort
  1. ; ^TMP($J,"ENITEQ",sort value,equip ien)="" list of equipment
  1. ;
  1. N ENCMR,ENCNT,END,ENDA
  1. K ^TMP($J,"ENITEQ")
  1. S ENVAL=$G(ENVAL)
  1. S ENSRT=$G(ENSRT,"E")
  1. S ENIA=$G(ENIA,1)
  1. S ENCNT=0,END=0
  1. ;
  1. ; method A - all tracked equipment
  1. I ENSM="A" D
  1. . ; loop thru CMRs with IT TRACKING = YES
  1. . S ENCMR=0 F S ENCMR=$O(^ENG(6914.1,"AIT",1,ENCMR)) Q:'ENCMR D
  1. . . ; loop thru equipment on CMR
  1. . . S ENDA=0 F S ENDA=$O(^ENG(6914,"AD",ENCMR,ENDA)) Q:'ENDA D
  1. . . . I 'ENIA,$D(^ENG(6916.3,"AEA",ENDA)) Q ; chose to excl. assigned
  1. . . . D SETTMP
  1. ;
  1. ; method E - by individual equipment (interactive)
  1. I ENSM="E" D
  1. . N DA,DIC,DIR,DIROUT,DIRUT,DTOUT,DUOUT,ENSCR,X,Y
  1. . ; screen by CMR:IT TRACKING
  1. . S ENSCR="N ENCMR S ENCMR=$P($G(^(2)),U,9) I ENCMR,$D(^ENG(6914.1,""AIT"",1,ENCMR))"
  1. . ; ask equipment in loop
  1. . F S DIC("S")=ENSCR D GETEQ^ENUTL Q:Y<1 D Q:END
  1. . . S ENDA=+Y
  1. . . ; display equip
  1. . . W @(IOF)
  1. . . D DISEQ^ENTIUTL(ENDA)
  1. . . W !
  1. . . D DISASGN^ENTIUTL(ENDA)
  1. . . ;
  1. . . ; check if already selected (sort is always "E" for this method)
  1. . . I $D(^TMP($J,"ENITEQ","NA",ENDA)) D Q
  1. . . . W !!,"This equipment item has already been selected."
  1. . . . W !,"If all desired equipment has been selected then press RETURN"
  1. . . . W !,"at the equipment selection prompt."
  1. . . ;
  1. . . ; ask confirmation
  1. . . W !
  1. . . S DIR(0)="Y",DIR("A")="Do you want to select this item"
  1. . . D ^DIR I $D(DIRUT) S END=1 Q
  1. . . I 'Y Q
  1. . . ;
  1. . . ; user confirmed
  1. . . D SETTMP
  1. ;
  1. ; method C - by CMR
  1. I ENSM="C" D
  1. . ; loop thru equipment on the CMR
  1. . S ENDA=0 F S ENDA=$O(^ENG(6914,"AD",ENVAL,ENDA)) Q:'ENDA D
  1. . . I 'ENIA,$D(^ENG(6916.3,"AEA",ENDA)) Q ; chose to exclude assigned
  1. . . D SETTMP
  1. ;
  1. ; method U - by using service
  1. I ENSM="U" D
  1. . ; loop thru equipment with this using service
  1. . S ENDA=0 F S ENDA=$O(^ENG(6914,"AC",ENVAL,ENDA)) Q:'ENDA D
  1. . . S ENCMR=$P($G(^ENG(6914,ENDA,2)),U,9)
  1. . . Q:'ENCMR ; not on a cmr
  1. . . Q:$P($G(^ENG(6914.1,ENCMR,0)),U,9)'=1 ; IT tracking not yes
  1. . . I 'ENIA,$D(^ENG(6916.3,"AEA",ENDA)) Q ; chose to exclude assigned
  1. . . D SETTMP
  1. ;
  1. ; method L - by location
  1. I ENSM="L" D
  1. . ; loop thru equipment in this location
  1. . S ENDA=0 F S ENDA=$O(^ENG(6914,"D",ENVAL,ENDA)) Q:'ENDA D
  1. . . S ENCMR=$P($G(^ENG(6914,ENDA,2)),U,9)
  1. . . Q:'ENCMR ; not on a cmr
  1. . . Q:$P($G(^ENG(6914.1,ENCMR,0)),U,9)'=1 ; IT tracking not yes
  1. . . I 'ENIA,$D(^ENG(6916.3,"AEA",ENDA)) Q ; chose to exclude assigned
  1. . . D SETTMP
  1. ;
  1. ; method S - by service of location
  1. I ENSM="S" D
  1. . N ENSP
  1. . ; loop thru locations with this service
  1. . S ENSP=0 F S ENSP=$O(^ENG("SP","D",ENVAL,ENSP)) Q:'ENSP D
  1. . . ; loop thru equipment with this location
  1. . . S ENDA=0 F S ENDA=$O(^ENG(6914,"D",ENSP,ENDA)) Q:'ENDA D
  1. . . . S ENCMR=$P($G(^ENG(6914,ENDA,2)),U,9)
  1. . . . Q:'ENCMR ; not on a cmr
  1. . . . Q:$P($G(^ENG(6914.1,ENCMR,0)),U,9)'=1 ; IT tracking not yes
  1. . . . I 'ENIA,$D(^ENG(6916.3,"AEA",ENDA)) Q ; chose to exclude assigned
  1. . . . D SETTMP
  1. ;
  1. ; set output header node
  1. S ^TMP($J,"ENITEQ",0)=ENCNT_U_ENSM_U_ENVAL_ENSRT
  1. ;
  1. Q
  1. ;
  1. SETTMP ; save equipment in sorted TMP global
  1. N ENSRTV
  1. S ENSRTV=""
  1. I ENSRT="E" S ENSRTV="NA"
  1. I ENSRT="C" S ENSRTV=$$GET1^DIQ(6914,ENDA,19) ; cmr
  1. I ENSRT="U" S ENSRTV=$$GET1^DIQ(6914,ENDA,21) ; service
  1. I ENSRT="L" S ENSRTV=$$GET1^DIQ(6914,ENDA,24) ; location
  1. I ENSRT="S" S ENSRTV=$$GET1^DIQ(6914,ENDA,"24:1.5") ; svc of loc
  1. I ENSRTV="" S ENSRTV=" <null>"
  1. S ^TMP($J,"ENITEQ",ENSRTV,ENDA)=""
  1. S ENCNT=ENCNT+1
  1. Q
  1. ;
  1. ;ENTIUTL2