source: FOIAVistA/tag/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJXRFS.m@ 636

PSJXRFS ; SLC/PKR - Routines for setting indexes. ;24 Sep 03 / 1:17 PM
 ;;5.0;INPATIENT MEDICATIONS;**90**;16 DEC 97
 ;
 ;Reference to ^PS(52.6 is supported by DBIA# 1231.
 ;Reference to ^PS(55 is supported by DBIA# 2191.
 ;Reference to ^PS(52.7 is supported by DBIA# 2173.
 ;Reference to ^PXRMINDX(55 is supported by DBIA# 4114.
 Q
 ;
SPSPA(X,DA,NODE) ;Set index for Pharmacy Patient File.
 ;X(1)=START DATE/TIME;X(2)=STOP DATE/TIME
 ;The possible values for NODE are "IV" and "UD".
 N ADD,DAS,DFN,DRUG,IND,SOL
 S DFN=DA(1)
 ;Process UNIT DOSE entries.
 I NODE="UD" D  Q
 . S IND=0
 . F  S IND=+$O(^PS(55,DA(1),5,DA,1,IND)) Q:IND=0  D
 .. S DRUG=$P(^PS(55,DA(1),5,DA,1,IND,0),U,1)
 .. S DAS=DA(1)_";5;"_DA_";1;"_IND_";0"
 .. S ^PXRMINDX(55,"IP",DRUG,DFN,X(1),X(2),DAS)=""
 .. S ^PXRMINDX(55,"PI",DFN,DRUG,X(1),X(2),DAS)=""
 ;Process IV node entries.
 I NODE="IV" D
 .;Process additives.
 . S IND=0
 . F  S IND=+$O(^PS(55,DA(1),"IV",DA,"AD",IND)) Q:IND=0  D
 .. S ADD=$P(^PS(55,DA(1),"IV",DA,"AD",IND,0),U,1)
 .. S DRUG=$P($G(^PS(52.6,ADD,0)),U,2)
 .. I DRUG="" Q
 .. S DAS=DA(1)_";IV;"_DA_";AD;"_IND_";0"
 .. S ^PXRMINDX(55,"IP",DRUG,DFN,X(1),X(2),DAS)=""
 .. S ^PXRMINDX(55,"PI",DFN,DRUG,X(1),X(2),DAS)=""
 .;Process solutions.
 . S IND=0
 . F  S IND=+$O(^PS(55,DA(1),"IV",DA,"SOL",IND)) Q:IND=0  D
 .. S SOL=$P(^PS(55,DA(1),"IV",DA,"SOL",IND,0),U,1)
 .. S DRUG=$P($G(^PS(52.7,SOL,0)),U,2)
 .. I DRUG="" Q
 .. S DAS=DA(1)_";IV;"_DA_";SOL;"_IND_";0"
 .. S ^PXRMINDX(55,"IP",DRUG,DFN,X(1),X(2),DAS)=""
 .. S ^PXRMINDX(55,"PI",DFN,DRUG,X(1),X(2),DAS)=""
 Q