PRCNTIWH ;SSI/SEB,ALA-Warehouse review ;[ 05/20/96 10:10 AM ]
;;1.0;Equipment/Turn-In Request;**6**;Sep 13, 1996
EN ; Warehouse entry point
S DIC("S")="I $P(^(0),U,7)=22",DIC(0)="AEQZ",DIC="^PRCN(413.1,"
D ^DIC K DIC("S") G EXIT:Y<0 S WDA=+Y
S C=""
I $P($G(^PRCN(413.1,WDA,3)),U,4)="" D ASSIG G EXT
E D WHSIG
EXT K DIC,DA,Y,WDA,DIE,DR,C,F,NL,TDA,TI,X,ANS,PRCNTI,PRCNFA,XMB,XMDUZ,XMY
G EN
ASSIG ; Warehouse manager assigns item to a warehouse worker
S TI=0 F S TI=$O(^PRCN(413.1,WDA,1,TI)) Q:'+TI!(C="^") D
. S NL=0,TDA=WDA D TURNIN^PRCNPRNT W ! F J=1:1:78 W "-"
S DIC="^VA(200,"
W ! S DIC("A")="Assign turn-in # "_$P(^PRCN(413.1,WDA,0),U)_" to whom? "
D ^DIC I Y'<0 S $P(^PRCN(413.1,WDA,3),U,4)=+Y
; Send a message to assigned person
S XMB="PRCNWHSE",XMB(1)=$P(^PRCN(413.1,WDA,0),U),XMDUZ=DUZ,XMY(+Y)=""
D ^XMB
Q
WHSIG ; Display line items & ask for warehouse signature
S TI=0 F S TI=$O(^PRCN(413.1,WDA,1,TI)) Q:'+TI!(C="^") D
. S NL=0,TDA=WDA D TURNIN^PRCNPRNT W ! F J=1:1:78 W "-"
. S DA(1)=WDA,DA=TI
. R !!,"Is this the correct item turned in? ",ANS:DTIME I '$T S C="^" Q
. S ANS=$$UP^XLFSTR(ANS)
. I ANS'="Y" S C="^" Q
. S DIC="^PRCN(413.1,"_DA(1)_",1,",DIE=DIC,DR=1 D ^DIE
. R !,"Hit RETURN to continue. ",C:DTIME
. S PRCNTI=$P(^PRCN(413.1,WDA,1,TI,0),U),PRCNFA=$$CHKFA^ENFAUTL(PRCNTI)
Q:$G(C)="^"
D ES^PRCNUTL I $G(FAIL)<1 K FAIL Q
I +PRCNFA S DR="6////^S X=43;7////^S X=DT"
I '+PRCNFA S DR="6////^S X=23;7////^S X=DT"
S DIE=413.1,DA=WDA D ^DIE
Q
EXIT K DIC,FF,FN,GLO,I,ID,IN,J,N,N2,NEWL,PC,PGL,PRCNDD,PRCNDEEP,PV,VAL
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCNTIWH 1604 printed Oct 16, 2024@17:55:35 Page 2
PRCNTIWH ;SSI/SEB,ALA-Warehouse review ;[ 05/20/96 10:10 AM ]
+1 ;;1.0;Equipment/Turn-In Request;**6**;Sep 13, 1996
EN ; Warehouse entry point
+1 SET DIC("S")="I $P(^(0),U,7)=22"
SET DIC(0)="AEQZ"
SET DIC="^PRCN(413.1,"
+2 DO ^DIC
KILL DIC("S")
if Y<0
GOTO EXIT
SET WDA=+Y
+3 SET C=""
+4 IF $PIECE($GET(^PRCN(413.1,WDA,3)),U,4)=""
DO ASSIG
GOTO EXT
+5 IF '$TEST
DO WHSIG
EXT KILL DIC,DA,Y,WDA,DIE,DR,C,F,NL,TDA,TI,X,ANS,PRCNTI,PRCNFA,XMB,XMDUZ,XMY
+1 GOTO EN
ASSIG ; Warehouse manager assigns item to a warehouse worker
+1 SET TI=0
FOR
SET TI=$ORDER(^PRCN(413.1,WDA,1,TI))
if '+TI!(C="^")
QUIT
Begin DoDot:1
+2 SET NL=0
SET TDA=WDA
DO TURNIN^PRCNPRNT
WRITE !
FOR J=1:1:78
WRITE "-"
End DoDot:1
+3 SET DIC="^VA(200,"
+4 WRITE !
SET DIC("A")="Assign turn-in # "_$PIECE(^PRCN(413.1,WDA,0),U)_" to whom? "
+5 DO ^DIC
IF Y'<0
SET $PIECE(^PRCN(413.1,WDA,3),U,4)=+Y
+6 ; Send a message to assigned person
+7 SET XMB="PRCNWHSE"
SET XMB(1)=$PIECE(^PRCN(413.1,WDA,0),U)
SET XMDUZ=DUZ
SET XMY(+Y)=""
+8 DO ^XMB
+9 QUIT
WHSIG ; Display line items & ask for warehouse signature
+1 SET TI=0
FOR
SET TI=$ORDER(^PRCN(413.1,WDA,1,TI))
if '+TI!(C="^")
QUIT
Begin DoDot:1
+2 SET NL=0
SET TDA=WDA
DO TURNIN^PRCNPRNT
WRITE !
FOR J=1:1:78
WRITE "-"
+3 SET DA(1)=WDA
SET DA=TI
+4 READ !!,"Is this the correct item turned in? ",ANS:DTIME
IF '$TEST
SET C="^"
QUIT
+5 SET ANS=$$UP^XLFSTR(ANS)
+6 IF ANS'="Y"
SET C="^"
QUIT
+7 SET DIC="^PRCN(413.1,"_DA(1)_",1,"
SET DIE=DIC
SET DR=1
DO ^DIE
+8 READ !,"Hit RETURN to continue. ",C:DTIME
+9 SET PRCNTI=$PIECE(^PRCN(413.1,WDA,1,TI,0),U)
SET PRCNFA=$$CHKFA^ENFAUTL(PRCNTI)
End DoDot:1
+10 if $GET(C)="^"
QUIT
+11 DO ES^PRCNUTL
IF $GET(FAIL)<1
KILL FAIL
QUIT
+12 IF +PRCNFA
SET DR="6////^S X=43;7////^S X=DT"
+13 IF '+PRCNFA
SET DR="6////^S X=23;7////^S X=DT"
+14 SET DIE=413.1
SET DA=WDA
DO ^DIE
+15 QUIT
EXIT KILL DIC,FF,FN,GLO,I,ID,IN,J,N,N2,NEWL,PC,PGL,PRCNDD,PRCNDEEP,PV,VAL
+1 QUIT
