ENTIRRNA ;WOIFO/SAB - IT Equipment Not Assigned Report ;2/4/2008 ;;7.0;ENGINEERING;**87**;Aug 17, 1993;Build 16 ; N ENBFMT,ENSM,ENSMV,ENSRT,ENX,ENY N DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y ; ; ask equipment selection method S ENX=$$ASKEQSM^ENTIUTL2("ACULS") S ENSM=$P(ENX,U),ENSMV=$P(ENX,U,2) Q:"^A^C^U^L^S^"'[(U_ENSM_U) ; ; ask sort S ENSRT=$$ASKEQSRT^ENTIUTL2(ENSM) Q:ENSRT="" ; user time-out or '^' ; ; ask format S DIR(0)="Y" S DIR("A")="Do you want the brief display format" S DIR("B")="YES" D ^DIR K DIR Q:$D(DIRUT) S ENBFMT=Y ; ; ask device S %ZIS="Q" D ^%ZIS G:POP EXIT I $D(IO("Q")) D G EXIT . S ZTRTN="QEN^ENTIRRNA",ZTDESC="IT Equipment Not Assigned Report" . F ENY="ENSM","ENSMV","ENSRT","ENBFMT" S ZTSAVE(ENY)="" . D ^%ZTLOAD,HOME^%ZIS K ZTSK,IO("Q") ; QEN ; queued entry U IO ; ; generate output K ENT S ENT=0 S (END,ENPG)=0 D NOW^%DTC S Y=% D DD^%DT S ENDT=Y ; ; build header line 2 string S ENHL2=$$BLDHL2^ENTIUTL(ENSM,ENSMV,ENSRT) ; D HD ; ; build sorted list of equipment D GETEQ^ENTIUTL2(ENSM,ENSMV,ENSRT,0) ; ; print equipment ; loop thru sort value S ENSRTV="" F S ENSRTV=$O(^TMP($J,"ENITEQ",ENSRTV)) Q:ENSRTV="" D Q:END . ; loop thru equipment . S ENDA=0 . F S ENDA=$O(^TMP($J,"ENITEQ",ENSRTV,ENDA)) Q:'ENDA D Q:END . . S ENT=ENT+1 . . ; display equipment data . . I $Y+$S(ENBFMT:5,1:8)>IOSL D HD Q:END . . I ENBFMT D . . . S ENCMR=$$GET1^DIQ(6914,ENDA,19) . . . S ENLOC=$$GET1^DIQ(6914,ENDA,24) . . . S ENSVC=$$GET1^DIQ(6914,ENDA,21) . . . S ENNAM=$$GET1^DIQ(6914,ENDA,3) . . . W !,ENDA,?12,ENCMR,?19,ENLOC,?41,ENSVC . . . W !,?2,$E(ENNAM,1,78) . . E D CAPEQ^ENTIUTL(ENDA,"HD^ENTIRRNA",,.END) Q:END . . W ! ; I 'END D . ; report footer . I $Y+4>IOSL D HD Q:END . W !!,"Count of IT equipment items on report = ",ENT . I $E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR ; D ^%ZISC ; EXIT I $D(ZTQUEUED) S ZTREQ="@" K ^TMP($J,"ENITEQ") K DIR,DIROUT,DIRUT,DIWF,DIWL,DTOUT,DUOUT,POP,X,Y K ENBFMT,ENCMR,ENDA,ENHL2,ENLOC,ENNAM,ENSM,ENSMV K ENSRT,ENSRTV,ENSVC,ENT,END,ENDT,ENPG Q ; HD ; header I $E(IOST,1,2)="C-",ENPG S DIR(0)="E" D ^DIR K DIR I 'Y S END=1 Q I $E(IOST,1,2)="C-"!ENPG W @IOF S ENPG=ENPG+1 W "IT EQUIPMENT NOT ASSIGNED REPORT",?48,ENDT,?72,"page ",ENPG W !,ENHL2,! I ENBFMT D . W !,"Entry #",?12,"CMR",?19,"Location",?41,"Using Service" . W !,"---------",?12,"-----",?19,"--------------------" . W ?41,"------------------------------" Q ; ;ENTIRRNA