Changeset 636 for FOIAVistA/tag/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCHPCAR.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCHPCAR.m
r628 r636 1 1 PRCHPCAR ;WISC/AKS-Front End questions for Purchase Card processes ;6/9/96 21:40 2 ;;5.1;IFCAP; **113**;Oct 20, 2000;Build 43 ;Per VHA Directive 2004-038, this routine should not be modified.2 ;;5.1;IFCAP;;Oct 20, 2000 3 ;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 ASKPO ;Ask If they are processing a purchase or a requisition 5 5 N DIR,Y,PRCHPR,PRCHNE … … 83 83 K DA,%A,%B,% 84 84 QUIT 85 AOCANPC ;Approving Official Cancel a purchase card order86 N DIC,Y,NREC,X87 W ! S DIC="^PRC(442,",DIC(0)="AEQM"88 S DIC("A")="Select PURCHASE CARD ORDER NUMBER: "89 S DIC("S")="I $P($G(^(7)),U,2)<9,$P($G(^(0)),U,2)=25,($P($G(^(23)),U,11)=""P""!($P($G(^(23)),U,11)=""S""))"90 D ^DIC Q:+Y<0 K DIC91 S %A="Are sure you want to cancel this order",%B="",%=292 D ^PRCFYN I %<1!(%=2) K %A,%B,% Q93 S DA=+Y,DIE="^PRC(442,",DR=".5///^S X=45" D ^DIE K DIE,DR94 D C2237^PRCH442A95 K DA,%A,%B,%96 QUIT
Note:
See TracChangeset
for help on using the changeset viewer.