- AUTNKWII ;IHS/DIRM/TMD/JDM/DFM - INTERFACE FOR INSURER DICTIONARY AND LOOKUP; [ 01/03/2003 10:48 AM ]
- ;;98.1;IHS DICTIONARIES (POINTERS);**9,12**;MAR 04, 1998;Build 6
- ;IHS/SET/GTH AUT*98.1*12 01/02/2003 - Forward compatibility w FM22.
- G:DIPGM(0)=2 EN2
- EN1 ; FIRST ENTRY FROM DIC
- K HITLIMIT
- G:DIC(0)["A" ASK^DIC ;IHS exception approved on 9/18/97
- EN2 ; SECOND ENTRY FROM DIC OR FALL-THROUGH IF NO 'ASK' INDICATED
- I X="?BAD"!(X["^") S Y=-1 Q
- ;G:(X?1"?".E)!(X?1"`"1N.N)!(U[X)!(X?1N.N)!(X=" ") RTN^DIC ;IHS exception approved on 9/18/97 ;IHS/SET/GTH AUT*98.1*12 01/02/2003
- I (X?1"?".E)!(X?1"`"1N.N)!(U[X)!(X?1N.N)!(X=" ") KILL DO D DO^DIC1 G RTN^DIC ;IHS exception approved on 9/18/97 ;IHS/SET/GTH AUT*98.1*12 01/02/2003
- S AUTN("AICD VER")="" D G OLD:'AUTN("AICD VER")
- .Q:'+$O(^AICDKWLC("B","INSURERS",""))
- .F S AUTN("AICD VER")=$O(^DIC(9.4,"C","AICD",AUTN("AICD VER"))) Q:'AUTN("AICD VER") I $D(^DIC(9.4,AUTN("AICD VER"),"VERSION")),+^("VERSION")>3.4 S AUTN("AICD VER")=+^("VERSION") Q
- K AUTN("AICD VER")
- D INS^AUTNKWLD
- ; I Y>0 S ^DISV(DUZ,DIC)=+Y Q ; IHS/ASDST/GTH AUT*98.1*9 01/07/2002
- I Y>0 S ^DISV(DUZ,DIC)=+Y S:DIC(0)["Z" Y(0)=^AUTNINS(+Y,0),Y(0,0)=$P(^(0),U) Q ; IHS/ASDST/GTH AUT*98.1*9 01/07/2002
- Q:$G(DTOUT)
- I $E(X)="^" S DUOUT=1 Q
- S AUTN("DIC0")=DIC(0)
- S DIC(0)=$S(DIC(0)["L":"EIL",1:"EI")
- W !!,"Since the KEYWORD LOOKUP failed lets try a NON-KEYWORD LOOKUP...",!!?5,X
- ;D RTN^DIC ;IHS exception approved on 9/18/97 ;IHS/SET/GTH AUT*98.1*12 01/02/2003
- KILL DO D DO^DIC1 D RTN^DIC ;IHS exception approved on 9/18/97 ;IHS/SET/GTH AUT*98.1*12 01/02/2003
- S DIC(0)=AUTN("DIC0") K AUTN("DIC0")
- Q
- ;
- OLD K AUTN("AICD VER")
- ;G RTN^DIC ;IHS exception approved on 9/18/97 ;IHS/SET/GTH AUT*98.1*12 01/02/2003
- KILL DO D DO^DIC1 G RTN^DIC ;IHS exception approved on 9/18/97 ;IHS/SET/GTH AUT*98.1*12 01/02/2003
- AUTNKWII ;IHS/DIRM/TMD/JDM/DFM - INTERFACE FOR INSURER DICTIONARY AND LOOKUP; [ 01/03/2003 10:48 AM ]
- +1 ;;98.1;IHS DICTIONARIES (POINTERS);**9,12**;MAR 04, 1998;Build 6
- +2 ;IHS/SET/GTH AUT*98.1*12 01/02/2003 - Forward compatibility w FM22.
- +3 IF DIPGM(0)=2
- GOTO EN2
- EN1 ; FIRST ENTRY FROM DIC
- +1 KILL HITLIMIT
- +2 ;IHS exception approved on 9/18/97
- IF DIC(0)["A"
- GOTO ASK^DIC
- EN2 ; SECOND ENTRY FROM DIC OR FALL-THROUGH IF NO 'ASK' INDICATED
- +1 IF X="?BAD"!(X["^")
- SET Y=-1
- QUIT
- +2 ;G:(X?1"?".E)!(X?1"`"1N.N)!(U[X)!(X?1N.N)!(X=" ") RTN^DIC ;IHS exception approved on 9/18/97 ;IHS/SET/GTH AUT*98.1*12 01/02/2003
- +3 ;IHS exception approved on 9/18/97 ;IHS/SET/GTH AUT*98.1*12 01/02/2003
- IF (X?1"?".E)!(X?1"`"1N.N)!(U[X)!(X?1N.N)!(X=" ")
- KILL DO
- DO DO^DIC1
- GOTO RTN^DIC
- +4 SET AUTN("AICD VER")=""
- Begin DoDot:1
- +5 IF '+$ORDER(^AICDKWLC("B","INSURERS",""))
- QUIT
- +6 FOR
- SET AUTN("AICD VER")=$ORDER(^DIC(9.4,"C","AICD",AUTN("AICD VER")))
- IF 'AUTN("AICD VER")
- QUIT
- IF $DATA(^DIC(9.4,AUTN("AICD VER"),"VERSION"))
- IF +^("VERSION")>3.4
- SET AUTN("AICD VER")=+^("VERSION")
- QUIT
- End DoDot:1
- IF 'AUTN("AICD VER")
- GOTO OLD
- +7 KILL AUTN("AICD VER")
- +8 DO INS^AUTNKWLD
- +9 ; I Y>0 S ^DISV(DUZ,DIC)=+Y Q ; IHS/ASDST/GTH AUT*98.1*9 01/07/2002
- +10 ; IHS/ASDST/GTH AUT*98.1*9 01/07/2002
- IF Y>0
- SET ^DISV(DUZ,DIC)=+Y
- IF DIC(0)["Z"
- SET Y(0)=^AUTNINS(+Y,0)
- SET Y(0,0)=$PIECE(^(0),U)
- QUIT
- +11 IF $GET(DTOUT)
- QUIT
- +12 IF $EXTRACT(X)="^"
- SET DUOUT=1
- QUIT
- +13 SET AUTN("DIC0")=DIC(0)
- +14 SET DIC(0)=$SELECT(DIC(0)["L":"EIL",1:"EI")
- +15 WRITE !!,"Since the KEYWORD LOOKUP failed lets try a NON-KEYWORD LOOKUP...",!!?5,X
- +16 ;D RTN^DIC ;IHS exception approved on 9/18/97 ;IHS/SET/GTH AUT*98.1*12 01/02/2003
- +17 ;IHS exception approved on 9/18/97 ;IHS/SET/GTH AUT*98.1*12 01/02/2003
- KILL DO
- DO DO^DIC1
- DO RTN^DIC
- +18 SET DIC(0)=AUTN("DIC0")
- KILL AUTN("DIC0")
- +19 QUIT
- +20 ;
- OLD KILL AUTN("AICD VER")
- +1 ;G RTN^DIC ;IHS exception approved on 9/18/97 ;IHS/SET/GTH AUT*98.1*12 01/02/2003
- +2 ;IHS exception approved on 9/18/97 ;IHS/SET/GTH AUT*98.1*12 01/02/2003
- KILL DO
- DO DO^DIC1
- GOTO RTN^DIC
