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

PSSENV.m

Go to the documentation of this file.

PSSENV ;BIR/WRT-Option Delete environment check routine ; 09/09/97 15:15

 ;;1.0;PHARMACY DATA MANAGEMENT;;9/30/97

 ; ENVIRONMENTAL CHECK ROUTINE-OPTION DELETE

START I '$D(^PS(59.7,1,49.99)) S XPDQUIT=1 Q

 I $D(^PS(59.7,1,49.99)),$P(^PS(59.7,1,49.99),"^",1)<7.0 S XPDQUIT=1 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSENV   280     printed  Apr 09, 2024@21:37:07                                                                                                                                                                                                       Page 2

PSSENV    ;BIR/WRT-Option Delete environment check routine ; 09/09/97 15:15

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;;9/30/97

 +2       ; ENVIRONMENTAL CHECK ROUTINE-OPTION DELETE

START      IF '$DATA(^PS(59.7,1,49.99))

               SET XPDQUIT=1

               QUIT

 +1        IF $DATA(^PS(59.7,1,49.99))

               IF $PIECE(^PS(59.7,1,49.99),"^",1)<7.0

                   SET XPDQUIT=1

                   QUIT