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 ;
