source: WorldVistAEHR/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDFDVE.m@ 1078

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

initial load of WorldVistAEHR

File size: 459 bytes
RevLine 
[613]1IBDFDVE ;ALB/AAS - AICS edit printers file ; 24-FEB-96
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
3 ;
4% ; -- Edit Encounter Form Printers file (357.94)
5 ;
6 N I,J,X,Y,DA,DIC,DR,DIE,DLAYGO
7 W !!,"Add/Edit Encounter Form Printers Terminal Type"
8 ;
9ASK W !!
10 S DLAYGO=357.94,DIC="^IBE(357.94,",DIC(0)="AEQML" D ^DIC G:Y<1 END
11 S DA=+Y D EDIT
12 G ASK
13 Q
14 ;
15EDIT ; -- edit entry
16 S DR="[IBDF EDIT PRINTER]",DIE="^IBE(357.94,"
17 D ^DIE
18 K DIE,DA,DR
19 Q
20 ;
21END Q
Note: See TracBrowser for help on using the repository browser.