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

PSOBPOST.m

Go to the documentation of this file.

PSOBPOST ;BIR/RTR - Patch PSO*6*136 post init routine

 ;;6.0;OUTPATIENT PHARMACY;**136**;APRIL 1993

 K ^PS(51,"B")

 K DIK S DIK="^PS(51,",DIK(1)=".01^B" D ENALL^DIK

 K DIK S DIK="^PS(51,",DIK(1)=".5^AE" D ENALL^DIK

 K DIK Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOBPOST   234     printed  Feb 18, 2025@23:51:23                                                                                                                                                                                                     Page 2

PSOBPOST  ;BIR/RTR - Patch PSO*6*136 post init routine

 +1       ;;6.0;OUTPATIENT PHARMACY;**136**;APRIL 1993

 +2       ;

 +3        KILL ^PS(51,"B")

 +4        KILL DIK

           SET DIK="^PS(51,"

           SET DIK(1)=".01^B"

           DO ENALL^DIK

 +5        KILL DIK

           SET DIK="^PS(51,"

           SET DIK(1)=".5^AE"

           DO ENALL^DIK

 +6        KILL DIK

           QUIT