SCENIB0.m

SCENIB0 ; ALB/SCK - INCOMPLETE ENCOUNTER EXPANDED ERROR LIST VIEW ; 21-MAY-1997

 ;;5.3;Scheduling;**66,1015**;AUG 13, 1993;Build 21

 ;

EN ; -- main entry point for SCENI INCOMPLETE ENC EXPANDED

 D EN^VALM("SCENI INCOMPLETE ENC EXPANDED")

 Q

 ;

HDR ; -- header code

 S VALMHDR(1)=SDHDR1

 S VALMHDR(2)=SDHDR2

 Q

 ;

INIT ; -- init variables and list array

 ; Variables

 ;     SDCNT

 ;     SDLINE

 ;     SDN1

 ;

 N SDCNT,SDLINE,SDN1

 ;

 K ^TMP("SCENI EXP",$J)

 D CLEAN^VALM10

 ;

 S (SDN1,SDN2,SDLINE,VALMCNT)=0

 F  S SDN1=$O(^TMP("SCENI ERR",$J,"IDX",SDN1)) Q:'SDN1  D

 . F  S SDN2=$O(^TMP("SCENI ERR",$J,"IDX",SDN1,SDN2)) Q:'SDN2  D

 .. D BLD(SDN1,$G(^TMP("SCENI ERR",$J,"IDX",SDN1,SDN2)))

 ;

 I '$D(^TMP("SCENI EXP",$J)) D

 . S ^TMP("SCENI EXP",$J,1,0)=" "

 . S ^TMP("SCENI EXP",$J,2,0)="No Information Found"

 . S VALMCNT=2

 Q

 ;

BLD(SDIDX,SDPTR) ;  Build LM display 

 ;   Variables

 ;       SCX

 ;       SCEN1

 ;      

 N SCX,SCEN1,DA

 ;

 D SET(^TMP("SCENI ERR",$J,SDIDX,0)),SET(" ")

 S DIC=409.76,DIC(0)="M",X=$P(SDPTR,U,2)

 D ^DIC

 S DA=+Y

 S DR="21",DIQ="SCEN1"

 D EN^DIQ1

 S SCX=""

 F  S SCX=$O(SCEN1(409.76,DA,DR,SCX)) Q:'SCX  D SET(SCEN1(409.76,DA,DR,SCX))

 D SET(" ")

 K DIC,DR,DIQ

 Q

 ;

SET(X) ;  Sets string X into ^TMP global for display

 S VALMCNT=VALMCNT+1

 S ^TMP("SCENI EXP",$J,VALMCNT,0)=X

 Q

 ;

HELP ; -- help code

 S X="?" D DISP^XQORM1 W !!

 Q

 ;

EXIT ; -- exit code

 K ^TMP("SCENI EXP")

 Q

SCENIB0   ; ALB/SCK - INCOMPLETE ENCOUNTER EXPANDED ERROR LIST VIEW ; 21-MAY-1997

 +1       ;;5.3;Scheduling;**66,1015**;AUG 13, 1993;Build 21

 +2       ;

EN        ; -- main entry point for SCENI INCOMPLETE ENC EXPANDED

 +1        DO EN^VALM("SCENI INCOMPLETE ENC EXPANDED")

 +2        QUIT 

 +3       ;

HDR       ; -- header code

 +1        SET VALMHDR(1)=SDHDR1

 +2        SET VALMHDR(2)=SDHDR2

 +3        QUIT 

 +4       ;

INIT      ; -- init variables and list array

 +1       ; Variables

 +2       ;     SDCNT

 +3       ;     SDLINE

 +4       ;     SDN1

 +5       ;

 +6        NEW SDCNT,SDLINE,SDN1

 +7       ;

 +8        KILL ^TMP("SCENI EXP",$JOB)

 +9        DO CLEAN^VALM10

 +10      ;

 +11       SET (SDN1,SDN2,SDLINE,VALMCNT)=0

 +12       FOR 

               SET SDN1=$ORDER(^TMP("SCENI ERR",$JOB,"IDX",SDN1))

               IF 'SDN1

                   QUIT 

               Begin DoDot:1

 +13               FOR 

                       SET SDN2=$ORDER(^TMP("SCENI ERR",$JOB,"IDX",SDN1,SDN2))

                       IF 'SDN2

                           QUIT 

                       Begin DoDot:2

 +14                       DO BLD(SDN1,$GET(^TMP("SCENI ERR",$JOB,"IDX",SDN1,SDN2)))

                       End DoDot:2

               End DoDot:1

 +15      ;

 +16       IF '$DATA(^TMP("SCENI EXP",$JOB))

               Begin DoDot:1

 +17               SET ^TMP("SCENI EXP",$JOB,1,0)=" "

 +18               SET ^TMP("SCENI EXP",$JOB,2,0)="No Information Found"

 +19               SET VALMCNT=2

               End DoDot:1

 +20       QUIT 

 +21      ;

BLD(SDIDX,SDPTR) ;  Build LM display 

 +1       ;   Variables

 +2       ;       SCX

 +3       ;       SCEN1

 +4       ;      

 +5        NEW SCX,SCEN1,DA

 +6       ;

 +7        DO SET(^TMP("SCENI ERR",$JOB,SDIDX,0))

           DO SET(" ")

 +8        SET DIC=409.76

           SET DIC(0)="M"

           SET X=$PIECE(SDPTR,U,2)

 +9        DO ^DIC

 +10       SET DA=+Y

 +11       SET DR="21"

           SET DIQ="SCEN1"

 +12       DO EN^DIQ1

 +13       SET SCX=""

 +14       FOR 

               SET SCX=$ORDER(SCEN1(409.76,DA,DR,SCX))

               IF 'SCX

                   QUIT 

               DO SET(SCEN1(409.76,DA,DR,SCX))

 +15       DO SET(" ")

 +16       KILL DIC,DR,DIQ

 +17       QUIT 

 +18      ;

SET(X)    ;  Sets string X into ^TMP global for display

 +1        SET VALMCNT=VALMCNT+1

 +2        SET ^TMP("SCENI EXP",$JOB,VALMCNT,0)=X

 +3        QUIT 

 +4       ;

HELP      ; -- help code

 +1        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +2        QUIT 

 +3       ;

EXIT      ; -- exit code

 +1        KILL ^TMP("SCENI EXP")

 +2        QUIT