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

HMPDJ00.m

Go to the documentation of this file.
  1. HMPDJ00 ;SLC/MKB,ASMR/RRB,MBS - Patient demographics;Aug 29, 2016 20:06:27
  1. ;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**2,3**;Sep 01, 2011;Build 15
  1. ;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ; External References DBIA#
  1. ; ------------------- -----
  1. ; ^AUPNVSIT 2028
  1. ; ^DPT 10035
  1. ; DGACT 2248
  1. ; DGCV 4156
  1. ; DGMSTAPI 2716
  1. ; DGNTAPI 3457
  1. ; DGPFAPI 3860
  1. ; DGRPDB 4807
  1. ; DIQ 2056
  1. ; IBBAPI 4419
  1. ; MPIF001 2701
  1. ; SDUTL3 1252
  1. ; VADPT 10061
  1. ; VAFCTFU1 2990
  1. ; VASITE 10112
  1. ; XUAF4 2171
  1. ; SECURITY/SENSITIVE RECORD ACC 3027
  1. ;
  1. ; All tags expect DFN
  1. ; [HMPID, HMPSTART, HMPSTOP, HMPMAX, HMPTEXT not currently used here]
  1. Q
  1. ;
  1. DPT1 ; -- Demographics
  1. N PAT D DPT1OD(.PAT)
  1. I $D(PAT)>9 D ADD^HMPDJ("PAT")
  1. Q
  1. ;
  1. DPT1OD(PAT) ; -- Demographics (data array only)
  1. N SYS S SYS=$$SITE^VASITE
  1. N $ES,$ET,ERRPAT,ERRMSG
  1. S $ET="D ERRHDLR^HMPDERRH",ERRPAT=DFN
  1. S ERRMSG="A problem occurred building the patient "_DFN_" demographic extract."
  1. D DEM,SVC,PRF,ATC,SUPP,ALIAS,FAC,PC,INPT,INS
  1. D KVAR^VADPT
  1. S PAT("stampTime")=$S($G(HMPSTMP)]"":HMPSTMP,1:$$EN^HMPSTMP("NOW")) ;US6734
  1. S PAT("lastUpdateTime")=PAT("stampTime")
  1. ;US6734 - pre-compile metastamp
  1. I $G(HMPMETA) D ADD^HMPMETA("patient",PAT("uid"),PAT("stampTime")) Q:HMPMETA=1 ;US6734,US11019
  1. Q
  1. ;
  1. LKUP ; patient lookup data
  1. ; expects HMPSYS,DFN
  1. N X,X0
  1. S X0=$G(^DPT(DFN,0)),X=$P(X0,U) I X="" D LOGDPT^HMPLOG(DFN) Q ;DE4496, 19 August 2016, invalid DFN passed in DE4983
  1. S PAT("fullName")=X
  1. S PAT("familyName")=$P(X,",")
  1. S PAT("givenNames")=$P(X,",",2,99)
  1. S X=$P(X0,U,2)
  1. S PAT("genderCode")="urn:va:pat-gender:"_X
  1. S PAT("genderName")=$$NAME(X,"gender")
  1. S PAT("localId")=DFN
  1. S PAT("pid")=HMPSYS_";"_DFN
  1. S PAT("uid")=$$SETUID^HMPUTILS("pt-select",DFN,DFN)
  1. S X=$$GETICN^MPIF001(DFN)
  1. S:X>0 PAT("icn")=X
  1. S PAT("ssn")=$P(X0,U,9)
  1. S PAT("birthDate")=$$JSONDT^HMPUTILS($P(X0,U,3))
  1. S X=$P($G(^DPT(DFN,.35)),U)
  1. S:X PAT("deceased")=$$JSONDT^HMPUTILS(X)
  1. D PTSEC^DGSEC4(.LST,DFN) ; DBIA 3027 DE2818 - PB 30 Oct 2015 changed to use a global reference covered by an active ICR
  1. S PAT("sensitive")=$$BOOL(LST(1))
  1. ;US6734 - pre-compile metastamp for OPD
  1. I $G(HMPMETA),$P($G(HMPFADOM),"#")="pt-select" D ADD^HMPMETA("pt-select",PAT("uid"),$G(HMPSTMP)) Q:HMPMETA=1 ;US6734,US11019
  1. I $G(HMPSTMP)]"" S PAT("stampTime")=HMPSTMP ; US6734 - set stamptime as time of subscription
  1. E S PAT("stampTime")=$$EN^HMPSTMP("NOW") ; DE2616 - must add stampTime to receive OPD freshness update from ADHOC^HMPUTIL1
  1. I $D(PAT)>9 D ADD^HMPDJ("PAT")
  1. Q
  1. ;
  1. DEM ;-demographic data
  1. N VADM,VA,VAERR,X,I
  1. S PAT("pid")=$$PID^HMPDJFS(DFN)
  1. S X=$$GETICN^MPIF001(DFN) S:X>1 PAT("icn")=X
  1. D DEM^VADPT S X=VADM(1),PAT("fullName")=X
  1. S PAT("familyName")=$P(X,","),PAT("givenNames")=$P(X,",",2,99)
  1. S PAT("ssn")=$P(VADM(2),U),PAT("localId")=DFN
  1. S PAT("uid")=$$SETUID^HMPUTILS("patient",DFN,DFN)
  1. S:$D(VA("BID")) PAT("briefId")=$E(X)_VA("BID")
  1. S X=+$P($P(VADM(3),U),"."),PAT("birthDate")=$$JSONDT^HMPUTILS(X)
  1. S X=$P(VADM(5),U) S:X="" X="UNK"
  1. S PAT("genderCode")="urn:va:pat-gender:"_X,PAT("genderName")=$$NAME(X,"gender")
  1. S X=+$P($P(VADM(6),U),".") S:X PAT("deceased")=$$JSONDT^HMPUTILS(X)
  1. D PTSEC^DGSEC4(.LST,DFN) ; DBIA 3027 DE2818 - PB 30 Oct 2015 changed to use a global reference covered by an active ICR
  1. S PAT("sensitive")=$$BOOL(LST(1))
  1. S X=+VADM(9) S:X PAT("religionCode")="urn:va:pat-religion:"_X,PAT("religionName")=$$NAME(X,"religion")
  1. S X=$P(VADM(10),U,2) I $L(X) D
  1. . S X=$E(X),X=$S(X="S":"L",X="N":"S",1:X)
  1. . S PAT("maritalStatusCode")="urn:va:pat-maritalStatus:"_X
  1. . S PAT("maritalStatusName")=$$NAME(X,"maritalStatus")
  1. I VADM(11) S I=0 F S I=$O(VADM(11,I)) Q:I<1 D
  1. . S X=+VADM(11,I)
  1. . S PAT("ethnicity",X,"code")=$$GET1^DIQ(2.06,X_","_DFN_",",".01:3")
  1. I VADM(12) S I=0 F S I=$O(VADM(12,I)) Q:I<1 D
  1. . S X=+VADM(12,I)
  1. . S PAT("race",X,"code")=$$GET1^DIQ(2.02,X_","_DFN_",",".01:3")
  1. Q
  1. ;
  1. SVC ;-service data
  1. N VAEL,VASV,VAERR,X,Y,I,P,AO,IR,PGF,HNC,MST,CV,HMPSC
  1. D 7^VADPT
  1. S PAT("veteran")=$$BOOL(VAEL(4))
  1. S PAT("serviceConnected")=$$BOOL(+VAEL(3)) I VAEL(3) D
  1. . S PAT("scPercent")=+$P(VAEL(3),U,2)
  1. . D GETS^DIQ(2,DFN_",",".3731*",,"HMPSC")
  1. . S I="" F S I=$O(HMPSC(2.05,I)) Q:I="" D
  1. .. S PAT("scCondition",+I,"name")=HMPSC(2.05,I,.01)
  1. .. S PAT("scCondition",+I,"scPercent")=HMPSC(2.05,I,.02)
  1. S X=+$G(^DPT(DFN,"LR")) S:X PAT("lrdfn")=X
  1. I VAEL(9)]"" S PAT("meanStatus")=$P(VAEL(9),U,2)
  1. ;
  1. ; exposures
  1. ;Agent Orange
  1. S EXPVAL=$S(VASV(2):"Yes",VASV(2)=0:"No",1:"Unknown"),PAT("exposure",1,"uid")="urn:va:agent-orange:"_$E(EXPVAL),PAT("exposure",1,"name")=EXPVAL
  1. ;Ionizing Radiation
  1. S EXPVAL=$S(VASV(3):"Yes",VASV(3)=0:"No",1:"Unknown"),PAT("exposure",2,"uid")="urn:va:ionizing-radiation:"_$E(EXPVAL),PAT("exposure",2,"name")=EXPVAL
  1. ;SW Asia/Persian Gulf
  1. ;DE3917 - CPRS does not use the OIF/OEF fields to determine PGF/SW Asia exposure, but, instead, per VADPT^GMPLX1
  1. ;(called by ORQQPL INIT PT), directly gets the data from the #.32201 (PERSIAN GULF SERVICE?) field in the PATIENT file.
  1. S EXPVAL=$$GET1^DIQ(2,DFN_",",".32201","E") S:EXPVAL="" EXPVAL="Unknown"
  1. S PAT("exposure",3,"uid")="urn:va:sw-asia:"_$E(EXPVAL),PAT("exposure",3,"name")=EXPVAL
  1. ;Head-Neck Cancer
  1. S X=$$GETCUR^DGNTAPI(DFN,"HNC"),X=+($G(HNC("STAT"))),X=$S(X=4:1,X=5:1,X=1:0,X=6:0,1:"")
  1. S EXPVAL=$S(X:"Yes",X=0:"No",1:"Unknown"),PAT("exposure",4,"uid")="urn:va:head-neck-cancer:"_$E(EXPVAL),PAT("exposure",4,"name")=EXPVAL
  1. ;Military Sexual Trauma
  1. S X=$P($$GETSTAT^DGMSTAPI(DFN),U,2),EXPVAL=$S(X="Y":"Yes",X="N":"No",1:"Unknown")
  1. S PAT("exposure",5,"uid")="urn:va:mst:"_$E(EXPVAL),PAT("exposure",5,"name")=EXPVAL
  1. ;Combat Vet
  1. S X=$$CVEDT^DGCV(DFN),X=$S(+X<0:"",+X=0:0,$P(X,U,3):1,1:0)
  1. S EXPVAL=$S(X:"Yes",X=0:"No",1:"Unknown"),PAT("exposure",6,"uid")="urn:va:combat-vet:"_$E(EXPVAL),PAT("exposure",6,"name")=EXPVAL
  1. ;Shipboard Hazard And Defense
  1. S EXPVAL=$S(VASV(14):"Yes",VASV(14)=0:"No",1:"Unknown"),PAT("exposure",7,"uid")="urn:va:shipboard-hazard:"_$E(EXPVAL),PAT("exposure",7,"name")=EXPVAL
  1. ;
  1. ; rated disabilities [DGRPDB]
  1. N HMPDIS,DIS,NM,DX
  1. D RDIS^DGRPDB(DFN,.HMPDIS)
  1. S I=0 F S I=$O(HMPDIS(I)) Q:I<1 D
  1. . S DIS=HMPDIS(I)
  1. . S NM=$$GET1^DIQ(31,+DIS_",",.01),DX=$$GET1^DIQ(31,+DIS_",",2)
  1. . S PAT("disability",+DX,"name")=NM
  1. . S PAT("disability",+DX,"disPercent")=$P(DIS,U,2)
  1. . S PAT("disability",+DX,"serviceConnected")=$$BOOL($P(DIS,U,3))
  1. Q
  1. ;
  1. PRF ;-patient record flags
  1. N HMPF,I,N,X
  1. S X=$$GETACT^DGPFAPI(DFN,"HMPF")
  1. S I=0 F S I=$O(HMPF(I)) Q:I<1 D
  1. . S PAT("patientRecordFlag",I,"assignmentStatus")="Active"
  1. . S PAT("patientRecordFlag",I,"assignTS")=$$JSONDT^HMPUTILS($P($G(HMPF(I,"ASSIGNDT")),U))
  1. . S PAT("patientRecordFlag",I,"approved")=$P($G(HMPF(I,"APPRVBY")),U,2)
  1. . S PAT("patientRecordFlag",I,"nextReviewDT")=$$JSONDT^HMPUTILS($P($G(HMPF(I,"REVIEWDT")),U))
  1. . S PAT("patientRecordFlag",I,"name")=$P($G(HMPF(I,"FLAG")),U,2)
  1. . S PAT("patientRecordFlag",I,"type")=$P($G(HMPF(I,"FLAGTYPE")),U,2)
  1. . S PAT("patientRecordFlag",I,"category")=$P($G(HMPF(I,"CATEGORY")),U,2)
  1. . S PAT("patientRecordFlag",I,"ownerSite")=$P($G(HMPF(I,"OWNER")),U,2)
  1. . S PAT("patientRecordFlag",I,"originatingSite")=$P($G(HMPF(I,"ORIGSITE")),U,2)
  1. . S N=1,X=$G(HMPF(I,"NARR",1,0))
  1. . F S N=$O(HMPF(I,"NARR",N)) Q:N<1 S X=X_$C(13,10)_$G(HMPF(I,"NARR",N,0))
  1. . S PAT("patientRecordFlag",I,"text")=X
  1. S X=$$CWAD^ORQPT2(DFN)
  1. I X]"" S PAT("cwadf")=X
  1. I $D(PAT("patientRecordFlag")) S PAT("cwadf")=$G(PAT("cwadf"))_"F"
  1. Q
  1. ;
  1. ATC ;-address & telecom
  1. N VAPA,CNT,X,I,P,NM
  1. ; VAPA("P")="" ;permanent address
  1. D ADD^VADPT S CNT=0 I $$VAPA(1,5) D
  1. . S CNT=CNT+1
  1. . D ADD(1,2,3,4,5,11,9,10)
  1. . S PAT("address",CNT,"use")=$S($L(VAPA(9)):"TMP",1:"H")
  1. I VAPA(12) D ;confidential address
  1. . S CNT=CNT+1
  1. . D ADD(13,14,15,16,17,18,20,21)
  1. . S PAT("address",CNT,"use")="CONF"
  1. . S I=0 F S I=$O(VAPA(22,I)) Q:I="" S X=VAPA(22,I) D
  1. .. S PAT("address",CNT,"category",I,"name")=$P(X,U,2)
  1. .. S PAT("address",CNT,"category",I,"status")=$$BOOL($P(X,U,3))
  1. ;
  1. ; X=home^cell^work phones
  1. S X=$$FORMAT(VAPA(8))_U_$$FORMAT($$GET1^DIQ(2,DFN_",",.134))_U_$$FORMAT($$GET1^DIQ(2,DFN_",",.132))
  1. S NM="H^MC^WP" F P=1:1:3 I $L($P(X,U,P)) D
  1. . S I=$P(NM,U,P),PAT("telecom",P,"use")=I
  1. . S PAT("telecom",P,"value")=$P(X,U,P)
  1. S X=$P($G(^DPT(DFN,.13)),U,3) S:X'="" PAT("email")=X
  1. I +$P($G(^DPT(DFN,.11)),U,16)>0 S PAT("badAddress")=$$GET1^DIQ(2,DFN_",",.121)
  1. Q
  1. ;
  1. ADD(LINE1,LINE2,LINE3,CITY,STATE,ZIP,START,STOP) ; -- address set
  1. S:$L(VAPA(LINE1)) PAT("address",CNT,"line1")=VAPA(LINE1)
  1. S:$L(VAPA(LINE2)) PAT("address",CNT,"line2")=VAPA(LINE2)
  1. S:$L(VAPA(LINE3)) PAT("address",CNT,"line3")=VAPA(LINE3)
  1. S:$L(VAPA(CITY)) PAT("address",CNT,"city")=VAPA(CITY)
  1. S X=$P(VAPA(STATE),U) S:X PAT("address",CNT,"state")=$$GET1^DIQ(5,+X_",",1)
  1. S X=$P(VAPA(ZIP),U,2) S:$L(X) PAT("address",CNT,"zip")=X
  1. S X=+VAPA(START) S:X PAT("address",CNT,"start")=$$JSONDT^HMPUTILS(X)
  1. S X=+VAPA(STOP) S:X PAT("address",CNT,"end")=$$JSONDT^HMPUTILS(X)
  1. Q
  1. ;
  1. VAPA(BEG,END) ; -- VAPA nodes have data?
  1. N I,Y S Y=0
  1. F I=BEG:1:END I $L($G(VAPA(I))) S Y=1 Q
  1. Q Y
  1. ;
  1. SUPP ;-support contacts
  1. N VAOA,A,I,X,TYPE,S
  1. S S=0 F A="",1 K VAOA D
  1. . S:A VAOA("A")=A D OAD^VADPT Q:'$L($G(VAOA(9)))
  1. . S S=S+1,TYPE=$S(A=1:"ECON^Emergency Contact",1:"NOK^Next of Kin")
  1. . S PAT("contact",S,"typeCode")="urn:va:pat-contact:"_$P(TYPE,U)
  1. . S PAT("contact",S,"typeName")=$P(TYPE,U,2)
  1. . S:$L(VAOA(9)) PAT("contact",S,"name")=VAOA(9)
  1. . S:$L(VAOA(10)) PAT("contact",S,"relationship")=VAOA(10)
  1. . S:$L(VAOA(1)) PAT("contact",S,"address",1,"line1")=VAOA(1)
  1. . S:$L(VAOA(2)) PAT("contact",S,"address",1,"line2")=VAOA(2)
  1. . S:$L(VAOA(3)) PAT("contact",S,"address",1,"line3")=VAOA(3)
  1. . S:$L(VAOA(4)) PAT("contact",S,"address",1,"city")=VAOA(4)
  1. . S X=$P(VAOA(5),U) S:X PAT("contact",S,"address",1,"state")=$$GET1^DIQ(5,+X_",",1)
  1. . S X=$P(VAOA(11),U,2) S:$L(X) PAT("contact",S,"address",1,"zip")=X
  1. . S I=$S(A=1:.33011,1:.21011),X=$$FORMAT(VAOA(8))_U_U_$$FORMAT($$GET1^DIQ(2,DFN_",",I))
  1. . ; X=home^cell^work phones
  1. . S NM="H^MC^WP" F P=1:1:3 I $L($P(X,U,P)) D
  1. .. S I=$P(NM,U,P),PAT("contact",S,"telecom",P,"use")=I
  1. .. S PAT("contact",S,"telecom",P,"value")=$P(X,U,P)
  1. Q
  1. ;
  1. ALIAS ;-other names used
  1. N I,X
  1. S I=0 F S I=$O(^DPT(DFN,.01,I)) Q:I<1 S X=$G(^(I,0)) D
  1. . S PAT("alias",I,"fullName")=$P(X,U)
  1. Q
  1. ;
  1. FAC ;-treating facilities [see FACLIST^ORWCIRN]
  1. N IFN S DFN=+$G(DFN) I '(DFN>0) D LOGDPT^HMPLOG(DFN) Q ;DE4496 19 August 2016
  1. N HMPY,HOME,LAST,I,X,IEN,VASITE
  1. S X=$$ALL^VASITE ;VASITE(stn#)=stn# for all local
  1. I $L($T(TFL^VAFCTFU1)) D TFL^VAFCTFU1(.HMPY,DFN)
  1. S HOME=+$P($G(^DPT(DFN,"MPI")),U,3) ;home facility
  1. I $P($G(HMPY(1)),U)<0 D ;not setup
  1. . S X=$O(^AUPNVSIT("AA",DFN,0)),LAST=$S(X:9999999-$P(X,"."),1:"")
  1. . S X=$$SITE^VASITE
  1. . S HMPY(1)=$P(X,U,3)_U_$P(X,U,2)_U_LAST_U_$$GET1^DIQ(4,+X_",",60)
  1. S I=0 F S I=$O(HMPY(I)) Q:I<1 D
  1. . S X=HMPY(I) Q:$P(X,U)="" ;unknown
  1. . S IEN=+$$IEN^XUAF4($P(X,U))
  1. . I +X=776!(+X=200) S $P(X,U,2)="DEPT. OF DEFENSE"
  1. . S PAT("facility",I,"code")=$P(X,U) ;stn#
  1. . S PAT("facility",I,"name")=$P(X,U,2) ;name
  1. . S:IEN=HOME PAT("facility",I,"homeSite")="true"
  1. . S:$L($P(X,U,3)) PAT("facility",I,"latestDate")=$$JSONDT^HMPUTILS($P($P(X,U,3),"."))
  1. . I $D(VASITE(+X)) D
  1. .. S PAT("facility",I,"localPatientId")=DFN
  1. .. S PAT("facility",I,"systemId")=HMPSYS
  1. Q
  1. ;
  1. PC ;-primary care assignments
  1. D GETPATTM^HMPCRPC1(.PAT,DFN)
  1. Q
  1. N X S X=$$OUTPTPR^SDUTL3(DFN) I X D
  1. . S PAT("pcProviderUid")=$$SETUID^HMPUTILS("user",,+X)
  1. . S PAT("pcProviderName")=$P(X,U,2)
  1. S X=$$OUTPTTM^SDUTL3(DFN) I X D
  1. . S PAT("pcTeamUid")=$$SETUID^HMPUTILS("team",,+X)
  1. . S PAT("pcTeamName")=$P(X,U,2)
  1. Q
  1. ;
  1. INPT ;-inpatient information
  1. N ADM,X,Y,Z,I,HL,TS
  1. S ADM=+$G(^DPT(DFN,.105)) Q:ADM<1 ;current admission mvt
  1. S PAT("admissionUid")=$$SETUID^HMPUTILS("visit",DFN,"H"_ADM)
  1. S X=$P($G(^DPT(DFN,.101)),U) S:X]"" PAT("roomBed")=X
  1. S X=$P($G(^DPT(DFN,.1)),U) I X]"" D
  1. . S PAT("inpatientLocation")=X
  1. . S I=+$O(^DIC(42,"B",X,0)),HL=+$G(^DIC(42,I,44)) Q:HL<1
  1. . S X=$P($G(^SC(HL,0)),U,2) S:X]"" PAT("shortInpatientLocation")=X
  1. ;
  1. S TS=$G(^DPT(DFN,.103)) I TS D ;treating specialty
  1. . S X=$$TSDATA^DGACT(45.7,+TS,.Y) Q:X<1
  1. . S PAT("specialty")=$G(Y(1)),X=""
  1. . S PAT("specialtyUid")=$$SETUID^HMPUTILS("specialty",,+TS)
  1. . I +$G(Y(2))>0 S X=$$TSDATA^DGACT(42.4,+Y(2),.Z)
  1. . I X>0,$G(Z(3))]"" S PAT("specialtyService")=$P(Z(3),U)
  1. Q
  1. ;
  1. INS ;-insurance information
  1. N X,I,HMPX,HMPINS
  1. S X=$$INSUR^IBBAPI(DFN,,,.HMPX,"*") Q:X<1
  1. S I=0 F S I=$O(HMPX("IBBAPI","INSUR",I)) Q:I<1 D
  1. . K HMPINS M HMPINS=HMPX("IBBAPI","INSUR",I)
  1. . S PAT("insurance",I,"id")=DFN_";"_+$G(HMPINS(1))_";"_+$G(HMPINS(8))
  1. . ; = DFN;COMPANY;POLICY
  1. . S PAT("insurance",I,"companyName")=$P(HMPINS(1),U,2)
  1. . ;DE942 - Convert effective and expiration dates to JSON format - TW
  1. . S:$G(HMPINS(10))]"" PAT("insurance",I,"effectiveDate")=$$JSONDT^HMPUTILS(HMPINS(10))
  1. . S:$G(HMPINS(11))]"" PAT("insurance",I,"expirationDate")=$$JSONDT^HMPUTILS(HMPINS(11))
  1. . S:$G(HMPINS(18))]"" PAT("insurance",I,"groupNumber")=HMPINS(18)
  1. . S:$G(HMPINS(21))]"" PAT("insurance",I,"policyType")=$P(HMPINS(21),U,2)
  1. . S X=$P($G(HMPINS(12)),U,2) S:X="PATIENT" X="SELF"
  1. . S:X]"" PAT("insurance",I,"policyHolder")=X
  1. Q
  1. ;
  1. FORMAT(X) ; -- enforce (xxx)xxx-xxxx phone format
  1. S X=$G(X) I X?1"("3N1")"3N1"-"4N.E Q X
  1. N P,N,I,Y S P=""
  1. F I=1:1:$L(X) S N=$E(X,I) I N=+N S P=P_N
  1. S:$L(P)<10 P=$E("0000000000",1,10-$L(P))_P
  1. S Y=$S(P:"("_$E(P,1,3)_")"_$E(P,4,6)_"-"_$E(P,7,10),1:"")
  1. Q Y
  1. ;
  1. NAME(CODE,SET) ; -- Return expanded name for code set
  1. N Y S Y="",CODE=$G(CODE)
  1. I $G(SET)="gender" S Y=$S(CODE="F":"Female",CODE="M":"Male",1:"Unknown")
  1. I $G(SET)="maritalStatus" S Y=$S(CODE="D":"Divorced",CODE="M":"Married",CODE="W":"Widowed",CODE="L":"Legally Separated",CODE="S":"Never Married",1:"Unknown")
  1. I $G(SET)="religion" S Y=$$GET1^DIQ(13,CODE_",",.01)
  1. Q Y
  1. ;
  1. BOOL(X) ;
  1. I X>0 Q "true"
  1. S X=$E(X) I X="Y"!(X="y") Q "true"
  1. Q "false"