source: WorldVistAEHR/trunk/r/NATIONAL_DRUG_FILE-PSN/PSN4P69P.m@ 975

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1PSN4P69P ;BIR/DMA-post install routine to clean up data ;31 Aug 99 / 11:32 AM
2 ;;4.0; NATIONAL DRUG FILE;**69**; 30 Oct 98
3 ;
4 ; Reference to ^PSDRUG supported by DBIA #2192
5 ;
6 N DA,DIE,DR,IND,LINE,NA,PR,X,XMDUZ,XMSUB,XMTEXT,XMY,XMZ
7 ;NOW UPDATE LOCAL DRUG FILE
8 K ^TMP($J),^TMP("PSN",$J)
9 S DA=0 F S DA=$O(^PSDRUG(DA)) Q:'DA S PR=+$P($G(^(DA,"ND")),"^",3) I PR D
10 .I $P($G(^PSDRUG(DA,3)),"^"),'$P($G(^PSNDF(50.68,PR,1)),"^",3) S DIE=50,DR="213////0;" D ^DIE K DIE,DR S IND=$O(^PSDRUG(DA,4," "),-1),$P(^(IND,0),"^",6)="NDF Update",^TMP($J,$P(^PSDRUG(DA,0),"^"))=""
11 ;
12 K ^TMP("PSN",$J) F LINE=1:1 S X=$P($T(TEXT+LINE),";",3,300) Q:X="" S ^TMP("PSN",$J,LINE,0)=X
13 S NA="" F LINE=LINE:1 S NA=$O(^TMP($J,NA)) Q:NA="" S ^TMP("PSN",$J,LINE,0)=NA
14 I '$D(^TMP($J)) S ^TMP("PSN",$J,LINE,0)="No items were found."
15 S XMDUZ="NDF MANAGER",XMSUB="DRUGS UNMARKED FOR CMOP",XMTEXT="^TMP(""PSN"",$J,"
16 K XMY S XMY("G.NDF DATA@"_^XMB("NETNAME"))=""
17 S DA=0 F S DA=$O(^XUSEC("PSNMGR",DA)) Q:'DA S XMY(DA)=""
18 I $D(DUZ) S XMY(DUZ)=""
19 N DIFROM D ^XMD
20 K DA,DIE,DR,IND,LINE,NA,PR,X,XMDUZ,XMSUB,XMTEXT,XMY,XMZ,^TMP($J),^TMP("PSN",$J)
21 Q
22 ;
23TEXT ;;
24 ;;The following items in your DRUG file (#50) have been unmarked for
25 ;;CMOP because they are matched to entries in the VA PRODUCT file (#50.68)
26 ;;which had previously been unmarked for CMOP.
27 ;;
28 ;;
Note: See TracBrowser for help on using the repository browser.