source: FOIAVistA/trunk/r/EQUIPMENT_TURN_IN_REQUEST-PRCN/PRCNPEDT.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1PRCNPEDT ;SSI/ALA-PPM Equipment Request Edit ;[ 07/19/96 2:34 PM ]
2 ;;1.0;Equipment/Turn-In Request;;Sep 13, 1996
3RRV ; Review transaction for request
4 S DIC("S")="S ST=$P(^(0),U,7) I ST=6!(ST=15)!(ST=10)!(ST=31)!(ST=38)!(ST=39)!(ST=28)"
5 S DIC="^PRCN(413,",DIC(0)="AEQZ",DIE=413 D ^DIC G EXIT:+Y<0 K DIC("S")
6 S (IN,DA)=+Y,DIE("NO^")="OUTOK",DR="[PRCNPPE]",PRCNUSR=8
7 D SETUP^PRCNPRNT
8 W !,"Do you want to edit this request" S %=2 D YN^DICN G EXIT:%'=1
9 D ^DIE
10ENG S %=2 W !!,"Resend to Engineering for Editing" D YN^DICN
11 I %=0 D G ENG
12 . W !!,"Enter 'Y'es if this request needs to be edited by the Engineering group."
13 I %=1 D
14 . S DA=D0,DR="6///^S X=8;7///^S X=DT" D ^DIE
15 G RRV
16EXIT K IN,DA,D0,ST,PRCNUSR,DR,DIC,DIE,PRCNTDA,%
17 Q
18TRV ; Review transaction for turn-in
19 S DIC("S")="S ST=$P(^(0),U,7) I ST=6!(ST=23)"
20 S DIC="^PRCN(413.1,",DIC(0)="AEQZ",DIE=413.1 D ^DIC G EXIT:+Y<0 K DIC("S")
21 S (IN,PRCNTDA,DA)=+Y,DR="[PRCNTIPED]",PRCNUSR=2
22 D SETUP^PRCNTIPR
23 W !,"Do you want to edit this request" S %=2 D YN^DICN G EXIT:%'=1
24 D ^DIE
25 G TRV
Note: See TracBrowser for help on using the repository browser.