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

PSS50P7.m

Go to the documentation of this file.
  1. PSS50P7 ;BIR/LDT - API FOR INFORMATION FROM FILE 50.7;Aug 24, 2021@15:03:03
  1. ;;1.0;PHARMACY DATA MANAGEMENT;**85,91,199,234,187**;9/30/97;Build 27
  1. ;
  1. ;
  1. ZERO(PSSIEN,PSSFT,PSSFL,LIST) ;
  1. ;PSSIEN - IEN of entry in PHARMACY ORDERABLE ITEM file (#50.7).
  1. ;PSSFT - Free Text name in PHARMACY ORDERABLE ITEM file (#50.7).
  1. ;PSSFL - Inactive flag - "" - All entries.
  1. ; FileMan Date - Only entries with no Inactive Date or an Inactive Date greater than this date.
  1. ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the
  1. ;Field Number of the data piece being returned.
  1. ;Returns NAME field (#.01), DOSAGE FORM field (#.02), IV FLAG field (#.03), INACTIVE DATE field (#.04),
  1. ;DAY (nD) OR DOSE (nL) LIMIT field (#.05), MED ROUTE field (#.06), SCHEDULE TYPE fiedl (#.07),
  1. ;SCHEDULE field (#.08), SUPPLY field (#.09), FORMULARY STATUS field (#5), and NON-VA MED field (#8) of
  1. ;PHARMACY ORDERABLE ITEM file (#50.7).
  1. N DIERR,ZZERR,PSS50P7,SCR,PSS
  1. I $G(LIST)']"" Q
  1. K ^TMP($J,LIST)
  1. I +$G(PSSIEN)'>0,($G(PSSFT)']"") S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
  1. I $G(PSSIEN)]"",+$G(PSSIEN)'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
  1. S SCR("S")=""
  1. I +$G(PSSFL)>0 N ND D SETSCRN
  1. I +$G(PSSIEN)>0 N PSSIEN2 S PSSIEN2=$$FIND1^DIC(50.7,"","A","`"_PSSIEN,,SCR("S"),"") D
  1. .I +PSSIEN2'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
  1. .S ^TMP($J,LIST,0)=1
  1. .D GETS^DIQ(50.7,+PSSIEN2,".01;.02;.03;.04;.05;.06;.07;.08;.09;8;5","IE","PSS50P7") S PSS(1)=0
  1. .F S PSS(1)=$O(PSS50P7(50.7,PSS(1))) Q:'PSS(1) D SETZRO^PSS50P7A
  1. I +$G(PSSIEN)'>0,$G(PSSFT)]"" D
  1. .I PSSFT["??" D LOOP^PSS50P7A(1) Q
  1. .D FIND^DIC(50.7,,"@;.01;.02","QP",PSSFT,,"B",SCR("S"),,"")
  1. .I +$G(^TMP("DILIST",$J,0))=0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
  1. .I +^TMP("DILIST",$J,0)>0 S ^TMP($J,LIST,0)=+^TMP("DILIST",$J,0) N PSSXX S PSSXX=0 F S PSSXX=$O(^TMP("DILIST",$J,PSSXX)) Q:'PSSXX D
  1. ..S PSSIEN=+^TMP("DILIST",$J,PSSXX,0) K PSS50P7 D GETS^DIQ(50.7,+PSSIEN,".01;.02;.03;.04;.05;.06;.07;.08;.09;8;5","IE","PSS50P7") S PSS(1)=0
  1. ..F S PSS(1)=$O(PSS50P7(50.7,PSS(1))) Q:'PSS(1) D SETZRO^PSS50P7A
  1. K ^TMP("DILIST",$J)
  1. Q
  1. ;
  1. SYNONYM(PSSIEN,PSSFT,PSSFL,LIST) ;
  1. ;PSSIEN - IEN of entry in PHARMACY ORDERABLE ITEM file (#50.7).
  1. ;PSSFT - Free Text name in PHARMACY ORDERABLE ITEM file (#50.7).
  1. ;PSSFL - Inactive flag - 0 or "" - All entries.
  1. ; FileMan Date - Only entries with no Inactive Date or an Inactive Date greater than this date.
  1. ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the
  1. ;Field Number of the data piece being returned.
  1. ;Returns NAME field (#.01), DOSAGE FORM field (#.02), SYNONYM subfile (#50.72), and SYNONYM field (#.01)
  1. ;of PHARMACY ORDERABLE ITEM file (#50.7).
  1. N DIERR,ZZERR,PSS50P7,SCR,PSS,CNT
  1. I $G(LIST)']"" Q
  1. K ^TMP($J,LIST)
  1. I +$G(PSSIEN)'>0,($G(PSSFT)']"") S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
  1. I $G(PSSIEN)]"",+$G(PSSIEN)'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
  1. S SCR("S")=""
  1. I +$G(PSSFL)>0 N ND D SETSCRN
  1. I +$G(PSSIEN)>0 N PSSIEN2 S PSSIEN2=$$FIND1^DIC(50.7,"","A","`"_PSSIEN,,SCR("S"),"") D
  1. .I +PSSIEN2'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
  1. .S ^TMP($J,LIST,0)=1
  1. .D GETS^DIQ(50.7,+PSSIEN2,".01;.02;2*","IE","PSS50P7") S PSS(1)=0
  1. .S CNT=0 F S PSS(1)=$O(PSS50P7(50.72,PSS(1))) Q:'PSS(1) D SETSYN^PSS50P7A S CNT=CNT+1
  1. .S ^TMP($J,LIST,+PSSIEN2,"SYN",0)=$S(CNT>0:CNT,1:"-1^NO DATA FOUND")
  1. .S PSS(2)=0 F S PSS(2)=$O(PSS50P7(50.7,PSS(2))) Q:'PSS(2) D SETZR2^PSS50P7A
  1. I +$G(PSSIEN)'>0,$G(PSSFT)]"" D
  1. .I PSSFT["??" D LOOP^PSS50P7A(2) Q
  1. .D FIND^DIC(50.7,,"@;.01","QP",PSSFT,,"B",SCR("S"),,"")
  1. .I +$G(^TMP("DILIST",$J,0))=0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
  1. .I +^TMP("DILIST",$J,0)>0 S ^TMP($J,LIST,0)=+^TMP("DILIST",$J,0) N PSSXX S PSSXX=0 F S PSSXX=$O(^TMP("DILIST",$J,PSSXX)) Q:'PSSXX D
  1. ..S PSSIEN=+^TMP("DILIST",$J,PSSXX,0) K PSS50P7(50.72) K PSS50P7 D GETS^DIQ(50.7,+PSSIEN,".01;.02;2*","IE","PSS50P7") S PSS(1)=0
  1. ..S CNT=0 F S PSS(1)=$O(PSS50P7(50.72,PSS(1))) Q:'PSS(1) D SETSYN^PSS50P7A S CNT=CNT+1
  1. ..S ^TMP($J,LIST,+PSSIEN,"SYN",0)=$S(CNT>0:CNT,1:"-1^NO DATA FOUND")
  1. ..S PSS(2)=0 F S PSS(2)=$O(PSS50P7(50.7,PSS(2))) Q:'PSS(2) D SETZR2^PSS50P7A
  1. K ^TMP("DILIST",$J)
  1. Q
  1. ;
  1. NAME(PSSIEN) ;
  1. ;PSSIEN - IEN of entry in PHARMACY ORDERABLE ITEM file (#50.7).
  1. ;Returns NAME field (#.01) of PHARMACY ORDERABLE ITEM file (#50.7) and DOSAGE FORM name in external form.
  1. N DIERR,ZZERR,PSS50P7,PSS
  1. I +$G(PSSIEN)'>0 Q ""
  1. D GETS^DIQ(50.7,+PSSIEN,".01;.02","E","PSS50P7")
  1. I '$D(PSS50P7) Q ""
  1. Q $G(PSS50P7(50.7,PSSIEN_",",.01,"E"))_" "_$G(PSS50P7(50.7,PSSIEN_",",.02,"E"))
  1. ;
  1. INSTR(PSSIEN,PSSFT,PSSFL,LIST) ;
  1. ;PSSIEN - IEN of entry in PHARMACY ORDERABLE ITEM file (#50.7).
  1. ;PSSFT - Free Text name in PHARMACY ORDERABLE ITEM file (#50.7).
  1. ;PSSFL - Inactive flag - "" - All entries.
  1. ; FileMan Date - Only entries with no Inactive Date or an Inactive Date greater than this date.
  1. ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the
  1. ;Field Number of the data piece being returned.
  1. ;Returns INS and INS1 nodes of PHARMACY ORDERABLE ITEM file (#50.7).
  1. N DIERR,ZZERR,PSS50P7,SCR,PSS
  1. I $G(LIST)']"" Q
  1. K ^TMP($J,LIST)
  1. I +$G(PSSIEN)'>0,($G(PSSFT)']"") S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
  1. I $G(PSSIEN)]"",+$G(PSSIEN)'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
  1. S SCR("S")=""
  1. I +$G(PSSFL)>0 N ND D SETSCRN
  1. I +$G(PSSIEN)>0 N PSSIEN2 S PSSIEN2=$$FIND1^DIC(50.7,"","A","`"_PSSIEN,,SCR("S"),"") D
  1. .I +PSSIEN2'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
  1. .S ^TMP($J,LIST,0)=1
  1. .D GETS^DIQ(50.7,+PSSIEN2,".01;.02;7;7.1","IE","PSS50P7") S PSS(1)=0
  1. .F S PSS(1)=$O(PSS50P7(50.7,PSS(1))) Q:'PSS(1) D SETPTI^PSS50P7A
  1. I +$G(PSSIEN)'>0,$G(PSSFT)]"" D
  1. .I PSSFT["??" D LOOP^PSS50P7A(3) Q
  1. .D FIND^DIC(50.7,,"@;.01","QP",PSSFT,,"B",SCR("S"),,"")
  1. .I +$G(^TMP("DILIST",$J,0))=0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
  1. .I +^TMP("DILIST",$J,0)>0 S ^TMP($J,LIST,0)=+^TMP("DILIST",$J,0) N PSSXX S PSSXX=0 F S PSSXX=$O(^TMP("DILIST",$J,PSSXX)) Q:'PSSXX D
  1. ..S PSSIEN=+^TMP("DILIST",$J,PSSXX,0) K PSS50P7 D GETS^DIQ(50.7,+PSSIEN,".01;.02;7;7.1","IE","PSS50P7") S PSS(1)=0
  1. ..F S PSS(1)=$O(PSS50P7(50.7,PSS(1))) Q:'PSS(1) D SETPTI^PSS50P7A
  1. K ^TMP("DILIST",$J)
  1. Q
  1. ;
  1. DRGIEN(PSSIEN,PSSFL,LIST) ;
  1. ;PSSIEN - IEN of entry in PHARMACY ORDERABLE ITEM file (#50.7).
  1. ;PSSFL - Inactive flag - "" - All entries.
  1. ; FileMan Date - Only entries with no Inactive Date or an Inactive Date greater than this date.
  1. ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the
  1. ;Field Number of the data piece being returned.
  1. ;Returns entries from DRUG file (#50) linked to the Pharmacy Orderable Item IEN passed, GENERIC NAME field (#.01),
  1. ;DEA, SPECIAL HDLG field (#3), APPLICATION PACKAGES' USE field (#63), and the INACTIVE DATE field (#100)
  1. ;of DRUG file (#50).
  1. N DIERR,ZZERR,PSS50P7,SCR,PSS
  1. I $G(LIST)']"" Q
  1. K ^TMP($J,LIST)
  1. I +$G(PSSIEN)'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
  1. S SCR("S")="I $D(^PS(50.7,""A50"",PSSIEN,Y))"
  1. ;Naked reference below refers to ^PSDRUG(Y,"I")
  1. I +$G(PSSFL)>0 S SCR("S")="S ND=$G(^(""I"")) I ((ND="""")&($D(^PS(50.7,""A50"",PSSIEN,Y))))!((ND>PSSFL)&($D(^PS(50.7,""A50"",PSSIEN,Y))))"
  1. I +$G(PSSIEN)>0 D FIND^DIC(50,,"@;.01","QX",PSSIEN,,"ASP",SCR("S"),,"PSS50P7")
  1. I +PSS50P7("DILIST",0)'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
  1. S ^TMP($J,LIST,0)=+PSS50P7("DILIST",0) S PSS(1)=0 D
  1. .F S PSS(1)=$O(PSS50P7("DILIST",PSS(1))) Q:'PSS(1) S PSS(2)=0 F S PSS(2)=$O(PSS50P7("DILIST",PSS(1),PSS(2))) Q:'PSS(2) S ^TMP($J,LIST,+PSS50P7("DILIST",PSS(1),PSS(2)))=""
  1. Q
  1. ;
  1. IEN(PSSFT,PSSFL,LIST) ;
  1. ;PSSFT - Free Text name in PHARMACY ORDERABLE ITEM file (#50.7).
  1. ;PSSFL - Inactive flag - "" - All entries.
  1. ; FileMan Date - Only entries with no Inactive Date or an Inactive Date greater than this date.
  1. ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the
  1. ;Field Number of the data piece being returned.
  1. ;Returns NAME field (#.01), and DOSAGE FORM field (#.02) of PHARMACY ORDERABLE ITEM file (#50.7).
  1. N DIERR,ZZERR,PSS50P7,SCR,PSS
  1. I $G(LIST)']"" Q
  1. K ^TMP($J,LIST)
  1. I $G(PSSFT)']"" S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
  1. S SCR("S")=""
  1. I +$G(PSSFL)>0 D SETSCRN
  1. I PSSFT["??" D LOOP^PSS50P7A(4) Q
  1. I $G(PSSFT)]"" D FIND^DIC(50.7,,"@;.01;.02IE","QP",PSSFT,,"B",SCR("S"),,"")
  1. I +$G(^TMP("DILIST",$J,0))'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
  1. S ^TMP($J,LIST,0)=+^TMP("DILIST",$J,0) S PSS(2)=0 D
  1. .F S PSS(2)=$O(^TMP("DILIST",$J,PSS(2))) Q:'PSS(2) D
  1. ..S ^TMP($J,LIST,+^TMP("DILIST",$J,PSS(2),0),.01)=$P(^TMP("DILIST",$J,PSS(2),0),"^",2)
  1. ..S ^TMP($J,LIST,"B",$P(^TMP("DILIST",$J,PSS(2),0),"^",2),+^TMP("DILIST",$J,PSS(2),0))=""
  1. ..S ^TMP($J,LIST,+^TMP("DILIST",$J,PSS(2),0),.02)=$S($P($G(^TMP("DILIST",$J,PSS(2),0)),"^",3)]"":$P(^TMP("DILIST",$J,PSS(2),0),"^",3,4),1:"")
  1. K ^TMP("DILIST",$J)
  1. Q
  1. ;
  1. LOOKUP(PSSFT,PSSD,PSSS,LIST) ;
  1. ;PSSFT - Free Text name in PHARMACY ORDERABLE ITEM file (#50.7)
  1. ;PSSD - Index being traversed.
  1. ;PSSS - Screening information as defined in DIC("S").
  1. ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the
  1. ;Field Number of the data piece being returned.
  1. ;Returns NAME field (#.01), DOSAGE FORM field (#.02), and INACTIVE DATE field (#.04) of
  1. ;PHARMACY ORDERABLE ITEM file (#50.7).
  1. N DIERR,ZZERR,PSS50P7,SCR,PSS
  1. I $G(LIST)']"" Q
  1. K ^TMP($J,LIST)
  1. I $G(PSSFT)']"" S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
  1. D LOOKUP^PSS50P7A
  1. Q
  1. ;
  1. SETSCRN ;Set Screen for inactive entries in PHARMACY ORDERABLE ITEM file (#50.7).
  1. ;Naked reference below refers to ^PS(50.7,+Y,0)
  1. S SCR("S")="S ND=$P($G(^(0)),U,4) I ND=""""!(ND>PSSFL)"
  1. Q
  1. SSET(PSSC,PSSCNT,PSSI,DIR,SUB) ;Pull back a subset of the PHARMACY ORDERABLE ITEM file (#50.7)
  1. ;
  1. N PSSJ,PS0,Y,PSSIDT
  1. F Q:PSSC'<PSSCNT S PSSI=$O(^PS(50.7,"B",PSSI),DIR) Q:PSSI="" S PSSJ=0 F S PSSJ=$O(^PS(50.7,"B",PSSI,PSSJ)) Q:'PSSJ I $D(^PS(50.7,PSSJ,0)) S PS0=^(0) D
  1. . S Y=$P(PS0,"^",4) D DD^%DT S PSSIDT=Y
  1. . S Y=$P($G(^PS(50.606,$P(PS0,"^",2),0)),"^"),PSSC=PSSC+1,^TMP(SUB,$J,1,PSSC)=PSSJ_"^"_PSSI_" "_Y_" "_PSSIDT
  1. Q
  1. INDCATN(PSSIEN,LIST) ; *187 return Indications for Use for Prescription and Medication Order
  1. N I,J,K,IND,ARR
  1. I +$G(PSSIEN)'>0!($G(LIST)']"") Q
  1. K ^TMP($J,LIST) S I="",K=0
  1. I $P($G(^PS(50.7,PSSIEN,4)),"^",2)]"" S K=1,IND=$$ENLU^PSSGMI($P(^PS(50.7,PSSIEN,4),"^",2)),^TMP($J,LIST,1)=IND_"^"_K,ARR(IND)="" ;if most common indication exists, return its value
  1. F S I=$O(^PS(50.7,PSSIEN,"IND","B",I)) Q:I="" D
  1. .S IND=$$ENLU^PSSGMI(I) ;convert to uppercase
  1. .I '$D(ARR(IND)) S ARR(IND)=""
  1. S I="" F S I=$O(ARR(I)) Q:I="" I $P($G(^TMP($J,LIST,1)),"^")'=I S K=K+1,^TMP($J,LIST,K)=I
  1. S I="",K=0 K ARR
  1. I $P($G(^PS(50.7,PSSIEN,4)),"^",4)]"" S K=1,IND=$$ENLU^PSSGMI($P(^PS(50.7,PSSIEN,4),"^",4)),^TMP($J,LIST,"OTH",1)=IND_"^"_K,ARR(IND)="" ;if other most common indication exists, return its value
  1. F S I=$O(^PS(50.7,PSSIEN,"INDO","B",I)) Q:I="" D
  1. .S IND=$$ENLU^PSSGMI(I) ;convert to uppercase
  1. .I '$D(ARR(IND)) S ARR(IND)=""
  1. S I="" F S I=$O(ARR(I)) Q:I="" I $P($G(^TMP($J,LIST,"OTH",1)),"^")'=I S K=K+1,^TMP($J,LIST,"OTH",K)=I
  1. Q