SCENIB0 ; ALB/SCK - INCOMPLETE ENCOUNTER EXPANDED ERROR LIST VIEW ; 21-MAY-1997
;;5.3;Scheduling;**66**;AUG 13, 1993
;
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCENIB0 1460 printed Apr 09, 2024@21:56:46 Page 2
SCENIB0 ; ALB/SCK - INCOMPLETE ENCOUNTER EXPANDED ERROR LIST VIEW ; 21-MAY-1997
+1 ;;5.3;Scheduling;**66**;AUG 13, 1993
+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
