source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFATM.m@ 623

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

initial load of WorldVistAEHR

File size: 3.0 KB
Line 
1PRCFATM ;WISC/SJG-DISPLAY TYPES/COUNTS OF ACCTG TECH DOCUMENTS ;12/14/93 10:15
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5EN ;
6 QUIT
7 D PROMPT Q:'Y Q:$D(DIRUT)
8 S PRCF("X")="AS" D ^PRCFSITE Q:'%
9 W ! D WAIT^DICD W !
10 D HILO^PRCFQ
11 D HDR,ENPO,ENPOA,ENRR
12 W ! D ENCON^PRCFQ W !
13 QUIT
14ENPO ;COUNT/DISPLAY PURCHASE ORDERS
15 S TYPE="Purchase Order",FLAG=0
16 F LOOP=10,15,20 S TAG="EN"_LOOP D @TAG
17 W:'FLAG !?3,"There are no PURCHASE ORDERS ready for processing at this time.",!
18 D EXMAIN
19 QUIT
20ENPOA ;COUNT/DISPLAY PURCHASE ORDER AMENDMENTS
21 S TYPE="Purchase Order Amendment",FLAG=0
22 F LOOP=26,41,31,36 S TAG="EN"_LOOP D @TAG
23 W:'FLAG ?3,"There are no PURCHASE ORDER AMENDMENTS ready for processing at this time.",!
24 D EXMAIN
25 QUIT
26ENRR ;COUNT/DISPLAY RECEIVING REPORTS
27 S TYPE="Receiving Report",FLAG=0
28 F LOOP=35,30,36,31 S TAG="EN"_LOOP D @TAG
29 W:'FLAG ?3,"There are no RECEIVING REPORTS ready for processing at this time.",!
30 D EXMAIN
31 QUIT
32EN10 ;COUNT 'PENDING FISCAL ACTION' STATUS
33 S FSO=10 D WORK S:X FLAG=1 D EXPO
34 Q
35EN26 ;COUNT 'ORDERED AND OBLIGATED (AMENDED)' STATUS
36 S FSO=26 D WORK S:X FLAG=1 D EXPO
37 Q
38EN30 ;COUNT 'PARTIAL ORDER RECEIVED' STATUS
39 S FSO=30 D WORK S:X FLAG=1 D EXPO
40 Q
41EN31 ;COUNT 'PARTIAL ORDER RECEIVED (AMENDED)' STATUS
42 S FSO=31 D WORK S:X FLAG=1 D EXPO
43 Q
44EN15 ;COUNT 'PARTIAL ORDER RECEIVED BUT NOT OBLIGATED' STATUS
45 S FSO=15 D WORK S:X FLAG=1 D EXPO
46 Q
47EN35 ;COUNT 'COMPLETE ORDER RECEIVED' STATUS
48 S FSO=35 D WORK S:X FLAG=1 D EXPO
49 Q
50EN36 ;COUNT 'COMPLETE ORDER RECEIVED (AMENDED)' STATUS
51 S FSO=36 D WORK S:X FLAG=1 D EXPO
52 Q
53EN20 ;COUNT 'COMPLETE ORDER RECEIVED BUT NOT OBLIGATED' STATUS
54 S FSO=20 D WORK S:X FLAG=1 D EXPO
55 Q
56EN41 ;COUNT 'TRANSACTION COMPLETE (AMENDED)' STATUS
57 S FSO=41 D WORK S:X FLAG=1 D EXPO
58 Q
59HDR ;
60 W IOINHI,!!?3,"The following documents are ready for processing:",!
61 W !?3,"Number",?11,"Type",?38,"Status",!
62 N LINE S LINE="",$P(LINE,"-",75)="" W ?3,LINE K LINE W IOINORM
63 K IOINLO,IOINHI,IOINORM
64 Q
65WORK D STATUS,COUNT,DISP
66 Q
67STATUS ;GET DOCUMENT STATUS
68 S DIC=442.3,D="AC",DIC(0)="N",X=FSO D IX^DIC K DIC Q:Y<0
69 Q
70COUNT ;COUNT ENTRIES IN X-REF
71 S X=0,I="" F S I=$O(^PRC(442,"AI",FSO,I)) Q:I="" K TX S TX=$G(^PRC(442,I,0)) I $P(TX,"-")=PRC("SITE") S X=X+1
72 Q
73DISP ;DISPLAY COUNT OF ENTRIES
74 Q:'X
75 W !?3,$J(X,6),?11,TYPE,?38,$P(Y,"^",2)
76 Q
77EXPO ;EXIT POINT FOR PURCHASE ORDER, AMENDMENTS, RECEIVING REPORTS
78 KILL I,FSO,X,Y
79 QUIT
80EXMAIN ;MAIN EXIT POINT
81 KILL LOOP,TAG,TYPE,FLAG,TX
82 QUIT
83PROMPT ; Prompt user if report should be run
84 S DIR(0)="Y",DIR("A")="Do you want to run the report at this time",DIR("B")="NO"
85 S DIR("A",1)=" ",DIR("A",2)="The system can now generate a report that will list the type and number"
86 S DIR("A",3)="of each document that is ready for processing at this time."
87 S DIR("A",4)=" ",DIR("A",5)="But, it may take a while to complete.",DIR("A",6)=" "
88 S DIR("?")="Enter 'NO' or 'N' or 'RETURN' if the report should not be run at this time."
89 S DIR("?",1)="Enter 'YES' or 'Y' to run the report"
90 D ^DIR K DIR
91 Q
Note: See TracBrowser for help on using the repository browser.