source: WorldVistAEHR/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSS50TMP.m@ 1639

PSS50TMP ;BIR/TSS - CONTINUATION OF API FOR INFORMATION FROM FILE 50; 5 Sep 03 
 ;;1.0;PHARMACY DATA MANAGEMENT;**112**;9/30/97;Build 30
 ;Reference to ^PSNDF(50.68 is supported by DBIA 3735
 ;Reference to ^PSNDF(50.6 is supported by DBIA 2079
 ;Reference to ^PSNDF(50.605 is supported by DBIA 2138
 ;Reference to ^PSNDF(50.606 is supported by DBIA 2174
 ;Reference to ^PSNDF(50.3 is supported by DBIA 2612
DIRREAD ; PERFORMS ALL NON-MULTIPLE DIRECT READING FOR PSS50DAT
 N PSSZTMP
 S ^TMP($J,LIST,PSSIEN2,.01)=$P($G(^PSDRUG(PSSIEN2,0)),U,1)
 S ^TMP($J,LIST,PSSIEN2,2)=$P($G(^PSDRUG(PSSIEN2,0)),U,2)
 I $P($G(^PSDRUG(PSSIEN2,2)),U,1)'="" D
 .S ^TMP($J,LIST,PSSIEN2,2.1)=$P($G(^PSDRUG(PSSIEN2,2)),U,1)_U_$P($G(^PS(50.7,$P($G(^PSDRUG(PSSIEN2,2)),U,1),0)),U,1)_U_$P($G(^PS(50.7,$P($G(^PSDRUG(PSSIEN2,2)),U,1),0)),U,2)
 .S ^TMP($J,LIST,PSSIEN2,2.1)=^TMP($J,LIST,PSSIEN2,2.1)_U_$P($G(^PS(50.606,$P($G(^PS(50.7,$P($G(^PSDRUG(PSSIEN2,2)),U,1),0)),U,2),0)),U,1)
 ELSE  S ^TMP($J,LIST,PSSIEN2,2.1)=""
 S PSSZTMP=$G(^PSDRUG(PSSIEN2,0))
 S ^TMP($J,LIST,PSSIEN2,3)=$P($G(PSSZTMP),U,3)
 S ^TMP($J,LIST,PSSIEN2,4)=$P($G(PSSZTMP),U,4)
 S ^TMP($J,LIST,PSSIEN2,5)=$P($G(PSSZTMP),U,5)
 S ^TMP($J,LIST,PSSIEN2,6)=$P($G(PSSZTMP),U,6)
 S ^TMP($J,LIST,PSSIEN2,8)=$P($G(PSSZTMP),U,8)
 I $P($G(^PSDRUG(PSSIEN2,660)),U,2)'="" D
 . S ^TMP($J,LIST,PSSIEN2,12)=$P($G(^PSDRUG(PSSIEN2,660)),U,2)_U_$P($G(^DIC(51.5,$P($G(^PSDRUG(PSSIEN2,660)),U,2),0)),U,1)_U_$P($G(^DIC(51.5,$P($G(^PSDRUG(PSSIEN2,660)),U,2),0)),U,2)
 ELSE  S ^TMP($J,LIST,PSSIEN2,12)=""
 S PSSZTMP=$G(^PSDRUG(PSSIEN2,660))
 S ^TMP($J,LIST,PSSIEN2,13)=$P($G(PSSZTMP),U,3)
 S ^TMP($J,LIST,PSSIEN2,14.5)=$P($G(PSSZTMP),U,8)
 S ^TMP($J,LIST,PSSIEN2,15)=$P($G(PSSZTMP),U,5)
 S ^TMP($J,LIST,PSSIEN2,16)=$P($G(PSSZTMP),U,6)
 S ^TMP($J,LIST,PSSIEN2,21)=$P($G(PSSZTMP),U,2)
 I $P($G(^PSDRUG(PSSIEN2,"ND")),U,1)'="" D
 .S ^TMP($J,LIST,PSSIEN2,20)=$P($G(^PSDRUG(PSSIEN2,"ND")),U,1)_U_$P($G(^PSNDF(50.6,$P($G(^PSDRUG(PSSIEN2,"ND")),U,1),0)),U,1)
 ELSE  S ^TMP($J,LIST,PSSIEN2,20)=""
 I $P($G(^PSDRUG(PSSIEN2,"ND")),U,3)'="" D
 .S ^TMP($J,LIST,PSSIEN2,22)=$P($G(^PSDRUG(PSSIEN2,"ND")),U,3)_U_$P($G(^PSNDF(50.68,$P($G(^PSDRUG(PSSIEN2,"ND")),U,3),0)),U,1)
 ELSE  S ^TMP($J,LIST,PSSIEN2,22)=""
 I $P($G(^PSDRUG(PSSIEN2,"ND")),U,6)'="" D
 . S ^TMP($J,LIST,PSSIEN2,25)=$P($G(^PSDRUG(PSSIEN2,"ND")),U,6)_U_$P($G(^PS(50.605,$P($G(^PSDRUG(PSSIEN2,"ND")),U,6),0)),U,1)_U_$P($G(^PS(50.605,$P($G(^PSDRUG(PSSIEN2,"ND")),U,6),0)),U,2)
 ELSE  S ^TMP($J,LIST,PSSIEN2,25)=""
 S ^TMP($J,LIST,PSSIEN2,27)=$P($G(^PSDRUG(PSSIEN2,"ND")),U,10)
 S ^TMP($J,LIST,PSSIEN2,31)=$P($G(^PSDRUG(PSSIEN2,2)),U,4)
 S ^TMP($J,LIST,PSSIEN2,40)=$P($G(^PSDRUG(PSSIEN2,"PSO")),U,1)
 I $P($G(^PSDRUG(PSSIEN2,0)),U,9) D
 .S ^TMP($J,LIST,PSSIEN2,51)=$P($G(^PSDRUG(PSSIEN2,0)),U,9)
 .I ^TMP($J,LIST,PSSIEN2,51)="1" S ^TMP($J,LIST,PSSIEN2,51)=^TMP($J,LIST,PSSIEN2,51)_U_"N/F" Q
 .I ^TMP($J,LIST,PSSIEN2,51)="" S ^TMP($J,LIST,PSSIEN2,51)=^TMP($J,LIST,PSSIEN2,51)_U Q
 ELSE  S ^TMP($J,LIST,PSSIEN2,51)=""
 I $P($G(^PSDRUG(PSSIEN2,0)),U,11) D
 .S ^TMP($J,LIST,PSSIEN2,52)=$P($G(^PSDRUG(PSSIEN2,0)),U,11)
 .I ^TMP($J,LIST,PSSIEN2,52)="1" S ^TMP($J,LIST,PSSIEN2,52)=^TMP($J,LIST,PSSIEN2,52)_U_"V-N/F" Q
 .I ^TMP($J,LIST,PSSIEN2,52)="" S ^TMP($J,LIST,PSSIEN2,52)=^TMP($J,LIST,PSSIEN2,52)_U Q
 ELSE  S ^TMP($J,LIST,PSSIEN2,52)=""
 S ^TMP($J,LIST,PSSIEN2,63)=$P($G(^PSDRUG(PSSIEN2,2)),U,3)
 I $P($G(^PSDRUG(PSSIEN2,2)),U,6)'="" D
 .S ^TMP($J,LIST,PSSIEN2,64)=$P($G(^PSDRUG(PSSIEN2,2)),U,6)_U_$P($G(^PS(50.3,$P($G(^PSDRUG(PSSIEN2,2)),U,6),0)),U,1)
 ELSE  S ^TMP($J,LIST,PSSIEN2,64)=""
 I $P($G(^PSDRUG(PSSIEN2,"I")),U,1) D
 .N Y S Y=$P($G(^PSDRUG(PSSIEN2,"I")),U,1) X ^DD("DD")
 .S ^TMP($J,LIST,PSSIEN2,100)=$P($G(^PSDRUG(PSSIEN2,"I")),U,1)_U_$G(Y)
 ELSE  S ^TMP($J,LIST,PSSIEN2,100)=""
 S ^TMP($J,LIST,PSSIEN2,101)=$P($G(^PSDRUG(PSSIEN2,0)),U,10)
 S ^TMP($J,LIST,PSSIEN2,102)=$P($G(^PSDRUG(PSSIEN2,2)),U,2)
 I $P($G(^PSDRUG(PSSIEN2,"PSG")),U,2) D
 .S ^TMP($J,LIST,PSSIEN2,301)=$P($G(^PSDRUG(PSSIEN2,"PSG")),U,2)
 .S PSSZTMP=^TMP($J,LIST,PSSIEN2,301)
 .I ^TMP($J,LIST,PSSIEN2,301)="0" S ^TMP($J,LIST,PSSIEN2,301)=PSSZTMP_U_"Field 03 or 04 - Doses by Type" Q
 .I ^TMP($J,LIST,PSSIEN2,301)="1" S ^TMP($J,LIST,PSSIEN2,301)=PSSZTMP_U_"Field 06 or 07 - Units of Issue" Q
 .I ^TMP($J,LIST,PSSIEN2,301)="2" S ^TMP($J,LIST,PSSIEN2,301)=PSSZTMP_U_"Field 17 - Fluids and Admin Sets" Q
 .I ^TMP($J,LIST,PSSIEN2,301)="3" S ^TMP($J,LIST,PSSIEN2,301)=PSSZTMP_U_"Field 22 - Blood Products" Q
 ELSE  S ^TMP($J,LIST,PSSIEN2,301)=""
 S ^TMP($J,LIST,PSSIEN2,302)=$P($G(^PSDRUG(PSSIEN2,"PSG")),U,3)
 S ^TMP($J,LIST,PSSIEN2,400)=$P($G(^PSDRUG(PSSIEN2,"PFS")),U,1)
 Q