| 1 | FBNHRCS4 ;ACAMPUS/dmk-RCS CON'T create code sheet ;1/14/98
|
|---|
| 2 | ;;3.5;FEE BASIS;**12**;JAN 30, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;create code sheets in the generic code sheet package after
|
|---|
| 5 | ;asking user. FBGECS=1 if code sheets to be created.
|
|---|
| 6 | ;
|
|---|
| 7 | Q:'$G(FBGECS)
|
|---|
| 8 | I $E(IOST,1,2)'="C-" W @IOF
|
|---|
| 9 | ;
|
|---|
| 10 | S I=0
|
|---|
| 11 | F S I=$O(^TMP($J,"FBTOT",I)) Q:'I!$G(FBOUT) D Q:$G(FBOUT)
|
|---|
| 12 | . ; set the following GCS variables
|
|---|
| 13 | . ; GECSSYS="FEE BASIS - GECO" (from file 2101.1)
|
|---|
| 14 | . ; GECS("SITENOASK")=3 byte station number from 161.4 default psa
|
|---|
| 15 | . ; GECSAUTO=BATCH that way code sheet are maked for batching
|
|---|
| 16 | . ; GECS("TTF")=transaction type from file 2101.2
|
|---|
| 17 | .S GECSSYS="FEE BASIS - GECO",GECSAUTO="BATCH"
|
|---|
| 18 | .S GECS("SITENOASK")=FBSN,GECS("TTF")="18-3"
|
|---|
| 19 | .;N %DT S X=$P($G(^TMP($J,"FBTOT",I)),U,12) D ^%DT S $P(^TMP($J,"FBTOT",I),U,12)=Y
|
|---|
| 20 | .S GECS("STRING",0)="CNH^"_^TMP($J,"FBTOT",I)_"^$"
|
|---|
| 21 | .D D ^GECSENTR W !
|
|---|
| 22 | .. I $Y+5>IOSL,$E(IOST,1,2)'="C-" W @IOF
|
|---|
| 23 | ;
|
|---|
| 24 | K GECS,GECSSYS,GECSAUTO,I
|
|---|
| 25 | Q
|
|---|
