ORLSTVIZ.m

ORLSTVIZ ; SLC/WAT - Editing Team List Visibility ;9/14/06 14:00

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243**;Dec 17, 1997;Build 242

 ;

 ;PROMPT THE USER FOR A LIST OR LISTS FOR WHICH TO SET VISIBILITY

 ;SHOW THE POSSIBLE OPTIONS FOR VISIBILITY:

 ;       '0' = NOBODY

 ;       '1' = ALLUSERS

 ;DIC,DIR,DIE - FileMan call

 ;                 DA - input variable to ^DIE - internal entry number of the file entry to be edited

 ;                 DR - input variable to ^DIE - as used here it's the field number in file stuffed with user-chosen VISBILITY value

 ;          DTOUT - output from ^DIC-only defined when DIC times out

 ;          DUOUT - output from ^DIC-only defined when user enters carat

 ;          DIRUT - output from ^DIR-defined when user enters carat, presses Return/Enter, or times out

 ;          Y - Returned from FM call-returns "-1" is lookup was unsuccessful

 ;       Y(0) - Returned from ^DIC-hold external value of chosen VISIBILITY by user

 ;        IEN - IEN of list from 100.21

 ;        VIS - VISIBILITY value from 100.21

 ;        CNT - counter/array index position

 ;       LIST - NAME value from 100.21

 ;        VIS - VISIBILITY value from 100.21

 N DIC,DIR,DIE,DA,DR,DTOUT,DUOUT,DIRUT,Y,LIST,VIS,CNT,IEN,VAL

 K ^TMP("ORLST",$J)

 S DIC="^OR(100.21,",DIC(0)="AEQZ",CNT=0

 W !,"You may set the VISIBILITY for one or more lists."

 W !,"Please enter your selection(s) below."

LKUP F  D ^DIC Q:$D(DTOUT)!($D(DUOUT))!(Y=-1)  I Y>0 S ^TMP("ORLST",$J,CNT)=$P(Y,U,1) S ^TMP("ORLST",$J,CNT,CNT+1)=$P(Y,U,2) S ^TMP("ORLST",$J,CNT,CNT+1,CNT+2)=$$GET1^DIQ(100.21,^TMP("ORLST",$J,0),11) S CNT=CNT+1

 Q:$D(DTOUT)!($D(DUOUT))

 Q:'$D(^TMP("ORLST",$J,0))

 ;*********For each selected list(s), display current NAME and VISIBILITY*******

 W !!,"You have chosen to update the following list(s):"

 S (IEN,LIST,VIS)=""

 F  S IEN=$O(^TMP("ORLST",$J,IEN)) Q:IEN=""  D

 . S LIST=$O(^TMP("ORLST",$J,IEN,LIST)) Q:LIST=""  W !?5,^TMP("ORLST",$J,IEN,LIST) D

 . .S VIS=$O(^TMP("ORLST",$J,IEN,LIST,VIS)) Q:VIS=""  W ?37,"Current value: "_^TMP("ORLST",$J,IEN,LIST,VIS)

 W !!,""

 ;

READER S DIR(0)="100.21,11",DIR("B")="ALLUSERS"

 D ^DIR Q:$D(DIRUT)

 ;

 S VAL=Y(0)  ;capture user-selected VISIBILTY value

EDIT S IEN="",DIE=DIC,DR="11///^S X=VAL" ; 11 is VISIBILITY field in 100.21

 F  S IEN=$O(^TMP("ORLST",$J,IEN)) Q:IEN=""  D

 .S DA=^TMP("ORLST",$J,IEN)

 .D ^DIE

 K ^TMP("ORLST",$J)

 W @IOF

 W !!,"Update Complete"

 Q

ORLSTVIZ  ; SLC/WAT - Editing Team List Visibility ;9/14/06 14:00

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243**;Dec 17, 1997;Build 242

 +2       ;

 +3       ;PROMPT THE USER FOR A LIST OR LISTS FOR WHICH TO SET VISIBILITY

 +4       ;SHOW THE POSSIBLE OPTIONS FOR VISIBILITY:

 +5       ;       '0' = NOBODY

 +6       ;       '1' = ALLUSERS

 +7       ;DIC,DIR,DIE - FileMan call

 +8       ;                 DA - input variable to ^DIE - internal entry number of the file entry to be edited

 +9       ;                 DR - input variable to ^DIE - as used here it's the field number in file stuffed with user-chosen VISBILITY value

 +10      ;          DTOUT - output from ^DIC-only defined when DIC times out

 +11      ;          DUOUT - output from ^DIC-only defined when user enters carat

 +12      ;          DIRUT - output from ^DIR-defined when user enters carat, presses Return/Enter, or times out

 +13      ;          Y - Returned from FM call-returns "-1" is lookup was unsuccessful

 +14      ;       Y(0) - Returned from ^DIC-hold external value of chosen VISIBILITY by user

 +15      ;        IEN - IEN of list from 100.21

 +16      ;        VIS - VISIBILITY value from 100.21

 +17      ;        CNT - counter/array index position

 +18      ;       LIST - NAME value from 100.21

 +19      ;        VIS - VISIBILITY value from 100.21

 +20       NEW DIC,DIR,DIE,DA,DR,DTOUT,DUOUT,DIRUT,Y,LIST,VIS,CNT,IEN,VAL

 +21       KILL ^TMP("ORLST",$JOB)

 +22       SET DIC="^OR(100.21,"

           SET DIC(0)="AEQZ"

           SET CNT=0

 +23       WRITE !,"You may set the VISIBILITY for one or more lists."

 +24       WRITE !,"Please enter your selection(s) below."

LKUP       FOR 

               DO ^DIC

               IF $DATA(DTOUT)!($DATA(DUOUT))!(Y=-1)

                   QUIT 

               IF Y>0

                   SET ^TMP("ORLST",$JOB,CNT)=$PIECE(Y,U,1)

                   SET ^TMP("ORLST",$JOB,CNT,CNT+1)=$PIECE(Y,U,2)

                   SET ^TMP("ORLST",$JOB,CNT,CNT+1,CNT+2)=$$GET1^DIQ(100.21,^TMP("ORLST",$JOB,0),11)

                   SET CNT=CNT+1

 +1        IF $DATA(DTOUT)!($DATA(DUOUT))

               QUIT 

 +2        IF '$DATA(^TMP("ORLST",$JOB,0))

               QUIT 

 +3       ;*********For each selected list(s), display current NAME and VISIBILITY*******

 +4        WRITE !!,"You have chosen to update the following list(s):"

 +5        SET (IEN,LIST,VIS)=""

 +6        FOR 

               SET IEN=$ORDER(^TMP("ORLST",$JOB,IEN))

               IF IEN=""

                   QUIT 

               Begin DoDot:1

 +7                SET LIST=$ORDER(^TMP("ORLST",$JOB,IEN,LIST))

                   IF LIST=""

                       QUIT 

                   WRITE !?5,^TMP("ORLST",$JOB,IEN,LIST)

                   Begin DoDot:2

 +8                    SET VIS=$ORDER(^TMP("ORLST",$JOB,IEN,LIST,VIS))

                       IF VIS=""

                           QUIT 

                       WRITE ?37,"Current value: "_^TMP("ORLST",$JOB,IEN,LIST,VIS)

                   End DoDot:2

               End DoDot:1

 +9        WRITE !!,""

 +10      ;

READER     SET DIR(0)="100.21,11"

           SET DIR("B")="ALLUSERS"

 +1        DO ^DIR

           IF $DATA(DIRUT)

               QUIT 

 +2       ;

 +3       ;capture user-selected VISIBILTY value

           SET VAL=Y(0)

EDIT      ; 11 is VISIBILITY field in 100.21

           SET IEN=""

           SET DIE=DIC

           SET DR="11///^S X=VAL"

 +1        FOR 

               SET IEN=$ORDER(^TMP("ORLST",$JOB,IEN))

               IF IEN=""

                   QUIT 

               Begin DoDot:1

 +2                SET DA=^TMP("ORLST",$JOB,IEN)

 +3                DO ^DIE

               End DoDot:1

 +4        KILL ^TMP("ORLST",$JOB)

 +5        WRITE @IOF

 +6        WRITE !!,"Update Complete"

 +7        QUIT