| 1 | PRCODJM ;WISC/DJM/BGJ-IFCAP TESTING READER CODE ; 7/22/99 2:19pm
|
|---|
| 2 | V ;;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 | ;
|
|---|
| 11 | BEGIN ; 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 | ;
|
|---|
| 39 | SENDER ; 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 | ;
|
|---|
| 54 | EXIT ; LETS QUIT
|
|---|
| 55 | I $G(PRCOFLG)'=-1 D
|
|---|
| 56 | . D EN^DDIOL("","","!!")
|
|---|
| 57 | . D WAIT^DICD
|
|---|
| 58 | . Q
|
|---|
| 59 | Q
|
|---|
