- 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
