source: WorldVistAEHR/trunk/r/AUTO_REPLENISHMENT_WARD_STOCK-PSGW/PSGWEE.m@ 975

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

initial load of WorldVistAEHR

File size: 785 bytes
Line 
1PSGWEE ;BHAM ISC/KKA - Enter/Edit all types of data ; 18 Jun 93 / 10:32 AM
2 ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
3INVENT ;*** Enter/Edit Inventory Types
4 S PSGWFILE=58.16,PSGWSTR=".01;1"
5 D ENTEDT Q
6ITEMLOC ;*** Enter/Edit Item Location Codes
7 S PSGWFILE=58.17,PSGWSTR=".01;.5"
8 D ENTEDT Q
9AOU ;*** Enter/Edit the Area of Use
10 S PSGWFILE=58.1,PSGWSTR="[PSGW AREA OF USE EDIT]"
11 D ENTEDT Q
12GROUP ;*** Enter/Edit Inventory Group
13 S PSGWFILE=58.2,PSGWSTR="[PSGW WARD INVENTORY]"
14 D ENTEDT Q
15SITE ;*** Enter/Edit Inpatient Site Data
16 S PSGWFILE=59.4,PSGWSTR="4;5;4.5T//NO;5.5"
17 D ENTEDT Q
18ENTEDT ;*** Enter/Edit Data
19 F S (DIC,DLAYGO)=PSGWFILE,DIC(0)="QEAMZL" W ! D ^DIC K DIC,DLAYGO G:+Y<0 END S DA=+Y,DIE=PSGWFILE,DR=PSGWSTR D ^DIE K DIE,DA,DR
20END K PSGWFILE,PSGWSTR,Y Q
Note: See TracBrowser for help on using the repository browser.