source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCODJM.m@ 1141

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

initial load of WorldVistAEHR

File size: 1.8 KB
RevLine 
[613]1PRCODJM ;WISC/DJM/BGJ-IFCAP TESTING READER CODE ; 7/22/99 2:19pm
2V ;;5.1;IFCAP;**48**;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ; THIS ROUTINE IS CALLED FROM THE OPTION 'PRCO EDI REPORTS'
6 ; AT THE 'ENTRY ACTION'. THE CODE IN THIS ROUTINE WAS ATTEMPTED
7 ; TO BE PLACED IN THE ROUTINE 'PRCOER' BUT WHEN 'HELP1' (?? HELP)
8 ; WAS SELECTED AND EXITED THE QUESTION/S IN THIS ROUTINE WERE ASKED
9 ; AGAIN. PUTTING THE QUESTION/S HERE ELIMINATED THE PROBLEM.
10 ;
11BEGIN ; FIND OUT STATUS OF USER.
12 K PRCOFLG
13 N DIC,DIR
14 S USER=$P($G(^VA(200,DUZ,400)),U)
15 S SENDER=0
16 S PRCOFLG=""
17 I USER'>0 S PRCOFLG=-1 D EN^DDIOL("You are not an A&MM EMPLOYEE, exiting option.","","!!?10") G EXIT
18 ;
19 ; FIND OUT IF USER WANTS TO SEE EVERYTHING.
20 ;
21 S DIR("A")="Do you want to see all the records now"
22 S DIR("B")="Yes"
23 S DIR(0)="Y"
24 S DIR("?",1)="Answering Yes or Y to this question will let you"
25 S DIR("?",2)="see information about all the PHA, RFQ and TXT"
26 S DIR("?",3)="transactions from all SENDERs."
27 S DIR("?",4)=""
28 S DIR("?",5)="Answering No or N will limit you to viewing the"
29 S DIR("?",6)="PHA, RFQ and TXT transactions from one SENDER."
30 S DIR("?",7)=""
31 S DIR("?")="Enter '^' to exit this option."
32 D ^DIR
33 I Y["^" S PRCOFLG=-1 D EN^DDIOL("Exiting option.","","!!?10") G EXIT
34 ;
35 ; Y=1 is YES, I want to see all the entries.
36 ;
37 I Y=1 G EXIT
38 ;
39SENDER ; COME HERE TO SELECT ONE PERSON THAT ENTERED RECORDS IN FILE 443.75.
40 D EN^DDIOL("","","!")
41 K DTOUT
42 K DUOUT
43 K Y
44 I $O(^PRC(443.75,"C",DUZ,0))>0 D
45 . S DIC("B")=$P($G(^VA(200,DUZ,0)),U)
46 . Q
47 S DIC="^PRC(443.75,"
48 S DIC(0)="AEQ"
49 S D="C"
50 D IX^DIC
51 I Y=-1!($D(DTOUT))!($D(DUOUT)) S PRCOFLG=-1 G EXIT
52 S:$P(Y,U)>0 SENDER=$P(^PRC(443.75,$P(Y,U),0),U,11)
53 ;
54EXIT ; LETS QUIT
55 I $G(PRCOFLG)'=-1 D
56 . D EN^DDIOL("","","!!")
57 . D WAIT^DICD
58 . Q
59 Q
Note: See TracBrowser for help on using the repository browser.