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

AUPNPAT.m

Go to the documentation of this file. 
  1. AUPNPAT ; IHS/CMI/LAB - POST SELECTION SETS FOR PATIENT LOOKUP ; [ 09/13/06  2:13 PM ]
  1.  ;;99.1;IHS DICTIONARIES (PATIENT);**8,9,10,17**;JUN 13,2003;Build 9
  1.  ;
  1.  ; This routine sets standard patient variables
  1.  ;IHS/SET/GTH AUPN*99.1*8 10/04/2002 Removed all refs to AUPN*93.2*3.
  1. START ;
  1.  S:$D(X) AUPNPATX=X
  1.  S AUPNPAT=+Y
  1.  S AUPNSEX=$P(^DPT(AUPNPAT,0),U,2),AUPNDOB=$P(^(0),U,3),AUPNDOD="" S:$D(^(.35)) AUPNDOD=$P(^(.35),U,1)
  1.  S X2=AUPNDOB,X1=$S('AUPNDOD:DT,AUPNDOD:AUPNDOD,1:DT)
  1.  D ^%DTC
  1.  S AUPNDAYS=X
  1.  ;S X="BEHOPTCX" X ^%ZOSF("TEST") I $T D SETCTX^BEHOPTCX(+AUPNPAT)
  1.  K X,X1,X2
  1.  S:$D(AUPNPATX) X=AUPNPATX
  1.  K %T,%Y,AUPNPATX
  1.  S DFN=AUPNPAT
  1.  S SSN=$$SSN(AUPNPAT)
  1.  S AGE=$$AGE(AUPNPAT)
  1.  S DOB=$$DOB(AUPNPAT)
  1.  S SEX=$$SEX(AUPNPAT)
  1.  Q
  1.  ;
  1. KILL ;PEP - KILL VARIABLES SET BY THIS ROUTINE
  1.  K AUPNPAT,AUPNSEX,AUPNDOB,AUPNDOD,AUPNDAYS
  1.  K AGE,DFN,DOB,SEX,SSN
  1.  Q
  1.  ;
  1.  ;  NOTE TO PROGRAMMERS:
  1.  ;   All parameters are required, except the Format parameter ("F").
  1.  ;   The default for the Format parameter is the internal format of
  1.  ;   the returned value.
  1.  ;
  1. AGE(DFN,D,F) ;PEP - Given DFN, return Age.
  1.  ;return age on date d in format f (defaults to DT and age in years)
  1.  Q $$AGE^AUPNPAT3(DFN,$G(D),$G(F))
  1.  ;
  1. BEN(DFN,F) ;PEP - returns classifications/beneficiary in format F.
  1.  Q $$BEN^AUPNPAT3(DFN,$G(F))
  1.  ;
  1. BENYN(DFN) ;PEP - Return BEN/Non-BEN Status.
  1.  Q $$BEN^AUPNPAT1(DFN)
  1.  ;
  1. CDEATH(DFN,F) ;PEP - returns Cause of Death in F format
  1.  Q $$CDEATH^AUPNPAT3(DFN,$G(F))
  1.  ;
  1. COMMRES(DFN,F) ;PEP - Given DFN, return comm of res in F format
  1.  Q $$COMMRES^AUPNPAT3(DFN,$G(F))
  1.  ;
  1. DEC(PID) ;PEP - RETURN DECRYPTED PATIENT IDENTIFIER
  1.  G DEC^AUPNPAT4
  1.  ;----------
  1. ENC(DFN) ;PEP
  1.  G ENC^AUPNPAT4
  1.  ;----------
  1. DOB(DFN,F) ;PEP - Given DFN, return Date of Birth according to F.
  1.  Q $$DOB^AUPNPAT3(DFN,$G(F))
  1.  ;
  1. DOD(DFN,F) ;PEP - Given DFN, return Date of Death in FM format.
  1.  Q $$DOD^AUPNPAT3(DFN,$G(F))
  1.  ;
  1. ELIGSTAT(DFN,F) ;PEP - returns eligibility status in F format
  1.  Q $$ELIGSTAT^AUPNPAT3(DFN,$G(F))
  1.  ;
  1. HRN(DFN,L,F) ;PEP
  1.  ;f patch 4 05/08/96
  1.  Q $$HRN^AUPNPAT3(DFN,L,$G(F))
  1.  ;
  1. MCD(P,D) ;PEP - Is patient P medicaid eligible on date D?
  1.  Q $$MCD^AUPNPAT2(P,D)
  1.  ;
  1. MCDPN(P,D,F) ;PEP - return medicaid plan name for patient P on date D in form F.
  1.  Q $$MCDPN^AUPNPAT2(P,D,$G(F))
  1.  ;
  1. MCR(P,D) ;PEP - Is patient P medicare eligible on date D?
  1.  Q $$MCR^AUPNPAT2(P,D)
  1.  ;
  1. PI(P,D) ;PEP - Is patient P private insurance eligible on date D?
  1.  Q $$PI^AUPNPAT2(P,D)
  1.  ;
  1. PIN(P,D,F) ;PEP - return private insurer name for patient P on date D in form F.
  1.  Q $$PIN^AUPNPAT2(P,D,$G(F))
  1.  ;
  1. SEX(DFN) ;PEP - Given DFN, return Sex.
  1.  Q $$SEX^AUPNPAT3(DFN)
  1.  ;
  1. SSN(DFN) ;PEP - Given DFN, return SSN.
  1.  Q $$SSN^AUPNPAT3(DFN)
  1.  ;
  1. TRIBE(DFN,F) ;PEP - Given DFN, return Tribe in F format
  1.  Q $$TRIBE^AUPNPAT3(DFN,$G(F))
  1.  ;
  1.  ;Begin New Code;IHS/SET/GTH AUPN*99.1*8 10/04/2002
  1. RR(P,D) ;PEP -  Is patient P railroad eligible on date D?
  1.  Q $$RRE^AUPNPAT2(P,D)
  1.  ;End New Code;IHS/SET/GTH AUPN*99.1*8 10/04/2002