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

PXAPIIB.m

Go to the documentation of this file.
  1. PXAPIIB ;ISA/AAS - SUPPORTED REFERENCES FOR AICS ; 1/5/07 4:59pm ; Compiled January 18, 2007 10:03:16
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**183**;Aug 12, 1996;Build 3
  1. ;
  1. ; -- Output transforms, used for outputting entry during formatting
  1. ; and after scanning before sending to PCE.
  1. ; -- called by the package interface file and IBDFBK3
  1. ;
  1. DSPLYED(IEN) ; -- function, returns .01 field of entry ien
  1. ; -- output transform for Education Topics (file #9999999.09)
  1. ; -- example of use: S Y=$$DSPLYED^PXAPIIB(Y)
  1. Q $P($G(^AUTTEDT(+$G(IEN),0)),"^")
  1. ;
  1. DSPLYIM(IEN) ; -- function, returns .01 field of entry ien
  1. ; -- output transform for Immunizations (file #9999999.14)
  1. Q $P($G(^AUTTIMM(+$G(IEN),0)),"^")
  1. ;
  1. DSPLYEX(IEN) ; -- function, returns .01 field of entry ien
  1. ; -- output transform for EXAMS (file #9999999.15)
  1. Q $P($G(^AUTTEXAM(+$G(IEN),0)),"^")
  1. ;
  1. DSPLYTR(IEN) ; -- function, returns .01 field of entry ien
  1. ; -- output transform for TREATMENTS (file #9999999.17)
  1. Q $P($G(^AUTTTRT(+$G(IEN),0)),"^")
  1. ;
  1. DSPLYSK(IEN) ; -- function, returns .01 field of entry ien
  1. ; -- output transform for Education Topics (file #9999999.28)
  1. Q $P($G(^AUTTSK(+$G(IEN),0)),"^")
  1. ;
  1. DSPLYHF(IEN) ; -- function, returns .01 field of entry ien
  1. ; -- output transform for Health Factors (file #9999999.64)
  1. Q $P($G(^AUTTHF(+$G(IEN),0)),"^")
  1. ;
  1. ;
  1. ; -- Validation routines, used by the utility to validate active
  1. ; entries on a form, called from package interface file.
  1. ;
  1. TESTEDT ; -- does X point to a valid Education Topic? Kills X if not.
  1. ; input X := pointer to 9999999.09
  1. ; output := if valid x=x,y=""
  1. ; := if entry not exist x is killed, y=""
  1. ; := if entry exist but inactive x is killed, y=.01 field
  1. ;
  1. I '$G(X) K X S Y="" Q
  1. I '$D(^AUTTEDT(X,0)) K X S Y="" Q
  1. I $P($G(^AUTTEDT(X,0)),"^",3) S Y=$P(^AUTTEDT(X,0),"^") K X
  1. Q
  1. ;
  1. TESTIMM ; -- does X point to a valid Immunization? Kills X if not.
  1. ; input X := pointer to 9999999.14
  1. ; output := if valid x=x,y=""
  1. ; := if entry not exist x is killed, y=""
  1. ; := if entry exist but inactive x is killed, y=.01 field
  1. ;
  1. I '$G(X) K X S Y="" Q
  1. I '$D(^AUTTIMM(X,0)) K X S Y="" Q
  1. I $P($G(^AUTTIMM(X,0)),"^",7) S Y=$P(^AUTTIMM(X,0),"^") K X
  1. Q
  1. ;
  1. TESTEXM ; -- does X point to a valid EXAM? Kills X if not.
  1. ; input X := pointer to 9999999.15
  1. ; output := if valid x=x,y=""
  1. ; := if entry not exist x is killed, y=""
  1. ; := if entry exist but inactive x is killed, y=.01 field
  1. ;
  1. I '$G(X) K X S Y="" Q
  1. I '$D(^AUTTEXAM(X,0)) K X S Y="" Q
  1. I $P($G(^AUTTEXAM(X,0)),"^",4) S Y=$P(^AUTTEXAM(X,0),"^") K X
  1. Q
  1. ;
  1. TESTTRT ; -- does X point to a valid Treatment? Kills X if not.
  1. ; input X := pointer to 9999999.17
  1. ; output := if valid x=x,y=""
  1. ; := if entry not exist x is killed, y=""
  1. ; := if entry exist but inactive x is killed, y=.01 field
  1. ;
  1. I '$G(X) K X S Y="" Q
  1. I '$D(^AUTTTRT(X,0)) K X S Y="" Q
  1. I $P($G(^AUTTTRT(X,0)),"^",4) S Y=$P(^AUTTTRT(X,0),"^") K X
  1. Q
  1. ;
  1. TESTSK ; -- does X point to a valid Skin Test? Kills X if not.
  1. ; input X := pointer to 9999999.28
  1. ; output := if valid x=x,y=""
  1. ; := if entry not exist x is killed, y=""
  1. ; := if entry exist but inactive x is killed, y=.01 field
  1. ;
  1. I '$G(X) K X S Y="" Q
  1. I '$D(^AUTTSK(X,0)) K X S Y="" Q
  1. I $P($G(^AUTTSK(X,0)),"^",3) S Y=$P(^AUTTSK(X,0),"^") K X
  1. Q
  1. ;
  1. TESTHF ; -- does X point to a valid Health Factor? Kills X if not.
  1. ; input X := pointer to 9999999.64
  1. ; output := if valid x=x,y=""
  1. ; := if entry not exist x is killed, y=""
  1. ; := if entry exist but inactive x is killed, y=.01 field
  1. ;
  1. I '$G(X) K X S Y="" Q
  1. I '$D(^AUTTHF(X,0)) K X S Y="" Q
  1. I $P($G(^AUTTHF(X,0)),"^",11) S Y=$P(^AUTTHF(X,0),"^") K X
  1. Q
  1. ;
  1. POV(VISIT,ARRAY) ;
  1. ; -- return purpose of visit for a visit pointer
  1. ; Input Visit := visit pointer
  1. ; Array := call by reference the array to put the POV into
  1. ; Output Array
  1. ;
  1. N I K ARRAY
  1. I $G(VISIT)<0 G POVQ
  1. S I=0 F S I=$O(^AUPNVPOV("AD",VISIT,I)) Q:'I S ARRAY(I)=^AUPNVPOV(I,0)
  1. POVQ Q