source: WorldVistAEHR/trunk/r/EQUIPMENT_TURN_IN_REQUEST-PRCN/PRCNTIWH.m@ 846

Last change on this file since 846 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1PRCNTIWH ;SSI/SEB,ALA-Warehouse review ;[ 05/20/96 10:10 AM ]
2 ;;1.0;Equipment/Turn-In Request;**6**;Sep 13, 1996
3EN ; 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
9EXT K DIC,DA,Y,WDA,DIE,DR,C,F,NL,TDA,TI,X,ANS,PRCNTI,PRCNFA,XMB,XMDUZ,XMY
10 G EN
11ASSIG ; 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
21WHSIG ; 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
37EXIT K DIC,FF,FN,GLO,I,ID,IN,J,N,N2,NEWL,PC,PGL,PRCNDD,PRCNDEEP,PV,VAL
38 Q
Note: See TracBrowser for help on using the repository browser.