source: WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBNHRCS4.m@ 792

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

initial load of WorldVistAEHR

File size: 1015 bytes
Line 
1FBNHRCS4 ;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
Note: See TracBrowser for help on using the repository browser.