GECSETUP ;WISC/RFJ-initialize a code sheet ;30 Jan 89
;;2.0;GCS;;MAR 14, 1995
N %,D,D0,D1,DA,DI,DIC,DIE,DQ,DR,GECS,I,J,X,Y
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"
W !,"necessary input transforms for manipulating the data for the code sheet."
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"
W !,"are to be coded."
W !!,"Setting Up File 2101.7 GENERIC CODE SHEET SITE..."
S (DIC,DIE)="^GECS(2101.7,",DIC(0)="QEALM" D ^DIC Q:+Y<0
S DA=+Y,DR=".01;1" D ^DIE I $D(Y) Q
;
W !!,"Setting Up File 2101.1 GENERIC CODE SHEET BATCH TYPE..."
S (DIC,DIE)="^GECS(2101.1,",DIC(0)="QEALM" D ^DIC Q:+Y<0
S (DA,GECS("DA"))=+Y,DR=".01:3" D ^DIE I $D(Y) Q
;
W !!,"Setting Up File 2101.2 GENERIC CODE SHEET TRANSACTION TYPE/SEGMENT..."
S (DIC,DIE)="^GECS(2101.2,",DIC(0)="QEALM" D ^DIC Q:+Y<0
S DA=+Y,DR=".01:2" S $P(^GECS(2101.2,DA,0),"^",4)=GECS("DA") D ^DIE
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGECSETUP 1270 printed Nov 22, 2024@17:06:18 Page 2
GECSETUP ;WISC/RFJ-initialize a code sheet ;30 Jan 89
+1 ;;2.0;GCS;;MAR 14, 1995
+2 NEW %,D,D0,D1,DA,DI,DIC,DIE,DQ,DR,GECS,I,J,X,Y
+3 WRITE !,"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"
+4 WRITE !,"necessary input transforms for manipulating the data for the code sheet."
+5 WRITE !!,"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"
+6 WRITE !,"are to be coded."
+7 WRITE !!,"Setting Up File 2101.7 GENERIC CODE SHEET SITE..."
+8 SET (DIC,DIE)="^GECS(2101.7,"
SET DIC(0)="QEALM"
DO ^DIC
if +Y<0
QUIT
+9 SET DA=+Y
SET DR=".01;1"
DO ^DIE
IF $DATA(Y)
QUIT
+10 ;
+11 WRITE !!,"Setting Up File 2101.1 GENERIC CODE SHEET BATCH TYPE..."
+12 SET (DIC,DIE)="^GECS(2101.1,"
SET DIC(0)="QEALM"
DO ^DIC
if +Y<0
QUIT
+13 SET (DA,GECS("DA"))=+Y
SET DR=".01:3"
DO ^DIE
IF $DATA(Y)
QUIT
+14 ;
+15 WRITE !!,"Setting Up File 2101.2 GENERIC CODE SHEET TRANSACTION TYPE/SEGMENT..."
+16 SET (DIC,DIE)="^GECS(2101.2,"
SET DIC(0)="QEALM"
DO ^DIC
if +Y<0
QUIT
+17 SET DA=+Y
SET DR=".01:2"
SET $PIECE(^GECS(2101.2,DA,0),"^",4)=GECS("DA")
DO ^DIE
+18 QUIT
