ACHSVDVA.m

ACHSVDVA ; IHS/ITSC/PMF - 2/2 EDIT VENDOR INFORMATION - CALLED FROM ACHSVDV ;

 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**6,11,13,19,23**;JUN 11, 2001;Build 43

 ;IHS/SET/JVK ACHS*3.1*11 MODIFIED FOR MEDICARE PROVIDER ENTRY 8/10/2004

 ;IHS/SET/JVK ACHS*3.1*6 MODIFIED FOR ADDITIONAL ENTRY 4/15/2003

 ;ACHS*3.1*13 11/29/06 IHS/OIT/FCJ ADDED DUNS NUMBER OPTION

 ;

EDIT ;EP

 ;ACHS*3.1*13 11/29/06 IHS/OIT/FCJ MODIFIED FOR ADDITIONAL ENTRY;ACHS*3.1*23

 ;S Y=+$$DIR^XBDIR("NO^1:14","Change Which Item","","","Enter the number corresponding to the field you need to edit","",2)

 S Y=+$$DIR^XBDIR("NO^1:20","Change Which Item","","","Enter the number corresponding to the field you need to edit","",2)

 G END^ACHSVDV:$D(DTOUT),A1^ACHSVDV:$D(DUOUT)!(Y<1)

 S $P(^AUTTVNDR(ACHSPROV,11),U,11)=DT

 W !

 D @(Y)

 G A2^ACHSVDV

 ;

1 ;

 D EDITVNDR(ACHSPROV,.01)

 G A1^ACHSVDV

 ;

2 ;

 D EDITVNDR(ACHSPROV,"1101;1102")

 D ^ACHSVDVD

 Q

 ;

3 ;

 D EDITVNDR(ACHSPROV,.05)

 Q

 ;

4 ;

 S ACHSACO="L",P=ACHSPROV,A("DISPLAY")=0

 D L^ACHSVDV1

 S:'$D(DA) DA=""

 Q:'$D(DA)!(DA="")

 S DIE("NO^")="",DIE="^AUTTVNDR("_ACHSPROV_",""CN"",",DA(1)=ACHSPROV,DR="1;2;4;3"

 D ^DIE

 K DIE,DA

 Q

 ;

5 ;

 D EDITVNDR(ACHSPROV,1701)

 Q

 ;

6 ;

 S ACHSAGTP="RQ"

 D AGRDSP^ACHSVDV2

 Q:'$G(DA)

 S DIE="^AUTTVNDR("_ACHSPROV_",18,",DA(1)=ACHSPROV,DR=".02;.04;.03;.05;.07;.06;.08;.09"

 D ^DIE

 K DIE

 Q

 ;

7 ;

 D EDITVNDR(ACHSPROV,1126)

 Q

 ;

8 ;

 S ACHSAGTP="PA"

 D AGRDSP^ACHSVDV2

 Q:'$G(DA)

 S DIE="^AUTTVNDR("_ACHSPROV_",18,",DA(1)=ACHSPROV,DR=".02;.04;.03;.05;.07;.06;.08;.09"

 D ^DIE

 K DIE

 Q

 ;

9 ;IHS/SET/JVK ACHS*3.1*11 ADD MEDICARE PROVIDER

 I $P($G(^AUTTVNDR(ACHSPROV,23)),U)'="" D MP^ACHSVDV1,EDITVNDR(ACHSPROV,"2301;2302")

 I $P($G(^AUTTVNDR(ACHSPROV,23)),U)="" D EDITVNDR(ACHSPROV,"2301;2302"),MP^ACHSVDV1

 Q:'$G(DA)

 ;D EDITVNDR(ACHSPROV,"2301;2302")

 Q

 ;

10 ;IHS/SET/JVK ACHS*3.1*11 RE-NUMBER 10-16

 ;

 S ACHSAGTP="BPA"

 D AGRDSP^ACHSVDV2

 Q:'$G(DA)

 S DIE="^AUTTVNDR("_ACHSPROV_",18,",DA(1)=ACHSPROV,DR=".02;.04;.03;.05;.07;.06;.08;.09"

 D ^DIE

 K DIE

 Q

 ;

11 ;ACHS*3.1*19 3.30.11 IHS/OIT/FCJ ADDED E-MAIL OPTION 11 AND RE-NUMBER 12-18

 D EDITVNDR(ACHSPROV,"2103")

 Q

12 ;ACHS*3.1*13 11/29/06 IHS/OIT/FCJ ADDED DUNS NUMBER AND RE-NUMBER 12-17

 D EDITVNDR(ACHSPROV,".07;.08")

 Q

 ;ACHS*3.1*23 IHS.OIT.FCJ ADDED DIRECT PARTICIPANT AND DIRECT EMAIL ADDRESS THEN RENUMBERED

13 ;DIRECT PARTICIPANT

 D EDITVNDR(ACHSPROV,"2104")

 Q

14 ;DIRECT EMAIL ADDRESS

 D EDITVNDR(ACHSPROV,"2105")

 Q

15 ;

 D EDITVNDR(ACHSPROV,"1301:1302;1303;1304;1305;1109;1114") ;ACHS*3.1*19 ADDED FIELD 1114 TO LINE 

 Q

 ;

16 ;

 D EDITVNDR(ACHSPROV,"1306;1307;1308;1309")

 Q

 ;

17 ;EP

 D EDITVNDR(ACHSPROV,1103)

 Q

 ;

18 ;

 D EDITVNDR(ACHSPROV,1110)

 Q

 ;

19 ;

 D EDITVNDR(ACHSPROV,1103.01)

 Q

 ;

 ;IHS/SET/JVK ACHS*3.1*6 ADDED GEOGRAPHICAL LOC 4/15/2003

20 ;

 D EDITVNDR(ACHSPROV,1125)

 Q

 ;

EDITVNDR(DA,DR) ;EP - Edit fields in VENDOR.

 N DIE

 S DIE="^AUTTVNDR("

 D ^DIE

 Q

 ;

ACHSVDVA  ; IHS/ITSC/PMF - 2/2 EDIT VENDOR INFORMATION - CALLED FROM ACHSVDV ;

 +1       ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**6,11,13,19,23**;JUN 11, 2001;Build 43

 +2       ;IHS/SET/JVK ACHS*3.1*11 MODIFIED FOR MEDICARE PROVIDER ENTRY 8/10/2004

 +3       ;IHS/SET/JVK ACHS*3.1*6 MODIFIED FOR ADDITIONAL ENTRY 4/15/2003

 +4       ;ACHS*3.1*13 11/29/06 IHS/OIT/FCJ ADDED DUNS NUMBER OPTION

 +5       ;

EDIT      ;EP

 +1       ;ACHS*3.1*13 11/29/06 IHS/OIT/FCJ MODIFIED FOR ADDITIONAL ENTRY;ACHS*3.1*23

 +2       ;S Y=+$$DIR^XBDIR("NO^1:14","Change Which Item","","","Enter the number corresponding to the field you need to edit","",2)

 +3        SET Y=+$$DIR^XBDIR("NO^1:20","Change Which Item","","","Enter the number corresponding to the field you need to edit","",2)

 +4        IF $DATA(DTOUT)

               GOTO END^ACHSVDV

           IF $DATA(DUOUT)!(Y<1)

               GOTO A1^ACHSVDV

 +5        SET $PIECE(^AUTTVNDR(ACHSPROV,11),U,11)=DT

 +6        WRITE !

 +7        DO @(Y)

 +8        GOTO A2^ACHSVDV

 +9       ;

1         ;

 +1        DO EDITVNDR(ACHSPROV,.01)

 +2        GOTO A1^ACHSVDV

 +3       ;

2         ;

 +1        DO EDITVNDR(ACHSPROV,"1101;1102")

 +2        DO ^ACHSVDVD

 +3        QUIT 

 +4       ;

3         ;

 +1        DO EDITVNDR(ACHSPROV,.05)

 +2        QUIT 

 +3       ;

4         ;

 +1        SET ACHSACO="L"

           SET P=ACHSPROV

           SET A("DISPLAY")=0

 +2        DO L^ACHSVDV1

 +3        IF '$DATA(DA)

               SET DA=""

 +4        IF '$DATA(DA)!(DA="")

               QUIT 

 +5        SET DIE("NO^")=""

           SET DIE="^AUTTVNDR("_ACHSPROV_",""CN"","

           SET DA(1)=ACHSPROV

           SET DR="1;2;4;3"

 +6        DO ^DIE

 +7        KILL DIE,DA

 +8        QUIT 

 +9       ;

5         ;

 +1        DO EDITVNDR(ACHSPROV,1701)

 +2        QUIT 

 +3       ;

6         ;

 +1        SET ACHSAGTP="RQ"

 +2        DO AGRDSP^ACHSVDV2

 +3        IF '$GET(DA)

               QUIT 

 +4        SET DIE="^AUTTVNDR("_ACHSPROV_",18,"

           SET DA(1)=ACHSPROV

           SET DR=".02;.04;.03;.05;.07;.06;.08;.09"

 +5        DO ^DIE

 +6        KILL DIE

 +7        QUIT 

 +8       ;

7         ;

 +1        DO EDITVNDR(ACHSPROV,1126)

 +2        QUIT 

 +3       ;

8         ;

 +1        SET ACHSAGTP="PA"

 +2        DO AGRDSP^ACHSVDV2

 +3        IF '$GET(DA)

               QUIT 

 +4        SET DIE="^AUTTVNDR("_ACHSPROV_",18,"

           SET DA(1)=ACHSPROV

           SET DR=".02;.04;.03;.05;.07;.06;.08;.09"

 +5        DO ^DIE

 +6        KILL DIE

 +7        QUIT 

 +8       ;

9         ;IHS/SET/JVK ACHS*3.1*11 ADD MEDICARE PROVIDER

 +1        IF $PIECE($GET(^AUTTVNDR(ACHSPROV,23)),U)'=""

               DO MP^ACHSVDV1

               DO EDITVNDR(ACHSPROV,"2301;2302")

 +2        IF $PIECE($GET(^AUTTVNDR(ACHSPROV,23)),U)=""

               DO EDITVNDR(ACHSPROV,"2301;2302")

               DO MP^ACHSVDV1

 +3        IF '$GET(DA)

               QUIT 

 +4       ;D EDITVNDR(ACHSPROV,"2301;2302")

 +5        QUIT 

 +6       ;

10        ;IHS/SET/JVK ACHS*3.1*11 RE-NUMBER 10-16

 +1       ;

 +2        SET ACHSAGTP="BPA"

 +3        DO AGRDSP^ACHSVDV2

 +4        IF '$GET(DA)

               QUIT 

 +5        SET DIE="^AUTTVNDR("_ACHSPROV_",18,"

           SET DA(1)=ACHSPROV

           SET DR=".02;.04;.03;.05;.07;.06;.08;.09"

 +6        DO ^DIE

 +7        KILL DIE

 +8        QUIT 

 +9       ;

11        ;ACHS*3.1*19 3.30.11 IHS/OIT/FCJ ADDED E-MAIL OPTION 11 AND RE-NUMBER 12-18

 +1        DO EDITVNDR(ACHSPROV,"2103")

 +2        QUIT 

12        ;ACHS*3.1*13 11/29/06 IHS/OIT/FCJ ADDED DUNS NUMBER AND RE-NUMBER 12-17

 +1        DO EDITVNDR(ACHSPROV,".07;.08")

 +2        QUIT 

 +3       ;ACHS*3.1*23 IHS.OIT.FCJ ADDED DIRECT PARTICIPANT AND DIRECT EMAIL ADDRESS THEN RENUMBERED

13        ;DIRECT PARTICIPANT

 +1        DO EDITVNDR(ACHSPROV,"2104")

 +2        QUIT 

14        ;DIRECT EMAIL ADDRESS

 +1        DO EDITVNDR(ACHSPROV,"2105")

 +2        QUIT 

15        ;

 +1       ;ACHS*3.1*19 ADDED FIELD 1114 TO LINE 

           DO EDITVNDR(ACHSPROV,"1301:1302;1303;1304;1305;1109;1114")

 +2        QUIT 

 +3       ;

16        ;

 +1        DO EDITVNDR(ACHSPROV,"1306;1307;1308;1309")

 +2        QUIT 

 +3       ;

17        ;EP

 +1        DO EDITVNDR(ACHSPROV,1103)

 +2        QUIT 

 +3       ;

18        ;

 +1        DO EDITVNDR(ACHSPROV,1110)

 +2        QUIT 

 +3       ;

19        ;

 +1        DO EDITVNDR(ACHSPROV,1103.01)

 +2        QUIT 

 +3       ;

 +4       ;IHS/SET/JVK ACHS*3.1*6 ADDED GEOGRAPHICAL LOC 4/15/2003

20        ;

 +1        DO EDITVNDR(ACHSPROV,1125)

 +2        QUIT 

 +3       ;

EDITVNDR(DA,DR) ;EP - Edit fields in VENDOR.

 +1        NEW DIE

 +2        SET DIE="^AUTTVNDR("

 +3        DO ^DIE

 +4        QUIT 

 +5       ;