source: WorldVistAEHR/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSS102RP.m@ 1806

Last change on this file since 1806 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 1.7 KB
RevLine 
[613]1PSS102RP ;OIFO BAY PINES/VGF - TEMP RTN TO UPDATE PLACE OF VISIT IN FILE 1020.2;3/30/04
2 ;;1.0;PHARMACY DATA MANAGEMENT;**102**;9/30/97
3 N PSSIEN,PSSDRG,PSSDRUGT,PSSSPCE,PSSDUZ,PSSLN,PSSDRUG
4 N XMDUZ,XMSUB,XMTEXT,XMY
5 S PSSDUZ=DUZ
6 K ^TMP($J,"PSS102"),^XTMP("PSS102")
7 S PSSIEN="" F S PSSIEN=$O(^PS(50.7,PSSIEN)) Q:PSSIEN="" D
8 .S PSSDRG="" F S PSSDRG=$O(^PS(50.7,PSSIEN,1,"B",PSSDRG)) Q:PSSDRG="" D
9 ..S PSSDRUGT=$G(^PS(51.7,PSSDRG,0))
10 ..I $D(^PS(50.7,PSSIEN,2,"B",PSSDRUGT)) Q
11 ..S ^XTMP("PSS102",PSSIEN,PSSDRUGT)=""
12 I $O(^XTMP("PSS102",""))="" S ^XTMP("PSS102","NO DRUGS TO LIST","NO DRUGS TO LIST")=""
13 S ^TMP($J,"PSS102")=""
14 S ^TMP($J,"PSS102",0)=" "
15 S ^TMP($J,"PSS102",1)=" "
16 S ^TMP($J,"PSS102",2)="DRUG TEXT REPORT"
17 S ^TMP($J,"PSS102",3)=" "
18 S ^TMP($J,"PSS102",4)="This report will list the Drug Text entries in the Pharmacy"
19 S ^TMP($J,"PSS102",5)="Orderable Item file (#50.7) which are not also set up as"
20 S ^TMP($J,"PSS102",6)="Synonyms"
21 S ^TMP($J,"PSS102",7)=" "
22 S ^TMP($J,"PSS102",8)="DRUG NAME DRUG TEXT ENTRY"
23 S ^TMP($J,"PSS102",9)="--------- ---------------"
24 S ^TMP($J,"PSS102",10)=" "
25 S PSSLN=11,$P(PSSSPCE," ",25)=""
26 S PSSIEN="" F S PSSIEN=$O(^XTMP("PSS102",PSSIEN)) Q:PSSIEN="" D
27 .S PSSDRUG=$P($G(^PS(50.7,PSSIEN,0)),"^")
28 .S PSSDRUGT="" F S PSSDRUGT=$O(^XTMP("PSS102",PSSIEN,PSSDRUGT)) Q:PSSDRUGT="" D
29 ..S ^TMP($J,"PSS102",PSSLN)=$E(PSSDRUG_PSSSPCE,1,25)_" "_$E(PSSDRUGT_PSSSPCE,1,25)
30 ..S PSSLN=PSSLN+1
31QUEUE ;Send report to user
32 S XMSUB="PHARMACY DATA MANAGEMENT",XMTEXT="^TMP("_$J_","_"""PSS102"""_",",XMDUZ="PATCH PSS*1.0*102",XMY(PSSDUZ)=""
33 D SENDMSG^XMXAPI(PSSDUZ,XMSUB,"^TMP("_$J_","_"""PSS102"""_")",PSSDUZ)
34 K ^TMP($J)
35 Q
Note: See TracBrowser for help on using the repository browser.