source: WorldVistAEHR/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSPOST6.m@ 1006

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1PSSPOST6 ;BHAM ISC/MR - Master File Update for Non-VA Med Flag ; 03/19/02
2 ;;7.0;OUTPATIENT PHARMACY;**68**;DEC 1997
3 ;
4 N OI,APPUSE,DGIEN
5 ;
6 ; - Initializing NON-VA MED field (#8) on File #50.7
7 S OI="" F S OI=$O(^PS(50.7,OI)) Q:'OI S $P(^PS(50.7,OI,0),"^",10)=""
8 ;
9 ; - Updating APPL PCKGS' USE (File #50) and NON-VA MED (File #50.7)
10 S APPUSE=""
11 F S APPUSE=$O(^PSDRUG("IU",APPUSE)) Q:APPUSE="" D
12 . I APPUSE'["O" Q ; Not marked for Outpatient
13 . I APPUSE["X" Q ; Already marked for Non-VA
14 . S DGIEN=""
15 . F S DGIEN=$O(^PSDRUG("IU",APPUSE,DGIEN)) Q:DGIEN="" D
16 . . I $G(^PSDRUG(DGIEN,"I")),($P(^("I"),"^")<DT) Q ; Drug is Inactive
17 . . ;
18 . . S OI=$P($G(^PSDRUG(DGIEN,2)),"^") ; Get Orderable Item
19 . . I OI S $P(^PS(50.7,OI,0),"^",10)=1 ; Mark as Non-VA Med
20 . . D XREFS(DGIEN,APPUSE) ; Update x-references
21 . . W !,"Updating Drug ",DGIEN
22 ;
23END Q
24 ;
25XREFS(DGIEN,APPUSE) ; - Updating existing x-references for the Application
26 ; Use field (#63) - DRUG File
27 N DGNAME,NEWAPP
28 S DGNAME=$P(^PSDRUG(DGIEN,0),"^") ; Retrive the Drug Name
29 S NEWAPP=APPUSE_"X" ; Build the New App Use
30 S $P(^PSDRUG(DGIEN,2),"^",3)=NEWAPP ; Update the DRUG file
31 S ^PSDRUG("AIUX",DGNAME,DGIEN)="" ; Set "AIU" x-reference
32 K:APPUSE]"" ^PSDRUG("IU",APPUSE,DGIEN) ; Kill "IU" x-reference
33 S ^PSDRUG("IU",NEWAPP,DGIEN)="" ; Set "IU" x-reference
34 Q
Note: See TracBrowser for help on using the repository browser.