AGTMINS.m

AGTMINS ; IHS/ASDS/EFG - Table Maintenance of INSURER FILE ; 

 ;;7.1;PATIENT REGISTRATION;**12**;AUG 25,2005;Build 1

 ;IHS/OIT/NKD AG*7.1*12 INSURER TYPE

 ;

 S U="^"

 S AG("DUZ")=DUZ,DUZ="#"

 W !

INS W !! K DIC,DIE,DR,DIR,DINUM S DIC="^AUTNINS(",DIC("S")="I ""20""'[$P(^(1),U,7)",DIC("A")="Select INSURER: ",DIC(0)="QEALM" D ^DIC K DIC

 G XIT:X=""!$D(DUOUT)!$D(DTOUT)

 I +Y<1 G INS

 S DA=+Y

 ;S DIE="^AUTNINS(",DR="W !;.01;.21R;.41;.02;.03;.04;.05;.06;.09;1;2;3;4;5;.17R;.35;.36;.37;.38;.39;" D ^DIE K DR

 S DIE="^AUTNINS(",DR="W !;.01;.211R;.41;.02;.03;.04;.05;.06;.09;1;2;3;4;5;.17R;.35;.36;.37;.38;.39;" D ^DIE K DR  ;IHS/OIT/NKD AG*7.1*12

 G INS

XIT S DUZ=AG("DUZ")

 K AG,DIC,DIE

 Q

AGTMINS   ; IHS/ASDS/EFG - Table Maintenance of INSURER FILE ; 

 +1       ;;7.1;PATIENT REGISTRATION;**12**;AUG 25,2005;Build 1

 +2       ;IHS/OIT/NKD AG*7.1*12 INSURER TYPE

 +3       ;

 +4        SET U="^"

 +5        SET AG("DUZ")=DUZ

           SET DUZ="#"

 +6        WRITE !

INS        WRITE !!

           KILL DIC,DIE,DR,DIR,DINUM

           SET DIC="^AUTNINS("

           SET DIC("S")="I ""20""'[$P(^(1),U,7)"

           SET DIC("A")="Select INSURER: "

           SET DIC(0)="QEALM"

           DO ^DIC

           KILL DIC

 +1        IF X=""!$DATA(DUOUT)!$DATA(DTOUT)

               GOTO XIT

 +2        IF +Y<1

               GOTO INS

 +3        SET DA=+Y

 +4       ;S DIE="^AUTNINS(",DR="W !;.01;.21R;.41;.02;.03;.04;.05;.06;.09;1;2;3;4;5;.17R;.35;.36;.37;.38;.39;" D ^DIE K DR

 +5       ;IHS/OIT/NKD AG*7.1*12

           SET DIE="^AUTNINS("

           SET DR="W !;.01;.211R;.41;.02;.03;.04;.05;.06;.09;1;2;3;4;5;.17R;.35;.36;.37;.38;.39;"

           DO ^DIE

           KILL DR

 +6        GOTO INS

XIT        SET DUZ=AG("DUZ")

 +1        KILL AG,DIC,DIE

 +2        QUIT