| 1 | PRCE58P ;WISC/SAW/LDB-CONTROL POINT ACTIVITY 1358 DISPLAY CON'T ; 2/29/00 3:39pm
|
---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
| 4 | PRF58 ;PRINT 1358 ONLY
|
---|
| 5 | D EN3^PRCSUT G W1:'$D(PRC("SITE")),EXIT:Y<0
|
---|
| 6 | PRF58E S DIC="^PRCS(410," D OROBL^PRCS58OB(DIC,.PRC,.DA) G EXIT:Y<0 K DIC("S") S DA=+Y
|
---|
| 7 | D NODE^PRCS58OB(DA,.TRNODE)
|
---|
| 8 | I '$D(PRC("CP")) S PRC("CP")=$P(TRNODE(0),"-",4)
|
---|
| 9 | PRF2 K PRCSA W !,"Would you like to print the Description field for each 1358 Daily Record entry" S %=2 D YN^DICN G PRF2:%=0,EXIT:%<0 I %=1 S PRCSA=1
|
---|
| 10 | S DIR("A")="Would you like to print the daily records for each authorization? ",DIR(0)="YAO",DIR("B")="NO"
|
---|
| 11 | S DIR("?")="Answer 'yes' to see the all the payments for each authorization." D ^DIR G:$D(DIRUT) EXIT S PRCSA1=Y G:Y=0 PRF3
|
---|
| 12 | S DIR("A")="Would you like to print descriptions for each detailed daily record? ",DIR("?")="Answer 'yes' if you would like to see the description printed for each record."
|
---|
| 13 | D ^DIR
|
---|
| 14 | I $D(DIRUT) S PRCSA2=0 G EXIT
|
---|
| 15 | S PRCSA2=Y
|
---|
| 16 | PRF3 D DEV G EXIT:POP
|
---|
| 17 | I $D(IO("Q")) K IO("Q") S ZTRTN="^PRCE58P2",ZTSAVE("DA")="",ZTSAVE("PRC*")="" D ^%ZTLOAD G:$D(PRCSF) EXIT Q:$G(REP)="PRCEFIS4" D W2 G PRF58
|
---|
| 18 | I $E(IOST)="P" D ^PRCE58P2 D ^%ZISC G:$D(PRCSF) EXIT Q:$G(REP)="PRCEFIS4" D W2 G PRF58
|
---|
| 19 | D ^PRCE58P0 W:$Y>0 @IOF Q:$D(PRCSF)!($G(REP)="PRCEFIS4") D W2 G PRF58
|
---|
| 20 | EXIT K %,%DT,%ZIS,BY,C2,C3,D,DA,DHD,DIC,DIE,PRCS,PRCSQ,FLDS,FR,I,L,N,TO,X,Y,ZTRTN,ZTSAVE
|
---|
| 21 | K DIR
|
---|
| 22 | Q
|
---|
| 23 | W2 W !!,"Enter information for another report or an uparrow to return to the menu.",! Q
|
---|
| 24 | DEV K IO("Q") S %ZIS("B")="HOME",%ZIS="MQ" D ^%ZIS Q
|
---|
| 25 | W1 W !!,"You are not an authorized control point user.",!,"Contact your control point official." R X:5 G EXIT
|
---|