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

PSSPOID1.m

Go to the documentation of this file.
  1. PSSPOID1 ;BIR/RTR-Orderable Item cross references ;02/14/00
  1. ;;1.0;PHARMACY DATA MANAGEMENT;**38**;9/30/97
  1. KILL1 ;Kill x-ref from field 2.1 of File 50
  1. K ^PS(50.7,"A50",X,DA)
  1. S PSSCROSS=1 N PSPOINT,PSSZA,PSSZS,PSSZOI,PSSTEST
  1. S PSSTEST=X D HOLD D EN1^PSSPOIDT D UNHOLD
  1. F PSSZA=0:0 S PSSZA=$O(^PS(52.6,"AC",DA,PSSZA)) Q:'PSSZA D
  1. .S PSSZOI=$P($G(^PS(52.6,PSSZA,0)),"^",11)
  1. .I PSSZOI S $P(^PS(52.6,PSSZA,0),"^",11)="" K ^PS(52.6,"AOI",PSSZOI,PSSZA)
  1. F PSSZS=0:0 S PSSZS=$O(^PS(52.7,"AC",DA,PSSZS)) Q:'PSSZS D
  1. .S PSSZOI=$P($G(^PS(52.7,PSSZS,0)),"^",11)
  1. .I PSSZOI S $P(^PS(52.7,PSSZS,0),"^",11)="" K ^PS(52.7,"AOI",PSSZOI,PSSZS)
  1. K PSSCROSS
  1. Q
  1. SET1 ;Set x-ref from field 2.1 of File 50
  1. S ^PS(50.7,"A50",X,DA)=""
  1. S PSSCROSS=1 N PSPOINT,PSSZA,PSSZS,PSSTEST
  1. S PSSTEST=X D HOLD D EN1^PSSPOIDT D UNHOLD
  1. F PSSZA=0:0 S PSSZA=$O(^PS(52.6,"AC",DA,PSSZA)) Q:'PSSZA D
  1. .S $P(^PS(52.6,PSSZA,0),"^",11)=X,^PS(52.6,"AOI",X,PSSZA)=""
  1. F PSSZS=0:0 S PSSZS=$O(^PS(52.7,"AC",DA,PSSZS)) Q:'PSSZS D
  1. .S $P(^PS(52.7,PSSZS,0),"^",11)=X,^PS(52.7,"AOI",X,PSSZS)=""
  1. K PSSCROSS
  1. Q
  1. K526 ;Kill x-ref from generic pointer in IV Additives file
  1. K ^PSDRUG("A526",X,DA)
  1. N PSSTEST,PSSVAR S PSSCROSS=1
  1. S PSSTEST=$P($G(^PS(52.6,DA,0)),"^",11)
  1. I PSSTEST D HOLD D EN1^PSSPOIDT D UNHOLD
  1. S PSSVAR=$P($G(^PS(52.6,DA,0)),"^",11) I PSSVAR S $P(^PS(52.6,DA,0),"^",11)="" K ^PS(52.6,"AOI",PSSVAR,DA)
  1. K PSSCROSS
  1. Q
  1. S526 ;Set x-ref from generic pointer in IV Additives file
  1. S ^PSDRUG("A526",X,DA)=""
  1. N PSSTEST S PSSCROSS=1
  1. S (PSSTEST,PSSTESTX)=$P($G(^PSDRUG(X,2)),"^") I PSSTEST D HOLD D EN1^PSSPOIDT D UNHOLD
  1. I PSSTESTX S $P(^PS(52.6,DA,0),"^",11)=PSSTESTX,^PS(52.6,"AOI",PSSTESTX,DA)=""
  1. K PSSTESTX,PSSCROSS
  1. Q
  1. K527 ;Kill x-ref from Generic pointer in IV Solutions file
  1. K ^PSDRUG("A527",X,DA)
  1. N PSSTEST,PSSVAR S PSSCROSS=1
  1. S PSSTEST=$P($G(^PS(52.7,DA,0)),"^",11)
  1. I PSSTEST D HOLD D EN1^PSSPOIDT D UNHOLD
  1. S PSSVAR=$P($G(^PS(52.7,DA,0)),"^",11) I PSSVAR S $P(^PS(52.7,DA,0),"^",11)="" K ^PS(52.7,"AOI",PSSVAR,DA)
  1. K PSSCROSS
  1. Q
  1. S527 ;Set x-ref from Generic pointer in IV Solutions file
  1. S ^PSDRUG("A527",X,DA)=""
  1. N PSSTEST S PSSCROSS=1
  1. S (PSSTEST,PSSTESTX)=$P($G(^PSDRUG(X,2)),"^") I PSSTEST D HOLD D EN1^PSSPOIDT D UNHOLD
  1. I PSSTESTX S $P(^PS(52.7,DA,0),"^",11)=PSSTESTX,^PS(52.7,"AOI",PSSTESTX,DA)=""
  1. K PSSTESTX,PSSCROSS
  1. Q
  1. HOLD ;
  1. S PSSHDZX=$G(X),PSSHDZDA=$G(DA)
  1. Q
  1. UNHOLD ;
  1. S X=$G(PSSHDZX),DA=$G(PSSHDZDA)
  1. K PSSHDZX,PSSHDZDA
  1. Q