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

PXVNDC.m

Go to the documentation of this file.
  1. PXVNDC ;BIR/ADM - UTILITIES RELATED TO NDC ;03/17/2016
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**215**;Aug 12, 1996;Build 10
  1. ;
  1. Q
  1. NDC(PXVZ) ; called from input transform and executable help on field #.18 in file #9999999.41
  1. N PXNDC,PXVIN,PXVDC,PXVX,PXVLST,PXVOUT
  1. S (PXNDC,PXVOUT)=0,PXVIN="",PXVLST="PXVLST"
  1. S PXVX=$S($G(DIY):DIY,1:PXVZ)
  1. S:$E(PXVZ)="`" PXVX=$E(PXVZ,2,99)
  1. I +$G(PXVX) D K:$D(PXVLST) ^TMP($J,PXVLST) I PXVOUT Q PXNDC
  1. .D ALL^PSN5067(PXVX,,DT,PXVLST) I $P($G(^TMP($J,PXVLST,0)),"^")=-1 S PXVOUT=1 Q
  1. .S PXVIN=$P($G(^TMP($J,PXVLST,PXVX,7)),"^")
  1. I PXVIN=""!(PXVIN>DT)&($P($$DRGCLS^PSNAPIS(PXVX),"^",2)="IM000") S PXNDC=1
  1. Q PXNDC
  1. ;
  1. NDCOUT(PXVN) ; output transform on NDC CODE (VA) field (#.18) in file #9999999.41
  1. N PXVARAY,PXVOUT,PXV7
  1. I PXVN="" S PXVOUT="" Q PXVOUT
  1. D CIRN^PSNAPIS(PXVN,.PXVARAY)
  1. S PXV7=$G(PXVARAY(7))
  1. S PXVOUT=$P(PXV7,"^")_" "_$P(PXV7,"^",3)
  1. Q PXVOUT
  1. ;
  1. P01 ; input transform logic for field #.18 in file 9999999.41
  1. N SCR
  1. S SCR="I $$NDC^PXVNDC(X)"
  1. D INTRAN^PSNAPIS(SCR)
  1. Q
  1. QUEST ; "?" or "??" help for field #.18 in file 9999999.41
  1. N SCR
  1. S SCR="I $$NDC^PXVNDC(X)"
  1. D QLIST^PSNAPIS(SCR)
  1. Q