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

PSJ50265.m

Go to the documentation of this file.
PSJ50265 ;BP-OIFO/JME - POST INSTALL FOR PATCH PSJ*5.0*265 ; Compiled September 20, 2011 8:50
 ;;5.0;INPATIENT MEDICATIONS;**265**;16 DEC 97;Build 4
 ;
EN ;
 N CL,PSJP,DA
 S PSJP=0 F  S PSJP=$O(^PS(53.1,"AS","N",PSJP)) Q:'PSJP  D
 . S DA=0 F  S DA=$O(^PS(53.1,"AS","N",PSJP,DA)) Q:'DA  D
 .. S CL=+$G(^PS(53.1,DA,"DSS")) Q:'CL
 .. D NOW^%DTC I '$D(^PS(53.1,"AD",CL,PSJP,DA)),$P(^PS(53.1,DA,2),U,4)>% S ^PS(53.1,"AD",CL,PSJP,DA)=""
 Q