ACRFVEND.m

ACRFVEND ;IHS/OIRM/DSD/THL,AEF - ADD/EDIT VENDORS; [ 07/20/2006   9:44 AM ]

 ;;2.1;ADMIN RESOURCE MGT SYSTEM;**20**;NOV 05, 2001

 ;;ROUTINE USED TO ADD/EDIT VENDORS

EN ; EP

 S (AUTEDIT,AUTTPKG)=""

 ; D ADD^AUTTVLK               ; ACR*2.1*20.14  VENDOR

 D ADD^ACRFVLK                 ; ACR*2.1*20.14  VENDOR

EXIT K AUTEDIT,AUTTPKG,AUTDA,AUTVDA,ACRVENAM,ACRDA,ACRD0,ACRMANAM

 Q

MAN ;EP;TO EDIT MANUFACTURER FOR AN ITEM

 F  D MAN1 Q:$D(ACRQUIT)!$D(ACROUT)

 K ACRQUIT,ACRDIE,ACRMANAM,ACRD0

 Q

MAN1 W @IOF

 W !!?22,"ADD A MANUFACTURER"

 W !?22,"=================="

 S DIC="^ACRMAN("

 S DIC(0)="AELMQZ"

 S DIC("A")="MANUFACTURER........: "

 W !!?21,"|"

 F ACRI=1:1:30 W "="

 W "|"

 D DIC^ACRFDIC

 I U[$E(X)!(+Y<1) S ACRQUIT="" Q

 N ACRY

 S (ACRDA,ACRD0)=+Y

 S ACRY=$P(Y,U,3)

 S ACRMANAM=$P(^ACRMAN(+Y,0),U)

 D MAN2 Q:$D(ACRQUIT)!$D(ACROUT)

 K ACRQUIT

 Q

MAN2 G:ACRY=1 MAN3

 D MANDISP

 S DIR(0)="YO"

 S DIR("A")="Edit MANUFACTURER DATA"

 S DIR("B")="NO"

 W !

 D DIR^ACRFDIC

 I Y=0 S ACRQUIT="" Q

MAN3 S DA=ACRDA

 S DIE="^ACRMAN("

 S DR="[ACR MANUFACTURER EDIT]"

 W !!

 D DIE^ACRFDIC

 Q

MANDISP W @IOF

 W ?9,@ACRON,"MANUFACURER",@ACROF," DATA FOR: ",@ACRON,ACRMANAM,@ACROF

 W !

 S D0=ACRD0

 N DXS,DIP,DC,DN

 D ^ACRPMAN

 Q

ACRFVEND  ;IHS/OIRM/DSD/THL,AEF - ADD/EDIT VENDORS; [ 07/20/2006   9:44 AM ]

 +1       ;;2.1;ADMIN RESOURCE MGT SYSTEM;**20**;NOV 05, 2001

 +2       ;;ROUTINE USED TO ADD/EDIT VENDORS

EN        ; EP

 +1        SET (AUTEDIT,AUTTPKG)=""

 +2       ; D ADD^AUTTVLK               ; ACR*2.1*20.14  VENDOR

 +3       ; ACR*2.1*20.14  VENDOR

           DO ADD^ACRFVLK

EXIT       KILL AUTEDIT,AUTTPKG,AUTDA,AUTVDA,ACRVENAM,ACRDA,ACRD0,ACRMANAM

 +1        QUIT 

MAN       ;EP;TO EDIT MANUFACTURER FOR AN ITEM

 +1        FOR 

               DO MAN1

               IF $DATA(ACRQUIT)!$DATA(ACROUT)

                   QUIT 

 +2        KILL ACRQUIT,ACRDIE,ACRMANAM,ACRD0

 +3        QUIT 

MAN1       WRITE @IOF

 +1        WRITE !!?22,"ADD A MANUFACTURER"

 +2        WRITE !?22,"=================="

 +3        SET DIC="^ACRMAN("

 +4        SET DIC(0)="AELMQZ"

 +5        SET DIC("A")="MANUFACTURER........: "

 +6        WRITE !!?21,"|"

 +7        FOR ACRI=1:1:30

               WRITE "="

 +8        WRITE "|"

 +9        DO DIC^ACRFDIC

 +10       IF U[$EXTRACT(X)!(+Y<1)

               SET ACRQUIT=""

               QUIT 

 +11       NEW ACRY

 +12       SET (ACRDA,ACRD0)=+Y

 +13       SET ACRY=$PIECE(Y,U,3)

 +14       SET ACRMANAM=$PIECE(^ACRMAN(+Y,0),U)

 +15       DO MAN2

           IF $DATA(ACRQUIT)!$DATA(ACROUT)

               QUIT 

 +16       KILL ACRQUIT

 +17       QUIT 

MAN2       IF ACRY=1

               GOTO MAN3

 +1        DO MANDISP

 +2        SET DIR(0)="YO"

 +3        SET DIR("A")="Edit MANUFACTURER DATA"

 +4        SET DIR("B")="NO"

 +5        WRITE !

 +6        DO DIR^ACRFDIC

 +7        IF Y=0

               SET ACRQUIT=""

               QUIT 

MAN3       SET DA=ACRDA

 +1        SET DIE="^ACRMAN("

 +2        SET DR="[ACR MANUFACTURER EDIT]"

 +3        WRITE !!

 +4        DO DIE^ACRFDIC

 +5        QUIT 

MANDISP    WRITE @IOF

 +1        WRITE ?9,@ACRON,"MANUFACURER",@ACROF," DATA FOR: ",@ACRON,ACRMANAM,@ACROF

 +2        WRITE !

 +3        SET D0=ACRD0

 +4        NEW DXS,DIP,DC,DN

 +5        DO ^ACRPMAN

 +6        QUIT