Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: PSSYSP

PSSYSP.m

Go to the documentation of this file.

PSSYSP ;BIR/WRT-Pharmacy system site parameters routine ;Aug 15, 2021@14:55:34

 ;;1.0;PHARMACY DATA MANAGEMENT;**20,38,87,120,137,140,159,212,247,187**;9/30/97;Build 27

 ; CHANGE TYPE OF ORDER (FINISH) FROM OERR

 W ! S DIE="^PS(59.7,",DR="13;14;16;16.1;16.2;40.16;101;102;96",DA=1 D ^DIE

 K DIE,DA,DR W !

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSYSP   314     printed  Dec 13, 2024@02:34:55                                                                                                                                                                                                       Page 2

PSSYSP    ;BIR/WRT-Pharmacy system site parameters routine ;Aug 15, 2021@14:55:34

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;**20,38,87,120,137,140,159,212,247,187**;9/30/97;Build 27

 +2       ; CHANGE TYPE OF ORDER (FINISH) FROM OERR

 +3        WRITE !

           SET DIE="^PS(59.7,"

           SET DR="13;14;16;16.1;16.2;40.16;101;102;96"

           SET DA=1

           DO ^DIE

 +4        KILL DIE,DA,DR

           WRITE !

 +5        QUIT