Packman Mail Message:
=====================

$END TXT
$KID PSS*1.0*234
**INSTALL NAME**
PSS*1.0*234
"BLD",10572,0)
PSS*1.0*234^PHARMACY DATA MANAGEMENT^0^3181207^y
"BLD",10572,1,0)
^^5^5^3181115^
"BLD",10572,1,1,0)
The purpose of this build is to export the data dictionary for the 
"BLD",10572,1,2,0)
PHARMACY ORDERABLE ITEM file (#50.7) in order to update the APPLICATION 
"BLD",10572,1,3,0)
GROUP field to add GMTS. In addition, it exports the routine to return 
"BLD",10572,1,4,0)
the pharmacy orderable item information in order to support the Ad Hoc 
"BLD",10572,1,5,0)
report summary.
"BLD",10572,4,0)
^9.64PA^50.7^1
"BLD",10572,4,50.7,0)
50.7
"BLD",10572,4,50.7,222)
y^y^f^^^^n
"BLD",10572,4,"B",50.7,50.7)

"BLD",10572,6)
1^
"BLD",10572,6.3)
2
"BLD",10572,"ABPKG")
n
"BLD",10572,"KRN",0)
^9.67PA^1.61^23
"BLD",10572,"KRN",.4,0)
.4
"BLD",10572,"KRN",.401,0)
.401
"BLD",10572,"KRN",.402,0)
.402
"BLD",10572,"KRN",.403,0)
.403
"BLD",10572,"KRN",.5,0)
.5
"BLD",10572,"KRN",.84,0)
.84
"BLD",10572,"KRN",1.6,0)
1.6
"BLD",10572,"KRN",1.61,0)
1.61
"BLD",10572,"KRN",1.62,0)
1.62
"BLD",10572,"KRN",3.6,0)
3.6
"BLD",10572,"KRN",3.8,0)
3.8
"BLD",10572,"KRN",9.2,0)
9.2
"BLD",10572,"KRN",9.8,0)
9.8
"BLD",10572,"KRN",9.8,"NM",0)
^9.68A^1^1
"BLD",10572,"KRN",9.8,"NM",1,0)
PSS50P7^^0^B48392474
"BLD",10572,"KRN",9.8,"NM","B","PSS50P7",1)

"BLD",10572,"KRN",19,0)
19
"BLD",10572,"KRN",19.1,0)
19.1
"BLD",10572,"KRN",101,0)
101
"BLD",10572,"KRN",409.61,0)
409.61
"BLD",10572,"KRN",771,0)
771
"BLD",10572,"KRN",779.2,0)
779.2
"BLD",10572,"KRN",870,0)
870
"BLD",10572,"KRN",8989.51,0)
8989.51
"BLD",10572,"KRN",8989.52,0)
8989.52
"BLD",10572,"KRN",8994,0)
8994
"BLD",10572,"KRN","B",.4,.4)

"BLD",10572,"KRN","B",.401,.401)

"BLD",10572,"KRN","B",.402,.402)

"BLD",10572,"KRN","B",.403,.403)

"BLD",10572,"KRN","B",.5,.5)

"BLD",10572,"KRN","B",.84,.84)

"BLD",10572,"KRN","B",1.6,1.6)

"BLD",10572,"KRN","B",1.61,1.61)

"BLD",10572,"KRN","B",1.62,1.62)

"BLD",10572,"KRN","B",3.6,3.6)

"BLD",10572,"KRN","B",3.8,3.8)

"BLD",10572,"KRN","B",9.2,9.2)

"BLD",10572,"KRN","B",9.8,9.8)

"BLD",10572,"KRN","B",19,19)

"BLD",10572,"KRN","B",19.1,19.1)

"BLD",10572,"KRN","B",101,101)

"BLD",10572,"KRN","B",409.61,409.61)

"BLD",10572,"KRN","B",771,771)

"BLD",10572,"KRN","B",779.2,779.2)

"BLD",10572,"KRN","B",870,870)

"BLD",10572,"KRN","B",8989.51,8989.51)

"BLD",10572,"KRN","B",8989.52,8989.52)

"BLD",10572,"KRN","B",8994,8994)

"BLD",10572,"QUES",0)
^9.62^^
"BLD",10572,"REQB",0)
^9.611^1^1
"BLD",10572,"REQB",1,0)
PSS*1.0*199^2
"BLD",10572,"REQB","B","PSS*1.0*199",1)

"FIA",50.7)
PHARMACY ORDERABLE ITEM
"FIA",50.7,0)
^PS(50.7,
"FIA",50.7,0,0)
50.7I
"FIA",50.7,0,1)
y^y^f^^^^n
"FIA",50.7,0,10)

"FIA",50.7,0,11)

"FIA",50.7,0,"RLRO")

"FIA",50.7,0,"VR")
1.0^PSS
"FIA",50.7,50.7)
0
"FIA",50.7,50.711)
0
"FIA",50.7,50.713)
0
"FIA",50.7,50.72)
0
"FIA",50.7,50.76)
0
"MBREQ")
0
"PKG",517,-1)
1^1
"PKG",517,0)
PHARMACY DATA MANAGEMENT^PSS^Maintenance of Pharmacy files.
"PKG",517,22,0)
^9.49I^1^1
"PKG",517,22,1,0)
1.0^2970930^2971014^11595
"PKG",517,22,1,"PAH",1,0)
234^3181207^10000000200
"PKG",517,22,1,"PAH",1,1,0)
^^5^5^3181207
"PKG",517,22,1,"PAH",1,1,1,0)
The purpose of this build is to export the data dictionary for the 
"PKG",517,22,1,"PAH",1,1,2,0)
PHARMACY ORDERABLE ITEM file (#50.7) in order to update the APPLICATION 
"PKG",517,22,1,"PAH",1,1,3,0)
GROUP field to add GMTS. In addition, it exports the routine to return 
"PKG",517,22,1,"PAH",1,1,4,0)
the pharmacy orderable item information in order to support the Ad Hoc 
"PKG",517,22,1,"PAH",1,1,5,0)
report summary.
"QUES","XPF1",0)
Y
"QUES","XPF1","??")
^D REP^XPDH
"QUES","XPF1","A")
Shall I write over your |FLAG| File
"QUES","XPF1","B")
YES
"QUES","XPF1","M")
D XPF1^XPDIQ
"QUES","XPF2",0)
Y
"QUES","XPF2","??")
^D DTA^XPDH
"QUES","XPF2","A")
Want my data |FLAG| yours
"QUES","XPF2","B")
YES
"QUES","XPF2","M")
D XPF2^XPDIQ
"QUES","XPI1",0)
YO
"QUES","XPI1","??")
^D INHIBIT^XPDH
"QUES","XPI1","A")
Want KIDS to INHIBIT LOGONs during the install
"QUES","XPI1","B")
NO
"QUES","XPI1","M")
D XPI1^XPDIQ
"QUES","XPM1",0)
PO^VA(200,:EM
"QUES","XPM1","??")
^D MG^XPDH
"QUES","XPM1","A")
Enter the Coordinator for Mail Group '|FLAG|'
"QUES","XPM1","B")

"QUES","XPM1","M")
D XPM1^XPDIQ
"QUES","XPO1",0)
Y
"QUES","XPO1","??")
^D MENU^XPDH
"QUES","XPO1","A")
Want KIDS to Rebuild Menu Trees Upon Completion of Install
"QUES","XPO1","B")
NO
"QUES","XPO1","M")
D XPO1^XPDIQ
"QUES","XPZ1",0)
Y
"QUES","XPZ1","??")
^D OPT^XPDH
"QUES","XPZ1","A")
Want to DISABLE Scheduled Options, Menu Options, and Protocols
"QUES","XPZ1","B")
NO
"QUES","XPZ1","M")
D XPZ1^XPDIQ
"QUES","XPZ2",0)
Y
"QUES","XPZ2","??")
^D RTN^XPDH
"QUES","XPZ2","A")
Want to MOVE routines to other CPUs
"QUES","XPZ2","B")
NO
"QUES","XPZ2","M")
D XPZ2^XPDIQ
"RTN")
1
"RTN","PSS50P7")
0^1^B48392474^B43180168
"RTN","PSS50P7",1,0)
PSS50P7 ;BIR/LDT - API FOR INFORMATION FROM FILE 50.7;Nov 15, 2018@16:43
"RTN","PSS50P7",2,0)
 ;;1.0;PHARMACY DATA MANAGEMENT;**85,91,199,234**;9/30/97;Build 2
"RTN","PSS50P7",3,0)
 ;
"RTN","PSS50P7",4,0)
ZERO(PSSIEN,PSSFT,PSSFL,LIST) ;
"RTN","PSS50P7",5,0)
 ;PSSIEN - IEN of entry in PHARMACY ORDERABLE ITEM file (#50.7).
"RTN","PSS50P7",6,0)
 ;PSSFT - Free Text name in PHARMACY ORDERABLE ITEM file (#50.7).
"RTN","PSS50P7",7,0)
 ;PSSFL - Inactive flag - "" - All entries.
"RTN","PSS50P7",8,0)
 ;        FileMan Date - Only entries with no Inactive Date or an Inactive Date greater than this date.
"RTN","PSS50P7",9,0)
 ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the
"RTN","PSS50P7",10,0)
 ;Field Number of the data piece being returned.
"RTN","PSS50P7",11,0)
 ;Returns NAME field (#.01), DOSAGE FORM field (#.02), IV FLAG field (#.03), INACTIVE DATE field (#.04),
"RTN","PSS50P7",12,0)
 ;DAY (nD) OR DOSE (nL) LIMIT field (#.05), MED ROUTE field (#.06), SCHEDULE TYPE fiedl (#.07),
"RTN","PSS50P7",13,0)
 ;SCHEDULE field (#.08), SUPPLY field (#.09), FORMULARY STATUS field (#5), and NON-VA MED field (#8) of
"RTN","PSS50P7",14,0)
 ;PHARMACY ORDERABLE ITEM file (#50.7).
"RTN","PSS50P7",15,0)
 N DIERR,ZZERR,PSS50P7,SCR,PSS
"RTN","PSS50P7",16,0)
 I $G(LIST)']"" Q
"RTN","PSS50P7",17,0)
 K ^TMP($J,LIST)
"RTN","PSS50P7",18,0)
 I +$G(PSSIEN)'>0,($G(PSSFT)']"") S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSS50P7",19,0)
 I $G(PSSIEN)]"",+$G(PSSIEN)'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSS50P7",20,0)
 S SCR("S")=""
"RTN","PSS50P7",21,0)
 I +$G(PSSFL)>0 N ND D SETSCRN
"RTN","PSS50P7",22,0)
 I +$G(PSSIEN)>0 N PSSIEN2 S PSSIEN2=$$FIND1^DIC(50.7,"","A","`"_PSSIEN,,SCR("S"),"") D
"RTN","PSS50P7",23,0)
 .I +PSSIEN2'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSS50P7",24,0)
 .S ^TMP($J,LIST,0)=1
"RTN","PSS50P7",25,0)
 .D GETS^DIQ(50.7,+PSSIEN2,".01;.02;.03;.04;.05;.06;.07;.08;.09;8;5","IE","PSS50P7") S PSS(1)=0
"RTN","PSS50P7",26,0)
 .F  S PSS(1)=$O(PSS50P7(50.7,PSS(1))) Q:'PSS(1)  D SETZRO^PSS50P7A
"RTN","PSS50P7",27,0)
 I +$G(PSSIEN)'>0,$G(PSSFT)]"" D
"RTN","PSS50P7",28,0)
 .I PSSFT["??" D LOOP^PSS50P7A(1) Q
"RTN","PSS50P7",29,0)
 .D FIND^DIC(50.7,,"@;.01;.02","QP",PSSFT,,"B",SCR("S"),,"")
"RTN","PSS50P7",30,0)
 .I +$G(^TMP("DILIST",$J,0))=0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSS50P7",31,0)
 .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
"RTN","PSS50P7",32,0)
 ..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
"RTN","PSS50P7",33,0)
 ..F  S PSS(1)=$O(PSS50P7(50.7,PSS(1))) Q:'PSS(1)  D SETZRO^PSS50P7A
"RTN","PSS50P7",34,0)
 K ^TMP("DILIST",$J)
"RTN","PSS50P7",35,0)
 Q
"RTN","PSS50P7",36,0)
 ;
"RTN","PSS50P7",37,0)
SYNONYM(PSSIEN,PSSFT,PSSFL,LIST) ;
"RTN","PSS50P7",38,0)
 ;PSSIEN - IEN of entry in PHARMACY ORDERABLE ITEM file (#50.7).
"RTN","PSS50P7",39,0)
 ;PSSFT - Free Text name in PHARMACY ORDERABLE ITEM file (#50.7).
"RTN","PSS50P7",40,0)
 ;PSSFL - Inactive flag - 0 or "" - All entries.
"RTN","PSS50P7",41,0)
 ;        FileMan Date - Only entries with no Inactive Date or an Inactive Date greater than this date.
"RTN","PSS50P7",42,0)
 ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the
"RTN","PSS50P7",43,0)
 ;Field Number of the data piece being returned.
"RTN","PSS50P7",44,0)
 ;Returns NAME field (#.01), DOSAGE FORM field (#.02), SYNONYM subfile (#50.72), and SYNONYM field (#.01)
"RTN","PSS50P7",45,0)
 ;of PHARMACY ORDERABLE ITEM file (#50.7).
"RTN","PSS50P7",46,0)
 N DIERR,ZZERR,PSS50P7,SCR,PSS,CNT
"RTN","PSS50P7",47,0)
 I $G(LIST)']"" Q
"RTN","PSS50P7",48,0)
 K ^TMP($J,LIST)
"RTN","PSS50P7",49,0)
 I +$G(PSSIEN)'>0,($G(PSSFT)']"") S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSS50P7",50,0)
 I $G(PSSIEN)]"",+$G(PSSIEN)'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSS50P7",51,0)
 S SCR("S")=""
"RTN","PSS50P7",52,0)
 I +$G(PSSFL)>0 N ND D SETSCRN
"RTN","PSS50P7",53,0)
 I +$G(PSSIEN)>0 N PSSIEN2 S PSSIEN2=$$FIND1^DIC(50.7,"","A","`"_PSSIEN,,SCR("S"),"") D
"RTN","PSS50P7",54,0)
 .I +PSSIEN2'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSS50P7",55,0)
 .S ^TMP($J,LIST,0)=1
"RTN","PSS50P7",56,0)
 .D GETS^DIQ(50.7,+PSSIEN2,".01;.02;2*","IE","PSS50P7") S PSS(1)=0
"RTN","PSS50P7",57,0)
 .S CNT=0 F  S PSS(1)=$O(PSS50P7(50.72,PSS(1))) Q:'PSS(1)  D SETSYN^PSS50P7A S CNT=CNT+1
"RTN","PSS50P7",58,0)
 .S ^TMP($J,LIST,+PSSIEN2,"SYN",0)=$S(CNT>0:CNT,1:"-1^NO DATA FOUND")
"RTN","PSS50P7",59,0)
 .S PSS(2)=0 F  S PSS(2)=$O(PSS50P7(50.7,PSS(2))) Q:'PSS(2)  D SETZR2^PSS50P7A
"RTN","PSS50P7",60,0)
 I +$G(PSSIEN)'>0,$G(PSSFT)]"" D
"RTN","PSS50P7",61,0)
 .I PSSFT["??" D LOOP^PSS50P7A(2) Q
"RTN","PSS50P7",62,0)
 .D FIND^DIC(50.7,,"@;.01","QP",PSSFT,,"B",SCR("S"),,"")
"RTN","PSS50P7",63,0)
 .I +$G(^TMP("DILIST",$J,0))=0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSS50P7",64,0)
 .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
"RTN","PSS50P7",65,0)
 ..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
"RTN","PSS50P7",66,0)
 ..S CNT=0 F  S PSS(1)=$O(PSS50P7(50.72,PSS(1))) Q:'PSS(1)  D SETSYN^PSS50P7A  S CNT=CNT+1
"RTN","PSS50P7",67,0)
 ..S ^TMP($J,LIST,+PSSIEN,"SYN",0)=$S(CNT>0:CNT,1:"-1^NO DATA FOUND")
"RTN","PSS50P7",68,0)
 ..S PSS(2)=0 F  S PSS(2)=$O(PSS50P7(50.7,PSS(2))) Q:'PSS(2)  D SETZR2^PSS50P7A
"RTN","PSS50P7",69,0)
 K ^TMP("DILIST",$J)
"RTN","PSS50P7",70,0)
 Q
"RTN","PSS50P7",71,0)
 ;
"RTN","PSS50P7",72,0)
NAME(PSSIEN) ;
"RTN","PSS50P7",73,0)
 ;PSSIEN - IEN of entry in PHARMACY ORDERABLE ITEM file (#50.7).
"RTN","PSS50P7",74,0)
 ;Returns NAME field (#.01) of PHARMACY ORDERABLE ITEM file (#50.7) and DOSAGE FORM name in external form.
"RTN","PSS50P7",75,0)
 N DIERR,ZZERR,PSS50P7,PSS
"RTN","PSS50P7",76,0)
 I +$G(PSSIEN)'>0 Q ""
"RTN","PSS50P7",77,0)
 D GETS^DIQ(50.7,+PSSIEN,".01;.02","E","PSS50P7")
"RTN","PSS50P7",78,0)
 I '$D(PSS50P7) Q ""
"RTN","PSS50P7",79,0)
 Q $G(PSS50P7(50.7,PSSIEN_",",.01,"E"))_" "_$G(PSS50P7(50.7,PSSIEN_",",.02,"E"))
"RTN","PSS50P7",80,0)
 ;
"RTN","PSS50P7",81,0)
INSTR(PSSIEN,PSSFT,PSSFL,LIST) ;
"RTN","PSS50P7",82,0)
 ;PSSIEN - IEN of entry in PHARMACY ORDERABLE ITEM file (#50.7).
"RTN","PSS50P7",83,0)
 ;PSSFT - Free Text name in PHARMACY ORDERABLE ITEM file (#50.7).
"RTN","PSS50P7",84,0)
 ;PSSFL - Inactive flag - "" - All entries.
"RTN","PSS50P7",85,0)
 ;        FileMan Date - Only entries with no Inactive Date or an Inactive Date greater than this date.
"RTN","PSS50P7",86,0)
 ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the
"RTN","PSS50P7",87,0)
 ;Field Number of the data piece being returned.
"RTN","PSS50P7",88,0)
 ;Returns INS and INS1 nodes of PHARMACY ORDERABLE ITEM file (#50.7).
"RTN","PSS50P7",89,0)
 N DIERR,ZZERR,PSS50P7,SCR,PSS
"RTN","PSS50P7",90,0)
 I $G(LIST)']"" Q
"RTN","PSS50P7",91,0)
 K ^TMP($J,LIST)
"RTN","PSS50P7",92,0)
 I +$G(PSSIEN)'>0,($G(PSSFT)']"") S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSS50P7",93,0)
 I $G(PSSIEN)]"",+$G(PSSIEN)'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSS50P7",94,0)
 S SCR("S")=""
"RTN","PSS50P7",95,0)
 I +$G(PSSFL)>0 N ND D SETSCRN
"RTN","PSS50P7",96,0)
 I +$G(PSSIEN)>0 N PSSIEN2 S PSSIEN2=$$FIND1^DIC(50.7,"","A","`"_PSSIEN,,SCR("S"),"") D
"RTN","PSS50P7",97,0)
 .I +PSSIEN2'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSS50P7",98,0)
 .S ^TMP($J,LIST,0)=1
"RTN","PSS50P7",99,0)
 .D GETS^DIQ(50.7,+PSSIEN2,".01;.02;7;7.1","IE","PSS50P7") S PSS(1)=0
"RTN","PSS50P7",100,0)
 .F  S PSS(1)=$O(PSS50P7(50.7,PSS(1))) Q:'PSS(1)  D SETPTI^PSS50P7A
"RTN","PSS50P7",101,0)
 I +$G(PSSIEN)'>0,$G(PSSFT)]"" D
"RTN","PSS50P7",102,0)
 .I PSSFT["??" D LOOP^PSS50P7A(3) Q
"RTN","PSS50P7",103,0)
 .D FIND^DIC(50.7,,"@;.01","QP",PSSFT,,"B",SCR("S"),,"")
"RTN","PSS50P7",104,0)
 .I +$G(^TMP("DILIST",$J,0))=0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSS50P7",105,0)
 .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
"RTN","PSS50P7",106,0)
 ..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
"RTN","PSS50P7",107,0)
 ..F  S PSS(1)=$O(PSS50P7(50.7,PSS(1))) Q:'PSS(1)  D SETPTI^PSS50P7A
"RTN","PSS50P7",108,0)
 K ^TMP("DILIST",$J)
"RTN","PSS50P7",109,0)
 Q
"RTN","PSS50P7",110,0)
 ;
"RTN","PSS50P7",111,0)
DRGIEN(PSSIEN,PSSFL,LIST) ;
"RTN","PSS50P7",112,0)
 ;PSSIEN - IEN of entry in PHARMACY ORDERABLE ITEM file (#50.7).
"RTN","PSS50P7",113,0)
 ;PSSFL - Inactive flag - "" - All entries.
"RTN","PSS50P7",114,0)
 ;        FileMan Date - Only entries with no Inactive Date or an Inactive Date greater than this date.
"RTN","PSS50P7",115,0)
 ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the
"RTN","PSS50P7",116,0)
 ;Field Number of the data piece being returned.
"RTN","PSS50P7",117,0)
 ;Returns entries from DRUG file (#50) linked to the Pharmacy Orderable Item IEN passed, GENERIC NAME field (#.01),
"RTN","PSS50P7",118,0)
 ;DEA, SPECIAL HDLG field (#3), APPLICATION PACKAGES' USE field (#63), and the INACTIVE DATE field (#100)
"RTN","PSS50P7",119,0)
 ;of DRUG file (#50).
"RTN","PSS50P7",120,0)
 N DIERR,ZZERR,PSS50P7,SCR,PSS
"RTN","PSS50P7",121,0)
 I $G(LIST)']"" Q
"RTN","PSS50P7",122,0)
 K ^TMP($J,LIST)
"RTN","PSS50P7",123,0)
 I +$G(PSSIEN)'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSS50P7",124,0)
 S SCR("S")="I $D(^PS(50.7,""A50"",PSSIEN,Y))"
"RTN","PSS50P7",125,0)
 ;Naked reference below refers to ^PSDRUG(Y,"I")
"RTN","PSS50P7",126,0)
 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))))"
"RTN","PSS50P7",127,0)
 I +$G(PSSIEN)>0 D FIND^DIC(50,,"@;.01","QX",PSSIEN,,"ASP",SCR("S"),,"PSS50P7")
"RTN","PSS50P7",128,0)
 I +PSS50P7("DILIST",0)'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSS50P7",129,0)
 S ^TMP($J,LIST,0)=+PSS50P7("DILIST",0) S PSS(1)=0 D
"RTN","PSS50P7",130,0)
 .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)))=""
"RTN","PSS50P7",131,0)
 Q
"RTN","PSS50P7",132,0)
 ;
"RTN","PSS50P7",133,0)
IEN(PSSFT,PSSFL,LIST) ;
"RTN","PSS50P7",134,0)
 ;PSSFT - Free Text name in PHARMACY ORDERABLE ITEM file (#50.7).
"RTN","PSS50P7",135,0)
 ;PSSFL - Inactive flag - "" - All entries.
"RTN","PSS50P7",136,0)
 ;        FileMan Date - Only entries with no Inactive Date or an Inactive Date greater than this date.
"RTN","PSS50P7",137,0)
 ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the
"RTN","PSS50P7",138,0)
 ;Field Number of the data piece being returned.
"RTN","PSS50P7",139,0)
 ;Returns NAME field (#.01), and DOSAGE FORM field (#.02) of PHARMACY ORDERABLE ITEM file (#50.7).
"RTN","PSS50P7",140,0)
 N DIERR,ZZERR,PSS50P7,SCR,PSS
"RTN","PSS50P7",141,0)
 I $G(LIST)']"" Q
"RTN","PSS50P7",142,0)
 K ^TMP($J,LIST)
"RTN","PSS50P7",143,0)
 I $G(PSSFT)']"" S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSS50P7",144,0)
 S SCR("S")=""
"RTN","PSS50P7",145,0)
 I +$G(PSSFL)>0 D SETSCRN
"RTN","PSS50P7",146,0)
 I PSSFT["??" D LOOP^PSS50P7A(4) Q
"RTN","PSS50P7",147,0)
 I $G(PSSFT)]"" D FIND^DIC(50.7,,"@;.01;.02IE","QP",PSSFT,,"B",SCR("S"),,"")
"RTN","PSS50P7",148,0)
 I +$G(^TMP("DILIST",$J,0))'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSS50P7",149,0)
 S ^TMP($J,LIST,0)=+^TMP("DILIST",$J,0) S PSS(2)=0 D
"RTN","PSS50P7",150,0)
 .F  S PSS(2)=$O(^TMP("DILIST",$J,PSS(2))) Q:'PSS(2)  D
"RTN","PSS50P7",151,0)
 ..S ^TMP($J,LIST,+^TMP("DILIST",$J,PSS(2),0),.01)=$P(^TMP("DILIST",$J,PSS(2),0),"^",2)
"RTN","PSS50P7",152,0)
 ..S ^TMP($J,LIST,"B",$P(^TMP("DILIST",$J,PSS(2),0),"^",2),+^TMP("DILIST",$J,PSS(2),0))=""
"RTN","PSS50P7",153,0)
 ..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:"")
"RTN","PSS50P7",154,0)
 K ^TMP("DILIST",$J)
"RTN","PSS50P7",155,0)
 Q
"RTN","PSS50P7",156,0)
 ;
"RTN","PSS50P7",157,0)
LOOKUP(PSSFT,PSSD,PSSS,LIST) ;
"RTN","PSS50P7",158,0)
 ;PSSFT - Free Text name in PHARMACY ORDERABLE ITEM file (#50.7)
"RTN","PSS50P7",159,0)
 ;PSSD - Index being traversed.
"RTN","PSS50P7",160,0)
 ;PSSS - Screening information as defined in DIC("S").
"RTN","PSS50P7",161,0)
 ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the
"RTN","PSS50P7",162,0)
 ;Field Number of the data piece being returned.
"RTN","PSS50P7",163,0)
 ;Returns NAME field (#.01), DOSAGE FORM field (#.02), and INACTIVE DATE field (#.04) of
"RTN","PSS50P7",164,0)
 ;PHARMACY ORDERABLE ITEM file (#50.7).
"RTN","PSS50P7",165,0)
 N DIERR,ZZERR,PSS50P7,SCR,PSS
"RTN","PSS50P7",166,0)
 I $G(LIST)']"" Q
"RTN","PSS50P7",167,0)
 K ^TMP($J,LIST)
"RTN","PSS50P7",168,0)
 I $G(PSSFT)']"" S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSS50P7",169,0)
 D LOOKUP^PSS50P7A
"RTN","PSS50P7",170,0)
 Q
"RTN","PSS50P7",171,0)
 ;
"RTN","PSS50P7",172,0)
SETSCRN ;Set Screen for inactive entries in PHARMACY ORDERABLE ITEM file (#50.7).
"RTN","PSS50P7",173,0)
 ;Naked reference below refers to ^PS(50.7,+Y,0)
"RTN","PSS50P7",174,0)
 S SCR("S")="S ND=$P($G(^(0)),U,4) I ND=""""!(ND>PSSFL)"
"RTN","PSS50P7",175,0)
 Q
"RTN","PSS50P7",176,0)
SSET(PSSC,PSSCNT,PSSI,DIR,SUB) ;Pull back a subset of the PHARMACY ORDERABLE ITEM file (#50.7)
"RTN","PSS50P7",177,0)
 ;
"RTN","PSS50P7",178,0)
 N PSSJ,PS0,Y,PSSIDT
"RTN","PSS50P7",179,0)
 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
"RTN","PSS50P7",180,0)
 . S Y=$P(PS0,"^",4) D DD^%DT S PSSIDT=Y
"RTN","PSS50P7",181,0)
 . S Y=$P($G(^PS(50.606,$P(PS0,"^",2),0)),"^"),PSSC=PSSC+1,^TMP(SUB,$J,1,PSSC)=PSSJ_"^"_PSSI_" "_Y_" "_PSSIDT
"RTN","PSS50P7",182,0)
 Q
"SEC","^DIC",50.7,50.7,0,"AUDIT")

"SEC","^DIC",50.7,50.7,0,"DD")
@
"SEC","^DIC",50.7,50.7,0,"DEL")

"SEC","^DIC",50.7,50.7,0,"LAYGO")

"SEC","^DIC",50.7,50.7,0,"RD")

"SEC","^DIC",50.7,50.7,0,"WR")

"VER")
8.0^22.2
"^DD",50.7,50.7,0)
FIELD^NL^14^22
"^DD",50.7,50.7,0,"DT")
3181115
"^DD",50.7,50.7,0,"ID",.02)
S %I=Y,Y=$S('$D(^(0)):"",$D(^PS(50.606,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(50.606,.01,0),U,2) D Y^DIQ:Y]"" W "   ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
"^DD",50.7,50.7,0,"ID",.04)
W "   ",$$FMTE^DILIBF($P(^(0),U,4),6)
"^DD",50.7,50.7,0,"IX","A50",50.7,.01)

"^DD",50.7,50.7,0,"IX","AC",50.7,.04)

"^DD",50.7,50.7,0,"IX","AIMM",50.7,9)

"^DD",50.7,50.7,0,"IX","AIV",50.7,.03)

"^DD",50.7,50.7,0,"IX","AL",50.76,.01)

"^DD",50.7,50.7,0,"IX","ASP1",50.7,.01)

"^DD",50.7,50.7,0,"IX","ASP2",50.7,.02)

"^DD",50.7,50.7,0,"IX","B",50.7,.01)

"^DD",50.7,50.7,0,"IX","C",50.72,.01)

"^DD",50.7,50.7,0,"IX","DTXT",50.76,.01)

"^DD",50.7,50.7,0,"NM","PHARMACY ORDERABLE ITEM")

"^DD",50.7,50.7,0,"PT",50,2.1)

"^DD",50.7,50.7,0,"PT",52,39.2)

"^DD",50.7,50.7,0,"PT",52.41,8)

"^DD",50.7,50.7,0,"PT",52.6,15)

"^DD",50.7,50.7,0,"PT",52.7,9)

"^DD",50.7,50.7,0,"PT",52.75,3)

"^DD",50.7,50.7,0,"PT",53.1,108)

"^DD",50.7,50.7,0,"PT",53.22,.01)

"^DD",50.7,50.7,0,"PT",53.52,.06)

"^DD",50.7,50.7,0,"PT",53.78,.07)

"^DD",50.7,50.7,0,"PT",53.79,.08)

"^DD",50.7,50.7,0,"PT",55.01,130)

"^DD",50.7,50.7,0,"PT",55.05,.01)

"^DD",50.7,50.7,0,"PT",55.06,108)

"^DD",50.7,50.7,0,"PT",142.14,.01)

"^DD",50.7,50.7,0,"PT",727.833,35)

"^DD",50.7,50.7,0,"VRPK")
PSS
"^DD",50.7,50.7,.01,0)
NAME^RFX^^0;1^K:X[""""!($A(X)=45)!('$G(PSEDITNM)) X I $D(X) K:$L(X)>40!($L(X)<3)!'(X'?1P.E)!(X?2"z".E) X
"^DD",50.7,50.7,.01,1,0)
^.1
"^DD",50.7,50.7,.01,1,1,0)
50.7^B^MUMPS
"^DD",50.7,50.7,.01,1,1,1)
S ^PS(50.7,"B",$E(X,1,40),DA)=""
"^DD",50.7,50.7,.01,1,1,2)
K ^PS(50.7,"B",$E(X,1,40),DA)
"^DD",50.7,50.7,.01,1,1,"%D",0)
^^2^2^2970926^^^
"^DD",50.7,50.7,.01,1,1,"%D",1,0)
Cross-reference on PHARMACY ORDERABLE ITEM file NAME field.
"^DD",50.7,50.7,.01,1,1,"%D",2,0)
In the form of: ^PS(50.7,"B",$E(X,1,40),DA)
"^DD",50.7,50.7,.01,1,1,"DT")
2950504
"^DD",50.7,50.7,.01,1,2,0)
50.7^ASP1^MUMPS
"^DD",50.7,50.7,.01,1,2,1)
S:$P($G(^PS(50.7,DA,0)),"^",2)'="" ^PS(50.7,"ADF",X,$P($G(^PS(50.7,DA,0)),"^",2),DA)=""
"^DD",50.7,50.7,.01,1,2,2)
K:$P($G(^PS(50.7,DA,0)),"^",2)'="" ^PS(50.7,"ADF",X,$P($G(^PS(50.7,DA,0)),"^",2),DA)
"^DD",50.7,50.7,.01,1,2,3)
Do Not Delete
"^DD",50.7,50.7,.01,1,2,"%D",0)
^^2^2^2970926^^^^
"^DD",50.7,50.7,.01,1,2,"%D",1,0)
Cross-reference by name, dosage form pointer.
"^DD",50.7,50.7,.01,1,2,"%D",2,0)
In the form of: ^PS(50.7,"ADF",Name,Dosage Form ptr.,DA)
"^DD",50.7,50.7,.01,1,2,"DT")
2940826
"^DD",50.7,50.7,.01,1,3,0)
50.7^A50^MUMPS
"^DD",50.7,50.7,.01,1,3,1)
Q
"^DD",50.7,50.7,.01,1,3,2)
Q
"^DD",50.7,50.7,.01,1,3,"%D",0)
^.101^6^6^3001020^^^^
"^DD",50.7,50.7,.01,1,3,"%D",1,0)
This cross reference is a place holder. A cross reference is being set in
"^DD",50.7,50.7,.01,1,3,"%D",2,0)
the form of ^PS(50.7,"A50",Pharmacy Orderable Item IEN,Dispense Drug IEN)=
"^DD",50.7,50.7,.01,1,3,"%D",3,0)
"". This is being set from the Pharmacy Orderable Item field (#2.1) of the
"^DD",50.7,50.7,.01,1,3,"%D",4,0)
DRUG file (#50). This data will be used to maintain the Pharmacy Orderable
"^DD",50.7,50.7,.01,1,3,"%D",5,0)
Items when changes are made in other files that point to the PHARMACY
"^DD",50.7,50.7,.01,1,3,"%D",6,0)
ORDERABLE ITEM file (#50.7).
"^DD",50.7,50.7,.01,1,3,"DT")
3001018
"^DD",50.7,50.7,.01,3)
Answer must be 3-40 characters in length.
"^DD",50.7,50.7,.01,"DEL",.01,0)
I 1 D EN^DDIOL("DELETIONS ARE NOT ALLOWED")
"^DD",50.7,50.7,.01,"DT")
3001018
"^DD",50.7,50.7,.02,0)
DOSAGE FORM^RP50.606'I^PS(50.606,^0;2^Q
"^DD",50.7,50.7,.02,1,0)
^.1
"^DD",50.7,50.7,.02,1,1,0)
50.7^ASP2^MUMPS
"^DD",50.7,50.7,.02,1,1,1)
S ^PS(50.7,"ADF",$P($G(^PS(50.7,DA,0)),"^"),X,DA)=""
"^DD",50.7,50.7,.02,1,1,2)
K ^PS(50.7,"ADF",$P($G(^PS(50.7,DA,0)),"^"),X,DA)
"^DD",50.7,50.7,.02,1,1,3)
Do Not Delete
"^DD",50.7,50.7,.02,1,1,"%D",0)
^^2^2^2970926^^^
"^DD",50.7,50.7,.02,1,1,"%D",1,0)
Cross-reference by name, dosage form pointer.
"^DD",50.7,50.7,.02,1,1,"%D",2,0)
In the form of: ^PS(50.7,"ADF",Name,Dosage Form ptr.,DA)
"^DD",50.7,50.7,.02,1,1,"DT")
2940826
"^DD",50.7,50.7,.02,3)

"^DD",50.7,50.7,.02,"DT")
2960403
"^DD",50.7,50.7,.03,0)
IV FLAG^SI^1:IV;^0;3^Q
"^DD",50.7,50.7,.03,1,0)
^.1
"^DD",50.7,50.7,.03,1,1,0)
50.7^AIV
"^DD",50.7,50.7,.03,1,1,1)
S ^PS(50.7,"AIV",$E(X,1,30),DA)=""
"^DD",50.7,50.7,.03,1,1,2)
K ^PS(50.7,"AIV",$E(X,1,30),DA)
"^DD",50.7,50.7,.03,1,1,"%D",0)
^^1^1^2960520^^
"^DD",50.7,50.7,.03,1,1,"%D",1,0)
Cross-reference on IV FLAG field, which indicates that an Orderable Item was created from the IV ADDITIVE or SOLUTION file.
"^DD",50.7,50.7,.03,1,1,"DT")
2950216
"^DD",50.7,50.7,.03,3)
Enter '1' if this item is created from an IV additive or solution.
"^DD",50.7,50.7,.03,9)
^
"^DD",50.7,50.7,.03,21,0)
^^2^2^2950214^
"^DD",50.7,50.7,.03,21,1,0)
This field indicates PHARMACY ORDERABLE ITEMs that are related to IV
"^DD",50.7,50.7,.03,21,2,0)
additives or solutions.
"^DD",50.7,50.7,.03,23,0)
^^2^2^2950214^
"^DD",50.7,50.7,.03,23,1,0)
This field is used to indicate that a site-selectable indicator of 
"^DD",50.7,50.7,.03,23,2,0)
type IV is to be included in the PHARMACY ORDERABLE ITEM.
"^DD",50.7,50.7,.03,"DT")
2960403
"^DD",50.7,50.7,.04,0)
INACTIVE DATE^D^^0;4^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",50.7,50.7,.04,1,0)
^.1
"^DD",50.7,50.7,.04,1,1,0)
50.7^AC^MUMPS
"^DD",50.7,50.7,.04,1,1,1)
I '$D(DIU(0)) N PSSTEST S PSSTEST=DA,PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q
"^DD",50.7,50.7,.04,1,1,2)
I '$D(DIU(0)) N PSSTEST S PSSTEST=DA,PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q
"^DD",50.7,50.7,.04,1,1,3)
Do Not Delete
"^DD",50.7,50.7,.04,1,1,"%D",0)
^^8^8^3001026^
"^DD",50.7,50.7,.04,1,1,"%D",1,0)
This cross reference is used to keep the Pharmacy Orderable Item entry in
"^DD",50.7,50.7,.04,1,1,"%D",2,0)
the PHARMACY ORDERABLE ITEM file (#50.7) up to date with current
"^DD",50.7,50.7,.04,1,1,"%D",3,0)
information, based on all active Drugs, IV Additives, and IV Solutions
"^DD",50.7,50.7,.04,1,1,"%D",4,0)
that are matched to the Pharmacy Orderable Item. This information includes
"^DD",50.7,50.7,.04,1,1,"%D",5,0)
Inactivation Date status, Non-Formulary status, Supply status, and Usage
"^DD",50.7,50.7,.04,1,1,"%D",6,0)
status. This information is also sent to CPRS (Computerized Patient Record
"^DD",50.7,50.7,.04,1,1,"%D",7,0)
System) by using the "PS MFSEND OR" protocol to update the corresponding
"^DD",50.7,50.7,.04,1,1,"%D",8,0)
Orderable Item entry in the ORDERABLE ITEMS file (#101.43).
"^DD",50.7,50.7,.04,1,1,"DT")
3001017
"^DD",50.7,50.7,.04,3)
Enter the date this orderable item became inactive.
"^DD",50.7,50.7,.04,"DT")
3001017
"^DD",50.7,50.7,.05,0)
DAY (nD) or DOSE (nL) LIMIT^FX^^0;5^K:$S('X:1,X?1.2N1"D":0,1:X'?1.2N1"L") X
"^DD",50.7,50.7,.05,3)
Type a whole number between 0 and 99, 0 decimal digits, followed by either a "D" (for NUMBER OF DAYS) or an "L" (for DOSE LIMIT).
"^DD",50.7,50.7,.05,20,0)
^.3LA^2^2
"^DD",50.7,50.7,.05,20,1,0)
ps
"^DD",50.7,50.7,.05,20,2,0)
PS
"^DD",50.7,50.7,.05,21,0)
^^2^2^2960708^^^^
"^DD",50.7,50.7,.05,21,1,0)
If found when this drug is ordered, this is used to calculate a DEFAULT vale for the STOP DATE prompt of the order.  If the number entered here is followed by a "D", that NUMBER OF DAYS will be added to the START DATE to calculate the STOP DATE.
"^DD",50.7,50.7,.05,21,2,0)
If the number entered is followed by an "L", the number is used as the NUMBER OF DOSES to calculate the STOP DATE.  This is best used for NARCOTICS and ANTIBIOTICS.
"^DD",50.7,50.7,.05,"DT")
2960708
"^DD",50.7,50.7,.06,0)
DEFAULT MED ROUTE^*P51.2'^PS(51.2,^0;6^S DIC("S")="I $P(^(0),""^"",4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",50.7,50.7,.06,3)
Enter the most common MED ROUTE associated with this medication.
"^DD",50.7,50.7,.06,12)
ONLY MED ROUTES MARKED FOR USE BY ALL PACKAGES ARE SELECTABLE.
"^DD",50.7,50.7,.06,12.1)
S DIC("S")="I $P(^(0),""^"",4)"
"^DD",50.7,50.7,.06,20,0)
^.3LA^1^1
"^DD",50.7,50.7,.06,20,1,0)
PS
"^DD",50.7,50.7,.06,21,0)
^^2^2^3100928^
"^DD",50.7,50.7,.06,21,1,0)
If a MED ROUTE is entered here, that med route is used as a DEFAULT 
"^DD",50.7,50.7,.06,21,2,0)
value during order entry when this drug is selected. 
"^DD",50.7,50.7,.06,"DT")
3100928
"^DD",50.7,50.7,.07,0)
SCHEDULE TYPE^S^OC:ON CALL;O:ONE TIME;P:PRN;R:FILL ON REQUEST;^0;7^Q
"^DD",50.7,50.7,.07,3)
Enter the most common SCHEDULE TYPE associated with this medication.
"^DD",50.7,50.7,.07,21,0)
^^1^1^2950614^
"^DD",50.7,50.7,.07,21,1,0)
If a SCHEDULE TYPE is entered here, it is used as a DEFAULT value in order entry when this drug is selected.
"^DD",50.7,50.7,.07,"DT")
2950614
"^DD",50.7,50.7,.08,0)
SCHEDULE^FX^^0;8^D EN1^PSSOUTSC
"^DD",50.7,50.7,.08,3)
Enter the most common SCHEDULE associated with this medication.
"^DD",50.7,50.7,.08,21,0)
^^5^5^3010301^
"^DD",50.7,50.7,.08,21,1,0)
If a Schedule is entered here, it will be used as a default value in
"^DD",50.7,50.7,.08,21,2,0)
Computerized Patient Record System (CPRS) at the Schedule prompt for
"^DD",50.7,50.7,.08,21,3,0)
medication orders. When the order is placed in CPRS, the default will
"^DD",50.7,50.7,.08,21,4,0)
display only if the value meets the criteria for the package for which the
"^DD",50.7,50.7,.08,21,5,0)
order is being placed, Inpatient Medications or Outpatient Pharmacy.
"^DD",50.7,50.7,.08,"DT")
3010226
"^DD",50.7,50.7,.09,0)
SUPPLY^SI^1:SUPPLY;^0;9^Q
"^DD",50.7,50.7,.09,21,0)
^^2^2^2960403^
"^DD",50.7,50.7,.09,21,1,0)
This field is used to indicate whether or not the Orderable Item is a
"^DD",50.7,50.7,.09,21,2,0)
supply, 1 indicating a supply.
"^DD",50.7,50.7,.09,"DT")
2960403
"^DD",50.7,50.7,1,0)
HIGH RISK/HIGH ALERT^S^0:NOT HIGH RISK/ALERT;1:HIGH RISK/ALERT-NO WITNESS REQUIRED IN BCMA;2:RECOMMEND WITNESS IN BCMA-HIGH RISK/ALERT;3:WITNESS REQUIRED IN BCMA-HIGH RISK/ALERT;^0;14^Q
"^DD",50.7,50.7,1,3)
Choose High Risk/Alert level for this Orderable Item.
"^DD",50.7,50.7,1,21,0)
^^3^3^3121114^^
"^DD",50.7,50.7,1,21,1,0)
This field will allow an orderable item to be marked as High Risk/High 
"^DD",50.7,50.7,1,21,2,0)
Alert. The BCMA GUI application will use this field to control the witness
"^DD",50.7,50.7,1,21,3,0)
process, of medication, during administration to a patient. 
"^DD",50.7,50.7,1,23,0)
^^7^7^3121114^
"^DD",50.7,50.7,1,23,1,0)
A value of 0 or 1 will not flag this orderable item as recommends 
"^DD",50.7,50.7,1,23,2,0)
or requires a witness during administration via BCMA.  A value of 2 will
"^DD",50.7,50.7,1,23,3,0)
indicate it as a BCMA High Risk/Alert and a witness is recommended, but
"^DD",50.7,50.7,1,23,4,0)
not required for administration.  A value of 3 indicates it as a BCMA High
"^DD",50.7,50.7,1,23,5,0)
Risk/Alert that needs a witness, during administration.  Both codes 2 & 3
"^DD",50.7,50.7,1,23,6,0)
will display an icon, in the Witness column, next to Active Medication
"^DD",50.7,50.7,1,23,7,0)
column on the VDL screens of the BCMA application.
"^DD",50.7,50.7,1,"DT")
3121114
"^DD",50.7,50.7,2,0)
SYNONYM^50.72^^2;0
"^DD",50.7,50.7,5,0)
FORMULARY STATUS^SI^1:N/F;^0;12^Q
"^DD",50.7,50.7,5,3)
Enter a '1' if this orderable item is not on the formulary list.
"^DD",50.7,50.7,5,8.5)
^
"^DD",50.7,50.7,5,9)
^
"^DD",50.7,50.7,5,21,0)
^^6^6^3010427^
"^DD",50.7,50.7,5,21,1,0)
This field will designate the formulary status of the orderable item. The
"^DD",50.7,50.7,5,21,2,0)
non-formulary status will be displayed to the provider next to the
"^DD",50.7,50.7,5,21,3,0)
selectable list of orderable item(s) during CPRS order entry (List Manager
"^DD",50.7,50.7,5,21,4,0)
and GUI). This field is not editable. It is controlled by the software. An
"^DD",50.7,50.7,5,21,5,0)
Orderable Item will only be marked as non-formulary if there are no active
"^DD",50.7,50.7,5,21,6,0)
Dispense Drugs matched to the item that are formulary drugs.
"^DD",50.7,50.7,5,"DT")
3000901
"^DD",50.7,50.7,6,0)
OI-DRUG TEXT ENTRY^50.76P^^1;0
"^DD",50.7,50.7,7,0)
PATIENT INSTRUCTIONS^FX^^INS;1^K:$L(X)>240!($L(X)<1) X D:$D(X) HELP^PSSUTLA2
"^DD",50.7,50.7,7,3)
Answer must be 1-240 characters in length.
"^DD",50.7,50.7,7,21,0)
^^9^9^3001216^
"^DD",50.7,50.7,7,21,1,0)
The text in this field shall be presented as a default for the Patient
"^DD",50.7,50.7,7,21,2,0)
Instructions prompt in the Outpatient Pharmacy package when entering
"^DD",50.7,50.7,7,21,3,0)
orders, if the Dispense Drug selected is matched to this Pharmacy
"^DD",50.7,50.7,7,21,4,0)
Orderable Item. This text will also be presented during the Outpatient
"^DD",50.7,50.7,7,21,5,0)
Medication order entry process through Computerized Patient Record System
"^DD",50.7,50.7,7,21,6,0)
(CPRS), and the CPRS user can then determine whether or not these
"^DD",50.7,50.7,7,21,7,0)
Instructions should be part of the order. For all words entered in this
"^DD",50.7,50.7,7,21,8,0)
field, the software will check for expansions for each word in the
"^DD",50.7,50.7,7,21,9,0)
Medication Instruction (#51) file, and expand the word accordingly.
"^DD",50.7,50.7,7,"DT")
3010110
"^DD",50.7,50.7,7.1,0)
OTHER LANGUAGE INSTRUCTIONS^F^^INS1;1^K:$L(X)>240!($L(X)<1) X
"^DD",50.7,50.7,7.1,3)
Answer must be 1-240 characters in length.
"^DD",50.7,50.7,7.1,20,0)
^.3LA^1^1
"^DD",50.7,50.7,7.1,20,1,0)
PSO
"^DD",50.7,50.7,7.1,21,0)
^.001^1^1^3030123^^^^
"^DD",50.7,50.7,7.1,21,1,0)
This field is used to store patient instructions in another language.
"^DD",50.7,50.7,7.1,23,0)
^.001^1^1^3030123^^^^
"^DD",50.7,50.7,7.1,23,1,0)
Free text.
"^DD",50.7,50.7,7.1,"DT")
3020916
"^DD",50.7,50.7,8,0)
NON-VA MED^SI^1:YES;^0;10^Q
"^DD",50.7,50.7,8,21,0)
^.001^7^7^3030910^^
"^DD",50.7,50.7,8,21,1,0)
This field indicates whether the Orderable Item
"^DD",50.7,50.7,8,21,2,0)
is marked as Non-VA Med or not. It is
"^DD",50.7,50.7,8,21,3,0)
controlled by software and is not manually
"^DD",50.7,50.7,8,21,4,0)
editable. An Orderable Item will only be marked
"^DD",50.7,50.7,8,21,5,0)
as Non-VA Med if there is at least one active
"^DD",50.7,50.7,8,21,6,0)
Dispense Drug matched to the item that is
"^DD",50.7,50.7,8,21,7,0)
marked as Non-VA Med.
"^DD",50.7,50.7,8,"DT")
3030910
"^DD",50.7,50.7,9,0)
ASSOCIATED IMMUNIZATION^*P9999999.14'^AUTTIMM(^IMM;1^S DIC("S")="I $P(^AUTTIMM(Y,0),U,7)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",50.7,50.7,9,1,0)
^.1
"^DD",50.7,50.7,9,1,1,0)
50.7^AIMM
"^DD",50.7,50.7,9,1,1,1)
S ^PS(50.7,"AIMM",$E(X,1,30),DA)=""
"^DD",50.7,50.7,9,1,1,2)
K ^PS(50.7,"AIMM",$E(X,1,30),DA)
"^DD",50.7,50.7,9,1,1,"%D",0)
^^4^4^3090303^
"^DD",50.7,50.7,9,1,1,"%D",1,0)
This cross reference permits lookup of all PHARMACY ORDERABLE ITEMS 
"^DD",50.7,50.7,9,1,1,"%D",2,0)
that are mapped to a given IMMUNIZATION.  It will be used by the file 
"^DD",50.7,50.7,9,1,1,"%D",3,0)
standardization process to identify entries that may require re-mapping 
"^DD",50.7,50.7,9,1,1,"%D",4,0)
if an immunization entry is later inactivated.
"^DD",50.7,50.7,9,1,1,"DT")
3090303
"^DD",50.7,50.7,9,3)
Select an immunization file entry to associate with this orderable item.
"^DD",50.7,50.7,9,12)
(Inactive immunization entries may not be selected.)
"^DD",50.7,50.7,9,12.1)
S DIC("S")="I $P(^AUTTIMM(Y,0),U,7)'=1"
"^DD",50.7,50.7,9,21,0)
^.001^5^5^3081118^^
"^DD",50.7,50.7,9,21,1,0)
This field is added as part of the "Immunizations Documentation by BCMA"
"^DD",50.7,50.7,9,21,2,0)
project.  A mapping relationship is created between the file entry
"^DD",50.7,50.7,9,21,3,0)
(Pharmacy Orderable Item) and the pointed-to immunization so that a
"^DD",50.7,50.7,9,21,4,0)
record can be created in PCE's V IMMUNIZATION file corresponding to
"^DD",50.7,50.7,9,21,5,0)
the BCMA administration of an immunization.
"^DD",50.7,50.7,9,"DT")
3090303
"^DD",50.7,50.7,10,0)
USE DOSAGE FORM MED ROUTE LIST^RS^Y:YES;N:NO;^0;13^Q
"^DD",50.7,50.7,10,3)
Enter YES to use the med routes from the Dosage Form file associated to the orderable item or NO to use the possible med routes associated to the orderable item.
"^DD",50.7,50.7,10,21,0)
^.001^5^5^3110208^^^^
"^DD",50.7,50.7,10,21,1,0)
This flag governs the source of the medication routes that will be 
"^DD",50.7,50.7,10,21,2,0)
used during medication order entry. If this field is set to YES, the
"^DD",50.7,50.7,10,21,3,0)
optional list of med routes will be derived from the Dosage Form file
"^DD",50.7,50.7,10,21,4,0)
associated to the orderable item. Otherwise, it will be derived from 
"^DD",50.7,50.7,10,21,5,0)
the Possible Med Routes Sub-file associated to the orderable item.
"^DD",50.7,50.7,10,23,0)
^.001^3^3^3110208^^^^
"^DD",50.7,50.7,10,23,1,0)
A "YES" indicates the med routes from the Dosage Form (#50.606) will 
"^DD",50.7,50.7,10,23,2,0)
be used for the Orderable item. A "NO" indicates the med routes from 
"^DD",50.7,50.7,10,23,3,0)
the POSSIBLE MED ROUTES sub-file #50.711 will be used.
"^DD",50.7,50.7,10,"DT")
3110825
"^DD",50.7,50.7,11,0)
POSSIBLE MED ROUTES^50.711PA^^3;0
"^DD",50.7,50.7,11,21,0)
^^16^16^3101001^^
"^DD",50.7,50.7,11,21,1,0)
If the DEFAULT MED ROUTE field (#.06) is populated then that value 
"^DD",50.7,50.7,11,21,2,0)
will be returned as the default value. If the DEFAULT MED ROUTE field
"^DD",50.7,50.7,11,21,3,0)
(#.06) is not populated and the POSSIBLE MED ROUTES multiple is
"^DD",50.7,50.7,11,21,4,0)
populated with a single entry and the USE DOSAGE FORM MED ROUTE LIST 
"^DD",50.7,50.7,11,21,5,0)
field (#10) is set to "NO", the single entry will be returned as the
"^DD",50.7,50.7,11,21,6,0)
default value.
"^DD",50.7,50.7,11,21,7,0)
 
"^DD",50.7,50.7,11,21,8,0)
If the DEFAULT MED ROUTE (#.06) field is not populated and the POSSIBLE
"^DD",50.7,50.7,11,21,9,0)
MED ROUTES multiple is populated with more than one entry and the USE
"^DD",50.7,50.7,11,21,10,0)
DOSAGE FORM MED ROUTE LIST field (#10) is set to "NO", no value will be
"^DD",50.7,50.7,11,21,11,0)
returned as the default value.
"^DD",50.7,50.7,11,21,12,0)
 
"^DD",50.7,50.7,11,21,13,0)
The med routes selection list in CPRS will be populated with entries
"^DD",50.7,50.7,11,21,14,0)
in all the medication routes associated with the orderable item's
"^DD",50.7,50.7,11,21,15,0)
dosage form if the USE DOSAGE FORM MED ROUTE LIST field (#10) is set to
"^DD",50.7,50.7,11,21,16,0)
"YES", otherwise from the POSSIBLE MED ROUTES multiple.
"^DD",50.7,50.7,12,0)
PROMPT FOR REMOVAL IN BCMA^*SX^0:No Removal Required;1:Removal at Next Administration;2:Removal Period Optional Prior to Next Administration;3:Removal Period Required Prior to Next Administration;^4;1^D 12^PSSNCPDP
"^DD",50.7,50.7,12,3)
 
"^DD",50.7,50.7,12,4)
D D13^PSSNCPDP
"^DD",50.7,50.7,12,12)
 
"^DD",50.7,50.7,12,12.1)
S DIC("S")="N DSP,PSDOSE S DSP=1 S PSDOSE=$P(^PS(50.7,+DA,0),""^"",2) S:((Y=0)&$G(PSDOSE)&(^PS(50.606,PSDOSE,0)[""PATCH"")) DSP=0 I DSP"
"^DD",50.7,50.7,12,21,0)
^.001^26^26^3150730^^^^
"^DD",50.7,50.7,12,21,1,0)
This field will allow for the following values.  
"^DD",50.7,50.7,12,21,2,0)
 
"^DD",50.7,50.7,12,21,3,0)
        NULL/0 = No Removal Required. Duration of Administration field
"^DD",50.7,50.7,12,21,4,0)
        does not display when Pharmacist is finishing the order. This is
"^DD",50.7,50.7,12,21,5,0)
        consistent with existing functionality for tablets, capsules and
"^DD",50.7,50.7,12,21,6,0)
        other unit dose medications not requiring removal.
"^DD",50.7,50.7,12,21,7,0)
         
"^DD",50.7,50.7,12,21,8,0)
        1 = Removal at Next Administration. Duration of Administration 
"^DD",50.7,50.7,12,21,9,0)
        field does not display when pharmacist is finishing the order.
"^DD",50.7,50.7,12,21,10,0)
        BCMA user will be prompted for removal automatically at next
"^DD",50.7,50.7,12,21,11,0)
        administration.
"^DD",50.7,50.7,12,21,12,0)
         
"^DD",50.7,50.7,12,21,13,0)
        2 = Removal Period Optional Prior to Next Administration.
"^DD",50.7,50.7,12,21,14,0)
        Pharmacist is prompted for Duration of Administration when 
"^DD",50.7,50.7,12,21,15,0)
        finishing the order; however, this field is optional/not 
"^DD",50.7,50.7,12,21,16,0)
        required to finish the order. If Duration of Administration is
"^DD",50.7,50.7,12,21,17,0)
        entered by the pharmacist finishing the order, the BCMA user
"^DD",50.7,50.7,12,21,18,0)
        will be prompted for removal when the Duration of 
"^DD",50.7,50.7,12,21,19,0)
        Administration has ended. If no Duration of Administration is
"^DD",50.7,50.7,12,21,20,0)
        entered, BCMA user will be prompted for removal at next
"^DD",50.7,50.7,12,21,21,0)
        administration.
"^DD",50.7,50.7,12,21,22,0)
         
"^DD",50.7,50.7,12,21,23,0)
        3 = Removal Period Required Prior to Next Administration. 
"^DD",50.7,50.7,12,21,24,0)
        Pharmacist is prompted for Duration of Administration, which is 
"^DD",50.7,50.7,12,21,25,0)
        required to finish the order. BCMA user will be prompted for
"^DD",50.7,50.7,12,21,26,0)
        removal after the Duration of Administration has ended.
"^DD",50.7,50.7,12,23,0)
^.001^2^2^3150730^^^^
"^DD",50.7,50.7,12,23,1,0)
This prompt will allow BCMA to display the removal times in Inpatient 
"^DD",50.7,50.7,12,23,2,0)
Med orders using rules determined by the values stored here.
"^DD",50.7,50.7,12,"DEL",1,0)
N PSDOSE S PSDOSE=$P(^PS(50.7,+DA,0),"^",2) I $G(PSDOSE),^PS(50.606,PSDOSE,0)["PATCH" D D12^PSSNCPDP
"^DD",50.7,50.7,12,"DT")
3150730
"^DD",50.7,50.7,13,0)
INDICATIONS FOR USE^50.713A^^IND;0
"^DD",50.7,50.7,13,21,0)
^^2^2^3170501^
"^DD",50.7,50.7,13,21,1,0)
This multiple field contains the possible Indications for the Use of
"^DD",50.7,50.7,13,21,2,0)
medications ordered through CPRS and Backdoor Pharmacy.
"^DD",50.7,50.7,13,"DT")
3160921
"^DD",50.7,50.7,14,0)
MOST COMMON INDICATION FOR USE^FJ40X^^4;2^K:$L(X)>40!($L(X)<3) X
"^DD",50.7,50.7,14,3)
Answer must be 3-40 characters in length.
"^DD",50.7,50.7,14,4)

"^DD",50.7,50.7,14,21,0)
^.001^3^3^3170222^^^
"^DD",50.7,50.7,14,21,1,0)
This field contains the most common Indication for Use for the Orderable
"^DD",50.7,50.7,14,21,2,0)
Item, if one exists, and displays as the first choice in the list of
"^DD",50.7,50.7,14,21,3,0)
Indications.
"^DD",50.7,50.7,14,"DT")
3170222
"^DD",50.7,50.711,0)
POSSIBLE MED ROUTES SUB-FIELD^^.01^1
"^DD",50.7,50.711,0,"DT")
3100928
"^DD",50.7,50.711,0,"IX","B",50.711,.01)

"^DD",50.7,50.711,0,"NM","POSSIBLE MED ROUTES")

"^DD",50.7,50.711,0,"UP")
50.7
"^DD",50.7,50.711,.01,0)
POSSIBLE MED ROUTES^MP51.2'^PS(51.2,^0;1^Q
"^DD",50.7,50.711,.01,1,0)
^.1
"^DD",50.7,50.711,.01,1,1,0)
50.711^B
"^DD",50.7,50.711,.01,1,1,1)
S ^PS(50.7,DA(1),3,"B",$E(X,1,30),DA)=""
"^DD",50.7,50.711,.01,1,1,2)
K ^PS(50.7,DA(1),3,"B",$E(X,1,30),DA)
"^DD",50.7,50.711,.01,3)
Select a possible med route associated with this orderable item.
"^DD",50.7,50.711,.01,4)
D MRTHLP^PSSPOIMO
"^DD",50.7,50.711,.01,"DT")
3101001
"^DD",50.7,50.713,0)
INDICATIONS FOR USE SUB-FIELD^^.01^1
"^DD",50.7,50.713,0,"DT")
3180322
"^DD",50.7,50.713,0,"IX","B",50.713,.01)

"^DD",50.7,50.713,0,"NM","INDICATIONS FOR USE")

"^DD",50.7,50.713,0,"UP")
50.7
"^DD",50.7,50.713,.01,0)
INDICATIONS FOR USE^MFJ40^^0;1^K:$L(X)>40!($L(X)<3) X
"^DD",50.7,50.713,.01,1,0)
^.1^^-1
"^DD",50.7,50.713,.01,1,1,0)
50.713^B
"^DD",50.7,50.713,.01,1,1,1)
S ^PS(50.7,DA(1),"IND","B",$E(X,1,30),DA)=""
"^DD",50.7,50.713,.01,1,1,2)
K ^PS(50.7,DA(1),"IND","B",$E(X,1,30),DA)
"^DD",50.7,50.713,.01,1,1,"DT")
3170217
"^DD",50.7,50.713,.01,3)
Answer must be 3-40 characters in length.
"^DD",50.7,50.713,.01,"DT")
3170501
"^DD",50.7,50.72,0)
SYNONYM SUB-FIELD^^.01^1
"^DD",50.7,50.72,0,"DT")
2950215
"^DD",50.7,50.72,0,"IX","AC",50.72,.01)

"^DD",50.7,50.72,0,"IX","B",50.72,.01)

"^DD",50.7,50.72,0,"NM","SYNONYM")

"^DD",50.7,50.72,0,"UP")
50.7
"^DD",50.7,50.72,.01,0)
SYNONYM^MFX^^0;1^S X=$$TRIM^XLFSTR(X,," ") K:$L(X)>30!($L(X)<1) X
"^DD",50.7,50.72,.01,1,0)
^.1
"^DD",50.7,50.72,.01,1,1,0)
50.72^B
"^DD",50.7,50.72,.01,1,1,1)
S ^PS(50.7,DA(1),2,"B",$E(X,1,30),DA)=""
"^DD",50.7,50.72,.01,1,1,2)
K ^PS(50.7,DA(1),2,"B",$E(X,1,30),DA)
"^DD",50.7,50.72,.01,1,2,0)
50.72^AC^MUMPS
"^DD",50.7,50.72,.01,1,2,1)
I '$D(DIU(0)),'$G(PSCREATE) N PSSTEST S PSSTEST=DA(1),PSSCROSS=1,ZTIO="",ZTDTH=$H,ZTDESC="Orderable Item Update",ZTRTN="EN1^PSSPOIDT",ZTSAVE("PSSCROSS")="",ZTSAVE("PSSTEST")="" D ^%ZTLOAD K PSSCROSS Q
"^DD",50.7,50.72,.01,1,2,2)
I '$D(DIU(0)),'$G(PSCREATE) N PSSTEST S PSSTEST=DA(1),PSSCROSS=1,ZTIO="",ZTDTH=$H,ZTDESC="Orderable Item Update",ZTRTN="EN1^PSSPOIDT",ZTSAVE("PSSCROSS")="",ZTSAVE("PSSTEST")="" D ^%ZTLOAD K PSSCROSS Q
"^DD",50.7,50.72,.01,1,2,3)
Do Not Delete
"^DD",50.7,50.72,.01,1,2,"%D",0)
^^2^2^2970926^^^^
"^DD",50.7,50.72,.01,1,2,"%D",1,0)
This is used to keep the Orderable Item up to date.
"^DD",50.7,50.72,.01,1,2,"%D",2,0)
In the form of: ^PS(50.7,DA,0)
"^DD",50.7,50.72,.01,1,2,"DT")
2960520
"^DD",50.7,50.72,.01,1,3,0)
50.7^C
"^DD",50.7,50.72,.01,1,3,1)
S ^PS(50.7,"C",$E(X,1,30),DA(1),DA)=""
"^DD",50.7,50.72,.01,1,3,2)
K ^PS(50.7,"C",$E(X,1,30),DA(1),DA)
"^DD",50.7,50.72,.01,1,3,"DT")
2960806
"^DD",50.7,50.72,.01,3)
Answer must be 1-30 characters in length.
"^DD",50.7,50.72,.01,"DT")
3070731
"^DD",50.7,50.76,0)
OI-DRUG TEXT ENTRY SUB-FIELD^^.01^1
"^DD",50.7,50.76,0,"DT")
2990921
"^DD",50.7,50.76,0,"IX","B",50.76,.01)

"^DD",50.7,50.76,0,"NM","OI-DRUG TEXT ENTRY")

"^DD",50.7,50.76,0,"UP")
50.7
"^DD",50.7,50.76,.01,0)
OI-DRUG TEXT ENTRY^M*P51.7'^PS(51.7,^0;1^S DIC("S")="N ZC S ZC=$P($G(^PS(51.7,+Y,0)),""^"",2) I $S('ZC:1,1:ZC>DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",50.7,50.76,.01,1,0)
^.1
"^DD",50.7,50.76,.01,1,1,0)
50.76^B
"^DD",50.7,50.76,.01,1,1,1)
S ^PS(50.7,DA(1),1,"B",$E(X,1,30),DA)=""
"^DD",50.7,50.76,.01,1,1,2)
K ^PS(50.7,DA(1),1,"B",$E(X,1,30),DA)
"^DD",50.7,50.76,.01,1,2,0)
50.7^DTXT
"^DD",50.7,50.76,.01,1,2,1)
S ^PS(50.7,"DTXT",$E(X,1,30),DA(1),DA)=""
"^DD",50.7,50.76,.01,1,2,2)
K ^PS(50.7,"DTXT",$E(X,1,30),DA(1),DA)
"^DD",50.7,50.76,.01,1,2,3)
Do Not Delete
"^DD",50.7,50.76,.01,1,2,"%D",0)
^^1^1^3011107^
"^DD",50.7,50.76,.01,1,2,"%D",1,0)
This is used to lookup Drug Text entries linked to Orderable Item.
"^DD",50.7,50.76,.01,1,2,"DT")
3011107
"^DD",50.7,50.76,.01,1,3,0)
50.7^AL^MUMPS
"^DD",50.7,50.76,.01,1,3,1)
D ASKSYN^PSSPOIMP
"^DD",50.7,50.76,.01,1,3,2)
I
"^DD",50.7,50.76,.01,1,3,"DT")
3050818
"^DD",50.7,50.76,.01,3)
This field is used to associate entries from the DRUG TEXT File (#51.7) with Pharmacy Orderable Items. This information will be seen in CPRS and Pharmacy during the medication order entry process.
"^DD",50.7,50.76,.01,12)
Only active entries may be selected.
"^DD",50.7,50.76,.01,12.1)
S DIC("S")="N ZC S ZC=$P($G(^PS(51.7,+Y,0)),""^"",2) I $S('ZC:1,1:ZC>DT)"
"^DD",50.7,50.76,.01,21,0)
^.001^7^7^3010320^^
"^DD",50.7,50.76,.01,21,1,0)
This is a pointer to the DRUG TEXT File (#51.7). This file contains such
"^DD",50.7,50.76,.01,21,2,0)
information as drug restrictions, guidelines and protocols to help assure
"^DD",50.7,50.76,.01,21,3,0)
that medications are being used according to formulary specifications.
"^DD",50.7,50.76,.01,21,4,0)
This information will be seen in CPRS and Pharmacy, when a medication
"^DD",50.7,50.76,.01,21,5,0)
order is placed for the Pharmacy Orderable Item. New entries to the DRUG
"^DD",50.7,50.76,.01,21,6,0)
TEXT File (#51.7) must be made through the Drug Text Enter/Edit [PSS EDIT
"^DD",50.7,50.76,.01,21,7,0)
TEXT] option.
"^DD",50.7,50.76,.01,"DT")
3050818
"^DIC",50.7,50.7,0)
PHARMACY ORDERABLE ITEM^50.7I
"^DIC",50.7,50.7,0,"GL")
^PS(50.7,
"^DIC",50.7,50.7,"%",0)
^1.005^1^1
"^DIC",50.7,50.7,"%",1,0)
GMTS
"^DIC",50.7,50.7,"%","B","GMTS",1)

"^DIC",50.7,50.7,"%D",0)
^^1^1^2941026^
"^DIC",50.7,50.7,"%D",1,0)
Order Entry name for items that can be ordered in the Pharmacy package.
"^DIC",50.7,"B","PHARMACY ORDERABLE ITEM",50.7)

"BLD",10572,6)
2^
$END KID PSS*1.0*234
