source: WorldVistAEHR/trunk/r/GENERIC_CODE_SHEET-GEC/GECSETUP.m@ 1710

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

initial load of WorldVistAEHR

File size: 1.2 KB
RevLine 
[613]1GECSETUP ;WISC/RFJ-initialize a code sheet ;30 Jan 89
2 ;;2.0;GCS;;MAR 14, 1995
3 N %,D,D0,D1,DA,DI,DIC,DIE,DQ,DR,GECS,I,J,X,Y
4 W !,"First, you should use File Manager's 'Modify File Attributes' option",!,"and set up the fields used for this code sheet. Use the field numbers",!,"and global nodes assigned to the application and ISC. Also, use any"
5 W !,"necessary input transforms for manipulating the data for the code sheet."
6 W !!,"Secondly, you should use File Manager's 'Enter or Edit File Entries' option",!,"and create the Input Template corresponding to the fields used in the",!,"Generic Code Sheet system. Selected fields should be in the order they"
7 W !,"are to be coded."
8 W !!,"Setting Up File 2101.7 GENERIC CODE SHEET SITE..."
9 S (DIC,DIE)="^GECS(2101.7,",DIC(0)="QEALM" D ^DIC Q:+Y<0
10 S DA=+Y,DR=".01;1" D ^DIE I $D(Y) Q
11 ;
12 W !!,"Setting Up File 2101.1 GENERIC CODE SHEET BATCH TYPE..."
13 S (DIC,DIE)="^GECS(2101.1,",DIC(0)="QEALM" D ^DIC Q:+Y<0
14 S (DA,GECS("DA"))=+Y,DR=".01:3" D ^DIE I $D(Y) Q
15 ;
16 W !!,"Setting Up File 2101.2 GENERIC CODE SHEET TRANSACTION TYPE/SEGMENT..."
17 S (DIC,DIE)="^GECS(2101.2,",DIC(0)="QEALM" D ^DIC Q:+Y<0
18 S DA=+Y,DR=".01:2" S $P(^GECS(2101.2,DA,0),"^",4)=GECS("DA") D ^DIE
19 Q
Note: See TracBrowser for help on using the repository browser.