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

PSOP261.m

Go to the documentation of this file.
PSOP261 ;BIR/SJA - post install for PSO*7*261 ;04/24/07
 ;;7.0;OUTPATIENT PHARMACY;**261**;DEC 1997;Build 9
 ; Reference to ^ORD(101 is supported by DBIA #872
 ;
 S PSOPRTCL=$O(^ORD(101,"B","PSO HIDDEN ACTIONS #2",0))
 S PSOTH=$O(^ORD(101,"B","PSO LM HIDDEN OTHER",0)),PSORS=$O(^ORD(101,"B","PSO SPEED SIG LOG REPRINT",0))
 S PSODN=$O(^ORD(101,"B","VALM DOWN A LINE",0))
 I 'PSOPRTCL!'PSOTH!'PSORS!'PSODN Q
 S PSOTHN=$O(^ORD(101,PSOPRTCL,10,"B",PSOTH,0))
 S PSORSN=$O(^ORD(101,PSOPRTCL,10,"B",PSORS,0))
 S PSODNN=$O(^ORD(101,PSOPRTCL,10,"B",PSODN,0))
 I 'PSOTHN!'PSORSN!'PSODNN Q
 S PSOTHN3=$P($G(^ORD(101,PSOPRTCL,10,PSOTHN,0)),"^",3),PSORSN3=$P($G(^ORD(101,PSOPRTCL,10,PSORSN,0)),"^",3)
 S PSODNN3=$P($G(^ORD(101,PSOPRTCL,10,PSODNN,0)),"^",3)
 Q:PSOTHN3'=PSORSN3
 S DA(1)=PSOPRTCL
 K DIE S DA=PSODNN,DIE="^ORD(101,"_DA(1)_",10,",DR="3////"_19 D ^DIE K DR,DIE
 K DIE S DA=PSOTHN,DIE="^ORD(101,"_DA(1)_",10,",DR="3////"_18 D ^DIE K DR,DIE
 K DIE S DA=PSORSN,DIE="^ORD(101,"_DA(1)_",10,",DR="3////"_17 D ^DIE K DA,DR,DIE
 Q