- BSDSYS1 ; IHS/ANMC/LJF - SCHED EVENT DRIVER VIEW ;
- ;;5.3;PIMS;;APR 26, 2002
- ;
- EN ; -- main entry point for BSD SYS EVENT DRIVER
- NEW VALMCNT
- D TERM^VALM0,CLEAR^VALM1
- D EN^VALM("BSD SYS EVENT DRIVER")
- D CLEAR^VALM1
- Q
- ;
- HDR ; -- header code
- Q
- ;
- INIT ; -- init variables and list array
- NEW BSDN,ITEM,SEQ,LINE,X
- S VALMCNT=0
- K ^TMP("BSDSYS1",$J)
- ;
- S BSDN=$O(^ORD(101,"B","BSDAM APPOINTMENT EVENTS",0))
- I 'BSDN D SET("** SCHEDULING EVENT DRIVER NOT FOUND!!! **",.VALMCNT) Q
- S X="BSDAM APPOINTMENT EVENTS Protocol - Scheduling Event Driver Menu"
- D SET($$SP(79-$L(X)\2)_X,.VALMCNT),SET("",.VALMCNT)
- ;
- ; put event driver items into sequence order
- S ITEM=0 F S ITEM=$O(^ORD(101,BSDN,10,ITEM)) Q:'ITEM D
- . S SEQ=+$$GET1^DIQ(101.01,ITEM_","_BSDN,3) I SEQ=0 S SEQ="??"
- . S ^TMP("BSDSYS11",$J,SEQ,ITEM)=""
- ;
- ; create display lines from sorted list
- S SEQ=0 F S SEQ=$O(^TMP("BSDSYS11",$J,SEQ)) Q:SEQ="" D
- . S ITEM=0 F S ITEM=$O(^TMP("BSDSYS11",$J,SEQ,ITEM)) Q:'ITEM D
- .. ;
- .. S LINE=$$PAD($J(SEQ,7),10) ;sequence
- .. S LINE=LINE_$$GET1^DIQ(101.01,ITEM_","_BSDN,.01) ;item
- .. S X=$$GET1^DIQ(101.01,ITEM_","_BSDN,.01,"I") ;item ien
- .. I X S LINE=$$PAD(LINE,40)_$$GET1^DIQ(101,X,1) ;item text
- .. D SET(LINE,.VALMCNT)
- ;
- ; include event driver description as documentation
- D SET("",.VALMCNT),SET("Documentation:",.VALMCNT)
- S X=0 F S X=$O(^ORD(101,BSDN,1,X)) Q:'X D
- . D SET($G(^ORD(101,BSDN,1,X,0)),.VALMCNT)
- ;
- Q
- ;
- SET(DATA,NUM) ; put display line into array
- S NUM=NUM+1
- S ^TMP("BSDSYS1",$J,NUM,0)=DATA
- Q
- ;
- HELP ; -- help code
- S X="?" D DISP^XQORM1 W !!
- Q
- ;
- EXIT ; -- exit code
- K ^TMP("BSDSYS1",$J)
- Q
- ;
- EXPND ; -- expand code
- Q
- ;
- ;
- PAD(D,L) ;EP -- SUBRTN to pad length of data
- ; -- D=data L=length
- Q $E(D_$$REPEAT^XLFSTR(" ",L),1,L)
- ;
- SP(N) ; -- SUBRTN to pad N number of spaces
- Q $$PAD(" ",N)
- BSDSYS1 ; IHS/ANMC/LJF - SCHED EVENT DRIVER VIEW ;
- +1 ;;5.3;PIMS;;APR 26, 2002
- +2 ;
- EN ; -- main entry point for BSD SYS EVENT DRIVER
- +1 NEW VALMCNT
- +2 DO TERM^VALM0
- DO CLEAR^VALM1
- +3 DO EN^VALM("BSD SYS EVENT DRIVER")
- +4 DO CLEAR^VALM1
- +5 QUIT
- +6 ;
- HDR ; -- header code
- +1 QUIT
- +2 ;
- INIT ; -- init variables and list array
- +1 NEW BSDN,ITEM,SEQ,LINE,X
- +2 SET VALMCNT=0
- +3 KILL ^TMP("BSDSYS1",$JOB)
- +4 ;
- +5 SET BSDN=$ORDER(^ORD(101,"B","BSDAM APPOINTMENT EVENTS",0))
- +6 IF 'BSDN
- DO SET("** SCHEDULING EVENT DRIVER NOT FOUND!!! **",.VALMCNT)
- QUIT
- +7 SET X="BSDAM APPOINTMENT EVENTS Protocol - Scheduling Event Driver Menu"
- +8 DO SET($$SP(79-$LENGTH(X)\2)_X,.VALMCNT)
- DO SET("",.VALMCNT)
- +9 ;
- +10 ; put event driver items into sequence order
- +11 SET ITEM=0
- FOR
- SET ITEM=$ORDER(^ORD(101,BSDN,10,ITEM))
- IF 'ITEM
- QUIT
- Begin DoDot:1
- +12 SET SEQ=+$$GET1^DIQ(101.01,ITEM_","_BSDN,3)
- IF SEQ=0
- SET SEQ="??"
- +13 SET ^TMP("BSDSYS11",$JOB,SEQ,ITEM)=""
- End DoDot:1
- +14 ;
- +15 ; create display lines from sorted list
- +16 SET SEQ=0
- FOR
- SET SEQ=$ORDER(^TMP("BSDSYS11",$JOB,SEQ))
- IF SEQ=""
- QUIT
- Begin DoDot:1
- +17 SET ITEM=0
- FOR
- SET ITEM=$ORDER(^TMP("BSDSYS11",$JOB,SEQ,ITEM))
- IF 'ITEM
- QUIT
- Begin DoDot:2
- +18 ;
- +19 ;sequence
- SET LINE=$$PAD($JUSTIFY(SEQ,7),10)
- +20 ;item
- SET LINE=LINE_$$GET1^DIQ(101.01,ITEM_","_BSDN,.01)
- +21 ;item ien
- SET X=$$GET1^DIQ(101.01,ITEM_","_BSDN,.01,"I")
- +22 ;item text
- IF X
- SET LINE=$$PAD(LINE,40)_$$GET1^DIQ(101,X,1)
- +23 DO SET(LINE,.VALMCNT)
- End DoDot:2
- End DoDot:1
- +24 ;
- +25 ; include event driver description as documentation
- +26 DO SET("",.VALMCNT)
- DO SET("Documentation:",.VALMCNT)
- +27 SET X=0
- FOR
- SET X=$ORDER(^ORD(101,BSDN,1,X))
- IF 'X
- QUIT
- Begin DoDot:1
- +28 DO SET($GET(^ORD(101,BSDN,1,X,0)),.VALMCNT)
- End DoDot:1
- +29 ;
- +30 QUIT
- +31 ;
- SET(DATA,NUM) ; put display line into array
- +1 SET NUM=NUM+1
- +2 SET ^TMP("BSDSYS1",$JOB,NUM,0)=DATA
- +3 QUIT
- +4 ;
- HELP ; -- help code
- +1 SET X="?"
- DO DISP^XQORM1
- WRITE !!
- +2 QUIT
- +3 ;
- EXIT ; -- exit code
- +1 KILL ^TMP("BSDSYS1",$JOB)
- +2 QUIT
- +3 ;
- EXPND ; -- expand code
- +1 QUIT
- +2 ;
- +3 ;
- PAD(D,L) ;EP -- SUBRTN to pad length of data
- +1 ; -- D=data L=length
- +2 QUIT $EXTRACT(D_$$REPEAT^XLFSTR(" ",L),1,L)
- +3 ;
- SP(N) ; -- SUBRTN to pad N number of spaces
- +1 QUIT $$PAD(" ",N)
