Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRCFATM

PRCFATM.m

Go to the documentation of this file.
  1. PRCFATM ;WISC/SJG-DISPLAY TYPES/COUNTS OF ACCTG TECH DOCUMENTS ;12/14/93 10:15
  1. V ;;5.1;IFCAP;;Oct 20, 2000
  1. ;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. EN ;
  1. QUIT
  1. D PROMPT Q:'Y Q:$D(DIRUT)
  1. S PRCF("X")="AS" D ^PRCFSITE Q:'%
  1. W ! D WAIT^DICD W !
  1. D HILO^PRCFQ
  1. D HDR,ENPO,ENPOA,ENRR
  1. W ! D ENCON^PRCFQ W !
  1. QUIT
  1. ENPO ;COUNT/DISPLAY PURCHASE ORDERS
  1. S TYPE="Purchase Order",FLAG=0
  1. F LOOP=10,15,20 S TAG="EN"_LOOP D @TAG
  1. W:'FLAG !?3,"There are no PURCHASE ORDERS ready for processing at this time.",!
  1. D EXMAIN
  1. QUIT
  1. ENPOA ;COUNT/DISPLAY PURCHASE ORDER AMENDMENTS
  1. S TYPE="Purchase Order Amendment",FLAG=0
  1. F LOOP=26,41,31,36 S TAG="EN"_LOOP D @TAG
  1. W:'FLAG ?3,"There are no PURCHASE ORDER AMENDMENTS ready for processing at this time.",!
  1. D EXMAIN
  1. QUIT
  1. ENRR ;COUNT/DISPLAY RECEIVING REPORTS
  1. S TYPE="Receiving Report",FLAG=0
  1. F LOOP=35,30,36,31 S TAG="EN"_LOOP D @TAG
  1. W:'FLAG ?3,"There are no RECEIVING REPORTS ready for processing at this time.",!
  1. D EXMAIN
  1. QUIT
  1. EN10 ;COUNT 'PENDING FISCAL ACTION' STATUS
  1. S FSO=10 D WORK S:X FLAG=1 D EXPO
  1. Q
  1. EN26 ;COUNT 'ORDERED AND OBLIGATED (AMENDED)' STATUS
  1. S FSO=26 D WORK S:X FLAG=1 D EXPO
  1. Q
  1. EN30 ;COUNT 'PARTIAL ORDER RECEIVED' STATUS
  1. S FSO=30 D WORK S:X FLAG=1 D EXPO
  1. Q
  1. EN31 ;COUNT 'PARTIAL ORDER RECEIVED (AMENDED)' STATUS
  1. S FSO=31 D WORK S:X FLAG=1 D EXPO
  1. Q
  1. EN15 ;COUNT 'PARTIAL ORDER RECEIVED BUT NOT OBLIGATED' STATUS
  1. S FSO=15 D WORK S:X FLAG=1 D EXPO
  1. Q
  1. EN35 ;COUNT 'COMPLETE ORDER RECEIVED' STATUS
  1. S FSO=35 D WORK S:X FLAG=1 D EXPO
  1. Q
  1. EN36 ;COUNT 'COMPLETE ORDER RECEIVED (AMENDED)' STATUS
  1. S FSO=36 D WORK S:X FLAG=1 D EXPO
  1. Q
  1. EN20 ;COUNT 'COMPLETE ORDER RECEIVED BUT NOT OBLIGATED' STATUS
  1. S FSO=20 D WORK S:X FLAG=1 D EXPO
  1. Q
  1. EN41 ;COUNT 'TRANSACTION COMPLETE (AMENDED)' STATUS
  1. S FSO=41 D WORK S:X FLAG=1 D EXPO
  1. Q
  1. HDR ;
  1. W IOINHI,!!?3,"The following documents are ready for processing:",!
  1. W !?3,"Number",?11,"Type",?38,"Status",!
  1. N LINE S LINE="",$P(LINE,"-",75)="" W ?3,LINE K LINE W IOINORM
  1. K IOINLO,IOINHI,IOINORM
  1. Q
  1. WORK D STATUS,COUNT,DISP
  1. Q
  1. STATUS ;GET DOCUMENT STATUS
  1. S DIC=442.3,D="AC",DIC(0)="N",X=FSO D IX^DIC K DIC Q:Y<0
  1. Q
  1. COUNT ;COUNT ENTRIES IN X-REF
  1. 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
  1. Q
  1. DISP ;DISPLAY COUNT OF ENTRIES
  1. Q:'X
  1. W !?3,$J(X,6),?11,TYPE,?38,$P(Y,"^",2)
  1. Q
  1. EXPO ;EXIT POINT FOR PURCHASE ORDER, AMENDMENTS, RECEIVING REPORTS
  1. KILL I,FSO,X,Y
  1. QUIT
  1. EXMAIN ;MAIN EXIT POINT
  1. KILL LOOP,TAG,TYPE,FLAG,TX
  1. QUIT
  1. PROMPT ; Prompt user if report should be run
  1. S DIR(0)="Y",DIR("A")="Do you want to run the report at this time",DIR("B")="NO"
  1. S DIR("A",1)=" ",DIR("A",2)="The system can now generate a report that will list the type and number"
  1. S DIR("A",3)="of each document that is ready for processing at this time."
  1. S DIR("A",4)=" ",DIR("A",5)="But, it may take a while to complete.",DIR("A",6)=" "
  1. S DIR("?")="Enter 'NO' or 'N' or 'RETURN' if the report should not be run at this time."
  1. S DIR("?",1)="Enter 'YES' or 'Y' to run the report"
  1. D ^DIR K DIR
  1. Q