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

PSBALL.m

Go to the documentation of this file.
  1. PSBALL ;BIRMINGHAM/VRN-BCMA RPC BROKER CALLS ;Mar 2004
  1. ;;3.0;BAR CODE MED ADMIN;;Mar 2004
  1. ;
  1. ; Reference/IA
  1. ; EN1^GMRADPT/10099
  1. ;
  1. ALLR(RESULTS,DFN) ; Return array of patient allergies/adverse reactions
  1. ;
  1. ;RPC: PSB ALLERGY
  1. ;
  1. D SORT
  1. Q
  1. ;
  1. SORT ;*** Set up the allergies and adv. reactions arrays.
  1. S PSBCNT=1,(PSBALC,PSBARC)=0
  1. S GMRA="0^0^111" D EN1^GMRADPT
  1. I GMRAL="" S RESULTS(0)=1,RESULTS(1)="ALL"_U_"No Allergy Assessment" Q
  1. I GMRAL=0 S RESULTS(0)=1,RESULTS(1)="ALL"_U_"No Known Allergies" Q
  1. F X=0:0 S X=$O(GMRAL(X)) Q:'X S PSBTYP=$P(GMRAL(X),U,5),PSBNM=$P(GMRAL(X),U,2) D
  1. .S:PSBTYP=0 PSBALC=PSBALC+1,PSBALG(PSBNM)=""
  1. .S:PSBTYP>0 PSBARC=PSBARC+1,PSBADR(PSBNM)=""
  1. S (X,Y)="" F S X=$O(PSBALG(X)) Q:X="" S Y="ALL"_U_X,RESULTS(PSBCNT)=Y,PSBCNT=PSBCNT+1
  1. S (X,Y)="" F S X=$O(PSBADR(X)) Q:X="" S Y="ADR"_U_X,RESULTS(PSBCNT)=Y,PSBCNT=PSBCNT+1
  1. S RESULTS(0)=PSBCNT-1
  1. K GMRA,GMRAL,PSBADR,PSBALC,PSBALG,PSBARC,PSBCNT,PSBNM,PSBTYP
  1. Q
  1. ;