| 1 | PRCFACP ;WISC/CTB/BGJ-BATCH PRINT CODE SHEETS ;2/18/93 14:49
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | S PRCFASYS="CLMFEEFENIRSCLI"
|
|---|
| 5 | EN S PRCF("X")="AS" D ^PRCFSITE G:'% OUT
|
|---|
| 6 | S ZTDESC="BATCH AND PRINT CODE SHEETS",ZTRTN="V^PRCFACP1",ZTSAVE("PRC*")="",ZTSAVE("PRCFASYS")="" D ^PRCFQ Q
|
|---|
| 7 | Q
|
|---|
| 8 | COUNTER ;RETREIVE NEXT COUNTER NUMBER FROM FILE 422.2 NEEDS VARIABLE X AS INPUT RETURNS NEXT NUMBER IN VARIABLE Y
|
|---|
| 9 | K DA S Y=-1 Q:'$D(X) Q:X=""
|
|---|
| 10 | I '$D(^PRCF(422.2,"B",X)) S DIC=422.2,DIC(0)="MLX",DLAYGO=422.2 D ^DIC K DIC,DLAYGO Q:Y<0 S DA=+Y G LOCK
|
|---|
| 11 | S DA=$O(^PRCF(422.2,"B",X,0))
|
|---|
| 12 | LOCK L +^PRCF(422.2,DA):60 G COUNTER:'$T S Y=$P(^PRCF(422.2,DA,0),"^",2)+1 I $D(PRCFLN),Y>PRCFLN S Y=1 K PRCFLN
|
|---|
| 13 | S $P(^PRCF(422.2,DA,0),"^",2)=Y L -^PRCF(422.2,DA) Q
|
|---|
| 14 | OUT W $C(7)," <OPTION ABORTED>" R X:5 Q
|
|---|
| 15 | LOG S PRCFASYS="LOG" G EN
|
|---|
