Changeset 636 for FOIAVistA/tag/r/DRUG_ACCOUNTABILITY-PSA/PSAVER7.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• DRUG_ACCOUNTABILITY-PSA/PSAVER7.m (modified) (4 diffs)

FOIAVistA/tag/r/DRUG_ACCOUNTABILITY-PSA/PSAVER7.m

@@ -1 +1 @@
 PSAVER7 ;BIR/JMB-Verify Invoices - CONT'D ;7/23/97
- ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**12,21,42,56,64,66**; 10/24/97;Build 2
+ ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**12,21,42,56,64**; 10/24/97;Build 4
  ;Background Job
  ;This routine increments pharmacy location and master vault balances
@@ -43 +43 @@
  S PSANPDU=$J(($G(PSAPOU)/$G(PSADUOU)),0,3) ;Price of Order Unit divide by Disp. Units per Order Unit
  ;PSA*3*42 |>  (let changes happen and file, put changes into mail message)
- S DIE="^PSDRUG(",(DA,OLDDA)=PSADRG,DR="12////^S X=PSAOU;15////^S X=PSADUOU;Q;13////^S X=PSAPOU" ;*42;*56
+ S DIE="^PSDRUG(",DA=PSADRG,DR="12////^S X=PSAOU;15////^S X=PSADUOU;Q;13////^S X=PSAPOU" ;*42;*56
  F  L +^PSDRUG(DA,0):$S($G(DILOCKTM)>0:DILOCKTM,1:3) I  Q
  D ^DIE K DIE,DA,DR
@@ -64 +64 @@
  .F  L +^PSDRUG(DA,0):$S($G(DILOCKTM)>0:DILOCKTM,1:3) I  Q
  .D ^DIE L -^PSDRUG(DA,0) K DIE,DA,DR
-SYNONYM ;Adds/edits the SYNONYM multiple in DRUG file  >>*66 RJS
- G:PSANDC="" END
- S DA(1)=PSADRG  ;;  << *66 RJS
+SYNONYM ;Adds/edits the SYNONYM multiple in DRUG file
+ Q:PSANDC=""  K DA,DR S DA(1)=PSADRG
  ;
  S PSANPDU=$J(($G(PSAPOU)/$G(PSADUOU)),0,3) ;Price of Order Unit divide by Disp. Units per Order Unit
@@ -92 +91 @@
  D ^DIE L -^PSDRUG(PSADRG,0)
  K DIE,DR,X1,X2,DATA
-END ; FINAL CLEANUP  << *66 RJS
- L -^PSDRUG(OLDDA,0) K OLDDA  ;; >> *66 RJS
  Q