| 1 | PRCNTIWH ;SSI/SEB,ALA-Warehouse review ;[ 05/20/96 10:10 AM ]
|
|---|
| 2 | ;;1.0;Equipment/Turn-In Request;**6**;Sep 13, 1996
|
|---|
| 3 | EN ; Warehouse entry point
|
|---|
| 4 | S DIC("S")="I $P(^(0),U,7)=22",DIC(0)="AEQZ",DIC="^PRCN(413.1,"
|
|---|
| 5 | D ^DIC K DIC("S") G EXIT:Y<0 S WDA=+Y
|
|---|
| 6 | S C=""
|
|---|
| 7 | I $P($G(^PRCN(413.1,WDA,3)),U,4)="" D ASSIG G EXT
|
|---|
| 8 | E D WHSIG
|
|---|
| 9 | EXT K DIC,DA,Y,WDA,DIE,DR,C,F,NL,TDA,TI,X,ANS,PRCNTI,PRCNFA,XMB,XMDUZ,XMY
|
|---|
| 10 | G EN
|
|---|
| 11 | ASSIG ; Warehouse manager assigns item to a warehouse worker
|
|---|
| 12 | S TI=0 F S TI=$O(^PRCN(413.1,WDA,1,TI)) Q:'+TI!(C="^") D
|
|---|
| 13 | . S NL=0,TDA=WDA D TURNIN^PRCNPRNT W ! F J=1:1:78 W "-"
|
|---|
| 14 | S DIC="^VA(200,"
|
|---|
| 15 | W ! S DIC("A")="Assign turn-in # "_$P(^PRCN(413.1,WDA,0),U)_" to whom? "
|
|---|
| 16 | D ^DIC I Y'<0 S $P(^PRCN(413.1,WDA,3),U,4)=+Y
|
|---|
| 17 | ; Send a message to assigned person
|
|---|
| 18 | S XMB="PRCNWHSE",XMB(1)=$P(^PRCN(413.1,WDA,0),U),XMDUZ=DUZ,XMY(+Y)=""
|
|---|
| 19 | D ^XMB
|
|---|
| 20 | Q
|
|---|
| 21 | WHSIG ; Display line items & ask for warehouse signature
|
|---|
| 22 | S TI=0 F S TI=$O(^PRCN(413.1,WDA,1,TI)) Q:'+TI!(C="^") D
|
|---|
| 23 | . S NL=0,TDA=WDA D TURNIN^PRCNPRNT W ! F J=1:1:78 W "-"
|
|---|
| 24 | . S DA(1)=WDA,DA=TI
|
|---|
| 25 | . R !!,"Is this the correct item turned in? ",ANS:DTIME I '$T S C="^" Q
|
|---|
| 26 | . S ANS=$$UP^XLFSTR(ANS)
|
|---|
| 27 | . I ANS'="Y" S C="^" Q
|
|---|
| 28 | . S DIC="^PRCN(413.1,"_DA(1)_",1,",DIE=DIC,DR=1 D ^DIE
|
|---|
| 29 | . R !,"Hit RETURN to continue. ",C:DTIME
|
|---|
| 30 | . S PRCNTI=$P(^PRCN(413.1,WDA,1,TI,0),U),PRCNFA=$$CHKFA^ENFAUTL(PRCNTI)
|
|---|
| 31 | Q:$G(C)="^"
|
|---|
| 32 | D ES^PRCNUTL I $G(FAIL)<1 K FAIL Q
|
|---|
| 33 | I +PRCNFA S DR="6////^S X=43;7////^S X=DT"
|
|---|
| 34 | I '+PRCNFA S DR="6////^S X=23;7////^S X=DT"
|
|---|
| 35 | S DIE=413.1,DA=WDA D ^DIE
|
|---|
| 36 | Q
|
|---|
| 37 | EXIT K DIC,FF,FN,GLO,I,ID,IN,J,N,N2,NEWL,PC,PGL,PRCNDD,PRCNDEEP,PV,VAL
|
|---|
| 38 | Q
|
|---|
