- PSS102RP ;OIFO BAY PINES/VGF - TEMP RTN TO UPDATE PLACE OF VISIT IN FILE 1020.2;3/30/04
- ;;1.0;PHARMACY DATA MANAGEMENT;**102**;9/30/97
- N PSSIEN,PSSDRG,PSSDRUGT,PSSSPCE,PSSDUZ,PSSLN,PSSDRUG
- N XMDUZ,XMSUB,XMTEXT,XMY
- S PSSDUZ=DUZ
- K ^TMP($J,"PSS102"),^XTMP("PSS102")
- S PSSIEN="" F S PSSIEN=$O(^PS(50.7,PSSIEN)) Q:PSSIEN="" D
- .S PSSDRG="" F S PSSDRG=$O(^PS(50.7,PSSIEN,1,"B",PSSDRG)) Q:PSSDRG="" D
- ..S PSSDRUGT=$G(^PS(51.7,PSSDRG,0))
- ..I $D(^PS(50.7,PSSIEN,2,"B",PSSDRUGT)) Q
- ..S ^XTMP("PSS102",PSSIEN,PSSDRUGT)=""
- I $O(^XTMP("PSS102",""))="" S ^XTMP("PSS102","NO DRUGS TO LIST","NO DRUGS TO LIST")=""
- S ^TMP($J,"PSS102")=""
- S ^TMP($J,"PSS102",0)=" "
- S ^TMP($J,"PSS102",1)=" "
- S ^TMP($J,"PSS102",2)="DRUG TEXT REPORT"
- S ^TMP($J,"PSS102",3)=" "
- S ^TMP($J,"PSS102",4)="This report will list the Drug Text entries in the Pharmacy"
- S ^TMP($J,"PSS102",5)="Orderable Item file (#50.7) which are not also set up as"
- S ^TMP($J,"PSS102",6)="Synonyms"
- S ^TMP($J,"PSS102",7)=" "
- S ^TMP($J,"PSS102",8)="DRUG NAME DRUG TEXT ENTRY"
- S ^TMP($J,"PSS102",9)="--------- ---------------"
- S ^TMP($J,"PSS102",10)=" "
- S PSSLN=11,$P(PSSSPCE," ",25)=""
- S PSSIEN="" F S PSSIEN=$O(^XTMP("PSS102",PSSIEN)) Q:PSSIEN="" D
- .S PSSDRUG=$P($G(^PS(50.7,PSSIEN,0)),"^")
- .S PSSDRUGT="" F S PSSDRUGT=$O(^XTMP("PSS102",PSSIEN,PSSDRUGT)) Q:PSSDRUGT="" D
- ..S ^TMP($J,"PSS102",PSSLN)=$E(PSSDRUG_PSSSPCE,1,25)_" "_$E(PSSDRUGT_PSSSPCE,1,25)
- ..S PSSLN=PSSLN+1
- QUEUE ;Send report to user
- S XMSUB="PHARMACY DATA MANAGEMENT",XMTEXT="^TMP("_$J_","_"""PSS102"""_",",XMDUZ="PATCH PSS*1.0*102",XMY(PSSDUZ)=""
- D SENDMSG^XMXAPI(PSSDUZ,XMSUB,"^TMP("_$J_","_"""PSS102"""_")",PSSDUZ)
- K ^TMP($J)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSS102RP 1753 printed Feb 18, 2025@23:55:07 Page 2
- PSS102RP ;OIFO BAY PINES/VGF - TEMP RTN TO UPDATE PLACE OF VISIT IN FILE 1020.2;3/30/04
- +1 ;;1.0;PHARMACY DATA MANAGEMENT;**102**;9/30/97
- +2 NEW PSSIEN,PSSDRG,PSSDRUGT,PSSSPCE,PSSDUZ,PSSLN,PSSDRUG
- +3 NEW XMDUZ,XMSUB,XMTEXT,XMY
- +4 SET PSSDUZ=DUZ
- +5 KILL ^TMP($JOB,"PSS102"),^XTMP("PSS102")
- +6 SET PSSIEN=""
- FOR
- SET PSSIEN=$ORDER(^PS(50.7,PSSIEN))
- if PSSIEN=""
- QUIT
- Begin DoDot:1
- +7 SET PSSDRG=""
- FOR
- SET PSSDRG=$ORDER(^PS(50.7,PSSIEN,1,"B",PSSDRG))
- if PSSDRG=""
- QUIT
- Begin DoDot:2
- +8 SET PSSDRUGT=$GET(^PS(51.7,PSSDRG,0))
- +9 IF $DATA(^PS(50.7,PSSIEN,2,"B",PSSDRUGT))
- QUIT
- +10 SET ^XTMP("PSS102",PSSIEN,PSSDRUGT)=""
- End DoDot:2
- End DoDot:1
- +11 IF $ORDER(^XTMP("PSS102",""))=""
- SET ^XTMP("PSS102","NO DRUGS TO LIST","NO DRUGS TO LIST")=""
- +12 SET ^TMP($JOB,"PSS102")=""
- +13 SET ^TMP($JOB,"PSS102",0)=" "
- +14 SET ^TMP($JOB,"PSS102",1)=" "
- +15 SET ^TMP($JOB,"PSS102",2)="DRUG TEXT REPORT"
- +16 SET ^TMP($JOB,"PSS102",3)=" "
- +17 SET ^TMP($JOB,"PSS102",4)="This report will list the Drug Text entries in the Pharmacy"
- +18 SET ^TMP($JOB,"PSS102",5)="Orderable Item file (#50.7) which are not also set up as"
- +19 SET ^TMP($JOB,"PSS102",6)="Synonyms"
- +20 SET ^TMP($JOB,"PSS102",7)=" "
- +21 SET ^TMP($JOB,"PSS102",8)="DRUG NAME DRUG TEXT ENTRY"
- +22 SET ^TMP($JOB,"PSS102",9)="--------- ---------------"
- +23 SET ^TMP($JOB,"PSS102",10)=" "
- +24 SET PSSLN=11
- SET $PIECE(PSSSPCE," ",25)=""
- +25 SET PSSIEN=""
- FOR
- SET PSSIEN=$ORDER(^XTMP("PSS102",PSSIEN))
- if PSSIEN=""
- QUIT
- Begin DoDot:1
- +26 SET PSSDRUG=$PIECE($GET(^PS(50.7,PSSIEN,0)),"^")
- +27 SET PSSDRUGT=""
- FOR
- SET PSSDRUGT=$ORDER(^XTMP("PSS102",PSSIEN,PSSDRUGT))
- if PSSDRUGT=""
- QUIT
- Begin DoDot:2
- +28 SET ^TMP($JOB,"PSS102",PSSLN)=$EXTRACT(PSSDRUG_PSSSPCE,1,25)_" "_$EXTRACT(PSSDRUGT_PSSSPCE,1,25)
- +29 SET PSSLN=PSSLN+1
- End DoDot:2
- End DoDot:1
- QUEUE ;Send report to user
- +1 SET XMSUB="PHARMACY DATA MANAGEMENT"
- SET XMTEXT="^TMP("_$JOB_","_"""PSS102"""_","
- SET XMDUZ="PATCH PSS*1.0*102"
- SET XMY(PSSDUZ)=""
- +2 DO SENDMSG^XMXAPI(PSSDUZ,XMSUB,"^TMP("_$JOB_","_"""PSS102"""_")",PSSDUZ)
- +3 KILL ^TMP($JOB)
- +4 QUIT
