Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ACGSVEND

ACGSVEND.m

Go to the documentation of this file. 
  1. ACGSVEND ;IHS/OIRM/DSD/THL - ADD/EDIT VENDORS; [ 03/27/2000   2:22 PM ]
  1.  ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000
  1.  ;;ROUTINE TO ADD AND EDIT VENDOR DATA
  1. EN ;EP;TO ADD OR EDIT CIS VENDOR
  1.  S AUTEDIT=""
  1.  D ADD^AUTTVLK
  1.  Q
  1. EN4 ;EP;
  1.  Q:'$G(Y)
  1.  N ACGY
  1.  S (ACGDA,ACGD0)=+Y,ACGY=$P(Y,U,3),ACGVENAM=$P(^AUTTVNDR(+Y,0),U)
  1.  F  D EN2 Q:$D(ACGQUIT)
  1.  K ACGQUIT
  1.  Q
  1. EN2 G:ACGY=1 EN3
  1.  D VND
  1.  S DIR(0)="YO",DIR("A")="Edit VENDOR DATA",DIR("B")="NO"
  1.  W !
  1.  D DIR^ACGSDIC
  1.  I Y'=1 S ACGQUIT="" Q
  1. EN3 S ACGY="",DIE="^AUTTVNDR(",DA=ACGDA,DR="[AUT VENDOR EDIT]"
  1.  W !!
  1.  S DY=18,DX=0,ACGDDIE="VND^ACGSVEND",ACGMESS=ACGVENAM
  1.  D DIE^ACGSDIC
  1.  I $D(ACGCWIN) X ACGCWIN
  1.  K ACGDDIE,ACGMESS,DX,DY
  1.  Q
  1. VND ;EP;TO PRINT CIS VENDOR DATA
  1.  W:$D(IOF) @IOF
  1.  W ?9,@ACGON,"VENDOR",@ACGOF," DATA FOR: ",@ACGON,ACGVENAM,@ACGOF,!
  1.  K DXS,DIP,DC
  1.  S D0=ACGD0
  1.  D ^ACGPVND
  1.  K DXS,DIP,DC
  1.  Q
  1. SP ;XEP;TO ADD OR EDIT A SMALL PURCHASE VENDOR
  1.  F  D SP1 Q:$D(ACGQUIT)
  1. SPEXIT K ACGVENAM,ACGDA,ACGD0
  1.  Q
  1. SP1 K ACGY,X
  1.  D TITLE^ACGSMENU
  1.  W !!?28,"ADD OR EDIT SMALL PURCHASE VENDOR DATA"
  1.  S (DIC,DIE)="^AUTTVNDR(",DIC(0)="AELMQZ",DIC("A")="VENDOR..............: ",DIC("DR")="",DLAYGO=9999999.11
  1.  W !!!?21,"|" F ACGI=1:1:30 W "="
  1.  W "|"
  1.  D DIC^ACGSDIC
  1.  I U[$E(X)!(+Y<1) S ACGQUIT="" Q
  1. SP4 ;EP;
  1.  Q:'$G(Y)
  1.  N ACGY
  1.  S (ACGDA,ACGD0)=+Y,ACGY=$P(Y,U,3),ACGVENAM=$P(^AUTTVNDR(+Y,0),U)
  1.  F  D SP2 Q:$D(ACGQUIT)
  1.  K ACGQUIT
  1.  Q
  1. SP2 G:ACGY=1 SP3
  1.  D SPD
  1.  S DIR(0)="YO",DIR("A")="Edit VENDOR DATA",DIR("B")="NO"
  1.  W !
  1.  D DIR^ACGSDIC
  1.  I Y'=1 S ACGQUIT="" Q
  1. SP3 S ACGY="",DIE="^AUTTVNDR(",DA=ACGDA,DR="[AUT SMALL PURCHASE VENDOR]"
  1.  W !
  1.  D DIE^ACGSDIC
  1.  Q
  1. TOB K ACGQUIT
  1.  S DIR(0)="SO^A1:Small Business Concern;A2:Large Business Concern;A3:Domestic Outside U.S./Foreign;A4:Other Entity",DIR("A")="TYPE OF BUSINESS...."
  1.  I $P(^AUTTVNDR(ACGDA,11),U,26)'="" S ACG1126=$P(^(11),U,26),DIR("B")=$S(ACG1126<4:"A1",ACG1126=4!(ACG1126=5):"A2",1:"A1")
  1.  E  S DIR("B")="A1"
  1.  D DIR^ACGSDIC
  1.  I $D(ACGQUIT)!(X="") W !!,*7,"TYPE OF BUSINESS required" G TOB
  1.  S ACG1126=Y
  1. TOV K ACGQUIT
  1.  S DIR(0)="SO^1:Small Disadvantages Business;2:Woman-Owned Small Business;3:Sheltered Workshop;4:UNICOR;5:Other",DIR("A")="TYPE OF VENDOR......"
  1.  I $P(^AUTTVNDR(ACGDA,11),U,15)'="",$P(^(11),U,15)=1 S DIR("B")=2
  1.  E  I $P(^AUTTVNDR(ACGDA,11),U,26)'="" S ACG1115=$P(^(11),U,26),DIR("B")=$S(ACG1115=1:1,ACG1115=10:3,1:5)
  1.  E  S DIR("B")=5
  1.  D DIR^ACGSDIC
  1.  I $D(ACGQUIT)!(X="") W !!,*7,"TYPE OF VENDOR required" G TOV
  1.  S ACG1115=Y
  1.  S DA=ACGDA,DIE="^AUTTVNDR(",DR="1115////"_$S(ACG1115=2:1,1:2)_";1126////"_$S(ACG1115=1:1,ACG1115=3!(ACG1115=4):10,ACG1126="A2"!(ACG1126="A4"):5,1:3)
  1.  D DIE^ACGSDIC
  1.  Q
  1. SPD ;EP;TO PRINT SMALL PURCHASE VENDOR DATA
  1.  W:$D(IOF) @IOF
  1.  W ?9,@ACGON,"VENDOR",@ACGOF," DATA FOR: ",@ACGON,ACGVENAM,@ACGOF,!!
  1.  K DXS,DIP,DC
  1.  S D0=ACGD0
  1.  D ^ACGPSPD
  1.  K DXS,DIP,DC
  1.  Q
  1. DIC D ^DIC K DIC,DA,DD,DR,DINUM Q
  1. DIE L +@(DIE_DA_")"):4
  1.  I '$T W !!,"Entry being edited.  Try Later." H 2 Q
  1.  D ^DIE
  1.  L -@(DIE_DA_")"):0
  1.  K DIE,DA,DR
  1.  Q
  1. DIR D ^DIR S:$D(DIRUT) ACGQUIT="" K DIR,DIRUT,DUOUT,DTOUT Q