Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BQIPLFL1

BQIPLFL1.m

Go to the documentation of this file. 
  1. BQIPLFL1 ;VNGT/HS/ALA - Continuation of BQIPLFL ; 23 Mar 2011  3:18 PM
  1.  ;;2.2;ICARE MANAGEMENT SYSTEM;;Jul 28, 2011;Build 37
  1.  ;
  1. MVL(BOWNR,BPLIEN,BDA,BVAL,BTYP) ;EP - Add a multiple value API
  1.  ;Input
  1.  ;  BOWNR  - Owner IEN
  1.  ;  BPLIEN - Panel IEN
  1.  ;  BDA    - Parameter IEN
  1.  ;  BVAL   - Value of Parameter
  1.  ;  BTYP   - Value type of parameter
  1.  NEW DA,IENS,DIC,DLAYGO
  1.  S DA(3)=BOWNR,DA(2)=BPLIEN,DA(1)=BDA,X=BVAL
  1.  S DLAYGO=90505.1151,DIC(0)="L",DIC("P")=DLAYGO
  1.  S DIC="^BQICARE("_DA(3)_",1,"_DA(2)_",15,"_DA(1)_",1,"
  1.  K DO,DD D FILE^DICN
  1.  S (DA,MDA)=+Y
  1.  I DA=-1 S RESULT=-1,QFL=1 Q
  1.  S IENS=$$IENS^DILF(.DA)
  1.  I BTYP="D" S BVAL=$$DATE^BQIUL1(BVAL)
  1.  I BTYP="T" S BQIUPD(90505.1151,IENS,.02)=BVAL
  1.  I BTYP'="T" S BQIUPD(90505.1151,IENS,.01)=BVAL
  1.  D FILE^DIE("","BQIUPD","ERROR")
  1.  Q MDA
  1.  ;
  1. ANF(OWNR,PLIEN,NAME) ; EP - Add new filter parameter
  1.  NEW DA,IENS,DIC,DLAYGO
  1.  S DA(2)=OWNR,DA(1)=PLIEN,X=NAME
  1.  S DLAYGO=90505.115,DIC(0)="L",DIC("P")=DLAYGO
  1.  S DIC="^BQICARE("_DA(2)_",1,"_DA(1)_",15,"
  1.  I '$D(^BQICARE(DA(2),1,DA(1),15,0)) S ^BQICARE(DA(2),1,DA(1),15,0)="^90505.115^^"
  1.  D ^DIC
  1.  I Y=-1 K DO,DD D FILE^DICN
  1.  Q +Y
  1.  ;