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

ENTIRRU.m

Go to the documentation of this file.
  1. ENTIRRU ;WOIFO/SAB - Assignments Pending Acceptance Report ;2/4/2008
  1. ;;7.0;ENGINEERING;**87**;Aug 17, 1993;Build 16
  1. ;
  1. N ENBFMT,ENSM,ENSMV,ENSRT,ENX,ENY
  1. N DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
  1. ;
  1. ; ask equipment selection method
  1. S ENX=$$ASKEQSM^ENTIUTL2("ACULS")
  1. S ENSM=$P(ENX,U),ENSMV=$P(ENX,U,2)
  1. Q:"^A^C^U^L^S^"'[(U_ENSM_U)
  1. ;
  1. ; ask sort
  1. S ENSRT=$$ASKEQSRT^ENTIUTL2(ENSM)
  1. Q:ENSRT="" ; user time-out or '^'
  1. ;
  1. ; ask format
  1. S DIR(0)="Y"
  1. S DIR("A")="Do you want the brief display format"
  1. S DIR("B")="YES"
  1. D ^DIR K DIR Q:$D(DIRUT)
  1. S ENBFMT=Y
  1. ;
  1. ; ask device
  1. S %ZIS="Q" D ^%ZIS G:POP EXIT
  1. I $D(IO("Q")) D G EXIT
  1. . S ZTRTN="QEN^ENTIRRU",ZTDESC="Assignments Pending Acceptance Report"
  1. . F ENY="ENSM","ENSMV","ENSRT","ENBFMT" S ZTSAVE(ENY)=""
  1. . D ^%ZTLOAD,HOME^%ZIS K ZTSK,IO("Q")
  1. ;
  1. QEN ; queued entry
  1. U IO
  1. ;
  1. ; generate output
  1. K ENT S ENT=0,ENT("A")=0
  1. S (END,ENPG)=0 D NOW^%DTC S Y=% D DD^%DT S ENDT=Y
  1. ;
  1. ; build header line 2 string
  1. S ENHL2=$$BLDHL2^ENTIUTL(ENSM,ENSMV,ENSRT)
  1. ;
  1. D HD
  1. ;
  1. ; build sorted list of equipment
  1. K ^TMP($J,"ENITASGN")
  1. ; loop thru unsigned assignments by owner
  1. S ENOWN=0 F S ENOWN=$O(^ENG(6916.3,"AOU",ENOWN)) Q:'ENOWN D
  1. . S ENDA=0 F S ENDA=$O(^ENG(6916.3,"AOU",ENOWN,ENDA)) Q:'ENDA D
  1. . . ; apply screen (if any) for selection method and value
  1. . . I ENSM="C",$$GET1^DIQ(6916.3,ENDA,".01:19","I")'=ENSMV Q
  1. . . I ENSM="U",$$GET1^DIQ(6916.3,ENDA,".01:21","I")'=ENSMV Q
  1. . . I ENSM="L",$$GET1^DIQ(6916.3,ENDA,".01:24","I")'=ENSMV Q
  1. . . I ENSM="S",$$GET1^DIQ(6916.3,ENDA,".01:24:1.5","I")'=ENSMV Q
  1. . . ; passed all screens
  1. . . ;
  1. . . ; determine sort value
  1. . . S ENSRTV=""
  1. . . S ENEQ=$$GET1^DIQ(6916.3,ENDA,.01)
  1. . . I ENSRT="E" S ENSRTV=ENEQ
  1. . . I ENSRT="C" S ENSRTV=$$GET1^DIQ(6914,ENEQ,19) ; cmr
  1. . . I ENSRT="U" S ENSRTV=$$GET1^DIQ(6914,ENEQ,21) ; servce
  1. . . I ENSRT="L" S ENSRTV=$$GET1^DIQ(6914,ENEQ,24) ; location
  1. . . I ENSRT="S" S ENSRTV=$$GET1^DIQ(6914,ENEQ,"24:1.5") ; svc of loc
  1. . . I ENSRTV="" S ENSRTV=" <null>"
  1. . . ;
  1. . . ; save in tmp
  1. . . S ^TMP($J,"ENITASGN",ENSRTV,ENEQ,ENDA)=""
  1. ;
  1. ; print equipment & unsigned assignments
  1. ; loop thru sort value
  1. S ENSRTV=""
  1. F S ENSRTV=$O(^TMP($J,"ENITASGN",ENSRTV)) Q:ENSRTV="" D Q:END
  1. . ; loop thru equipment
  1. . S ENEQ=0
  1. . F S ENEQ=$O(^TMP($J,"ENITASGN",ENSRTV,ENEQ)) Q:'ENEQ D Q:END
  1. . . S ENT=ENT+1
  1. . . ; display equipment data
  1. . . I $Y+$S(ENBFMT:5,1:8)>IOSL D HD Q:END
  1. . . I ENBFMT D
  1. . . . S ENCMR=$$GET1^DIQ(6914,ENEQ,19)
  1. . . . S ENLOC=$$GET1^DIQ(6914,ENEQ,24)
  1. . . . S ENSVC=$$GET1^DIQ(6914,ENEQ,21)
  1. . . . S ENNAM=$$GET1^DIQ(6914,ENEQ,3)
  1. . . . W !,ENEQ,?12,ENCMR,?19,ENLOC,?41,ENSVC
  1. . . . W !,?2,$E(ENNAM,1,78)
  1. . . E D CAPEQ^ENTIUTL(ENEQ,"HD^ENTIRRU",,.END) Q:END
  1. . . ;
  1. . . ; loop thru unsigned assignments
  1. . . S ENDA=0
  1. . . F S ENDA=$O(^TMP($J,"ENITASGN",ENSRTV,ENEQ,ENDA)) Q:'ENDA D Q:END
  1. . . . S ENT("A")=ENT("A")+1
  1. . . . ; display assignment data
  1. . . . I $Y+4>IOSL D HD Q:END W !,"Entry #: ",ENEQ," (continued)"
  1. . . . W !," Assign: "
  1. . . . W $$FMTE^XLFDT($$GET1^DIQ(6916.3,ENDA,2,"I"),"2DZ")
  1. . . . W ?20,$$GET1^DIQ(6916.3,ENDA,1)
  1. . . . S ENSTAT=$$GET1^DIQ(6916.3,ENDA,20)
  1. . . . W ?52,"Status: ",ENSTAT
  1. . . . I ENSTAT'="ASSIGNED" W ?71,$$GET1^DIQ(6916.3,ENDA,21)
  1. . . W !
  1. ;
  1. I 'END D
  1. . ; report footer
  1. . I $Y+4>IOSL D HD Q:END
  1. . W !!,"Count of IT equipment items on report = ",ENT
  1. . W !,"Count of unsigned assignments on report = ",ENT("A")
  1. . I $E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR
  1. ;
  1. D ^%ZISC
  1. ;
  1. EXIT I $D(ZTQUEUED) S ZTREQ="@"
  1. K ^TMP($J,"ENITASGN")
  1. K DIR,DIROUT,DIRUT,DIWF,DIWL,DTOUT,DUOUT,POP,X,Y
  1. K ENBFMT,ENCMR,ENDA,ENEQ,ENLOC,ENNAM,ENOWN,ENSM,ENSMV
  1. K ENSRT,ENSRTV,ENSTAT,ENSVC,ENT,END,ENDT,ENHL2,ENPG
  1. Q
  1. ;
  1. HD ; header
  1. I $E(IOST,1,2)="C-",ENPG S DIR(0)="E" D ^DIR K DIR I 'Y S END=1 Q
  1. I $E(IOST,1,2)="C-"!ENPG W @IOF
  1. S ENPG=ENPG+1
  1. W "Assignments Pending Acceptance Report",?48,ENDT,?72,"page ",ENPG
  1. W !,ENHL2,!
  1. I ENBFMT D
  1. . W !,"Entry #",?12,"CMR",?19,"Location",?41,"Using Service"
  1. . W !,"---------",?12,"-----",?19,"--------------------"
  1. . W ?41,"------------------------------"
  1. Q
  1. ;
  1. ;ENTIRRU