- INH4CONV ;DGH; 24 Apr 95 11:43
- ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
- ;COPYRIGHT 1991-2000 SAIC
- EN1 ;This makes necessary changes to interface globals for ver 4.4
- ;1) Converts existing "AH" x-ref of ^INLHFTSK to new format
- ;2) Transfers entries from server queues to primary interface queues
- ;
- N T,PRIO,INTSK,TT,D,H,X,Y,Z
- FORMAT ;Convert format queue, ^INLHFTSK.
- ;Old format -- ^INLHFTSK("AH",Time to process,INTSK)
- ;New format -- ^INLHFTSK("AH",Priority,Time,INTSK) and .06 field
- ;is FORMAT PRIORITY
- G:'$D(^INLHFTSK("AH")) SERVER
- S T="" F S T=$O(^INLHFTSK("AH",T)) Q:'T D
- .S INTSK="" F S INTSK=$O(^INLHFTSK("AH",T,INTSK)) Q:'INTSK D
- ..;Look up FORMAT PRIORITY from Tran Type file,
- ..S TT=$P($G(^INLHFTSK(INTSK,0)),U)
- ..S PRIO=$S('TT:0,1:+$P($G(^INRHT(TT,0)),U,14))
- ..S ^INLHFTSK("AH",PRIO,T,INTSK)=""
- ..K ^INLHFTSK("AH",T,INTSK)
- ;
- SERVER ;Transfer entries, if any, from format controller,
- ;^INLHFTSK("SRVR",time to process,INTSK)
- G:'$D(^INLHFTSK("SRVR")) OUTPUT
- S H="" F S H=$O(^INLHFTSK("SRVR",H)) Q:'$L(H) D
- .S INTSK="" F S INTSK=$O(^INLHFTSK("SRVR",H,INTSK)) Q:'INTSK D
- ..S TT=$P($G(^INLHFTSK(INTSK,0)),U)
- ..S PRIO=$S('TT:0,1:+$P($G(^INRHT(TT,0)),U,14))
- ..S ^INLHFTSK("AH",PRIO,T,INTSK)=""
- K ^INLHFTSK("SRVR")
- ;
- OUTPUT ;Transfer entries, if any, from output controller, ^INLHSCH("SRVR"
- G:'$D(^INLHSCH("SRVR")) EXIT
- S X="" F S X=$O(^INLHSCH("SRVR",X)) Q:X="" D
- . S Y="" F S Y=$O(^INLHSCH("SRVR",X,Y)) Q:'Y D
- .. S Z="" F S Z=$O(^INLHSCH("SRVR",X,Y,Z)) Q:'Z D
- ... S ^INLHSCH(X,Y,Z)="",D=$P($G(^INTHU(Z,0)),U,2)
- ... K ^INLHSCH("SRVR",X,Y,Z)
- ;
- EXIT Q
- INH4CONV ;DGH; 24 Apr 95 11:43
- +1 ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
- +2 ;COPYRIGHT 1991-2000 SAIC
- EN1 ;This makes necessary changes to interface globals for ver 4.4
- +1 ;1) Converts existing "AH" x-ref of ^INLHFTSK to new format
- +2 ;2) Transfers entries from server queues to primary interface queues
- +3 ;
- +4 NEW T,PRIO,INTSK,TT,D,H,X,Y,Z
- FORMAT ;Convert format queue, ^INLHFTSK.
- +1 ;Old format -- ^INLHFTSK("AH",Time to process,INTSK)
- +2 ;New format -- ^INLHFTSK("AH",Priority,Time,INTSK) and .06 field
- +3 ;is FORMAT PRIORITY
- +4 IF '$DATA(^INLHFTSK("AH"))
- GOTO SERVER
- +5 SET T=""
- FOR
- SET T=$ORDER(^INLHFTSK("AH",T))
- IF 'T
- QUIT
- Begin DoDot:1
- +6 SET INTSK=""
- FOR
- SET INTSK=$ORDER(^INLHFTSK("AH",T,INTSK))
- IF 'INTSK
- QUIT
- Begin DoDot:2
- +7 ;Look up FORMAT PRIORITY from Tran Type file,
- +8 SET TT=$PIECE($GET(^INLHFTSK(INTSK,0)),U)
- +9 SET PRIO=$SELECT('TT:0,1:+$PIECE($GET(^INRHT(TT,0)),U,14))
- +10 SET ^INLHFTSK("AH",PRIO,T,INTSK)=""
- +11 KILL ^INLHFTSK("AH",T,INTSK)
- End DoDot:2
- End DoDot:1
- +12 ;
- SERVER ;Transfer entries, if any, from format controller,
- +1 ;^INLHFTSK("SRVR",time to process,INTSK)
- +2 IF '$DATA(^INLHFTSK("SRVR"))
- GOTO OUTPUT
- +3 SET H=""
- FOR
- SET H=$ORDER(^INLHFTSK("SRVR",H))
- IF '$LENGTH(H)
- QUIT
- Begin DoDot:1
- +4 SET INTSK=""
- FOR
- SET INTSK=$ORDER(^INLHFTSK("SRVR",H,INTSK))
- IF 'INTSK
- QUIT
- Begin DoDot:2
- +5 SET TT=$PIECE($GET(^INLHFTSK(INTSK,0)),U)
- +6 SET PRIO=$SELECT('TT:0,1:+$PIECE($GET(^INRHT(TT,0)),U,14))
- +7 SET ^INLHFTSK("AH",PRIO,T,INTSK)=""
- End DoDot:2
- End DoDot:1
- +8 KILL ^INLHFTSK("SRVR")
- +9 ;
- OUTPUT ;Transfer entries, if any, from output controller, ^INLHSCH("SRVR"
- +1 IF '$DATA(^INLHSCH("SRVR"))
- GOTO EXIT
- +2 SET X=""
- FOR
- SET X=$ORDER(^INLHSCH("SRVR",X))
- IF X=""
- QUIT
- Begin DoDot:1
- +3 SET Y=""
- FOR
- SET Y=$ORDER(^INLHSCH("SRVR",X,Y))
- IF 'Y
- QUIT
- Begin DoDot:2
- +4 SET Z=""
- FOR
- SET Z=$ORDER(^INLHSCH("SRVR",X,Y,Z))
- IF 'Z
- QUIT
- Begin DoDot:3
- +5 SET ^INLHSCH(X,Y,Z)=""
- SET D=$PIECE($GET(^INTHU(Z,0)),U,2)
- +6 KILL ^INLHSCH("SRVR",X,Y,Z)
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +7 ;
- EXIT QUIT
