| 1 | DGRRPSID ; ALB/SGG - rtnDGRR PatientServices Identifier ;09/30/03 ; Compiled October 2, 2003 12:41:01
|
|---|
| 2 | ;;5.3;Registration;**557**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | DOC ;<Identifier>
|
|---|
| 5 | ;PatientICN - patient's ICN is set from initial PARAMS()
|
|---|
| 6 | ;PatientDFN - patient's DFN is set up as PTID from initial PARAMS()
|
|---|
| 7 | ;.01 NAME (RFXa), [0;1]
|
|---|
| 8 | ;.09 SOCIAL SECURITY NUMBER (RFXa), [0;9]
|
|---|
| 9 | ;.03 DATE OF BIRTH (RDXOa), [0;3]
|
|---|
| 10 | ;.363 PRIMARY LONG ID (F), [.36;3]
|
|---|
| 11 | ;.364 PRIMARY SHORT ID (F), [.36;4]
|
|---|
| 12 | ;
|
|---|
| 13 | GETPSARY(PSARRAY) ;
|
|---|
| 14 | NEW CNT
|
|---|
| 15 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="<Identifier"
|
|---|
| 16 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^ICN^"_$$PATICN()
|
|---|
| 17 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^DFN^"_$$PATDFN()
|
|---|
| 18 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^FullName^"_$$FULLNAME()
|
|---|
| 19 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^SSN^"_$$PATSSN()
|
|---|
| 20 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^DateOfBirth^"_$$PATDOB()
|
|---|
| 21 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^PrimaryLongID^"_$$PRMLNID()
|
|---|
| 22 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="^PrimaryShortID^"_$$PRMSHID()
|
|---|
| 23 | SET CNT=$G(CNT)+1,PSARRAY(CNT)="></Identifier>"_"^^^1"
|
|---|
| 24 | QUIT
|
|---|
| 25 | ;
|
|---|
| 26 | PATICN() ;
|
|---|
| 27 | QUIT $G(ICN)
|
|---|
| 28 | ;
|
|---|
| 29 | PATDFN() ;
|
|---|
| 30 | QUIT $G(PTID)
|
|---|
| 31 | ;
|
|---|
| 32 | FULLNAME() ;
|
|---|
| 33 | QUIT $P(GLOB(0),"^",1)
|
|---|
| 34 | ;
|
|---|
| 35 | PATSSN() ;
|
|---|
| 36 | QUIT $P(GLOB(0),"^",9)
|
|---|
| 37 | ;
|
|---|
| 38 | PATDOB() ;
|
|---|
| 39 | QUIT $P(GLOB(0),"^",3)
|
|---|
| 40 | ;
|
|---|
| 41 | PRMLNID() ;
|
|---|
| 42 | QUIT $P(GLOB(.36),"^",3)
|
|---|
| 43 | ;
|
|---|
| 44 | PRMSHID() ;
|
|---|
| 45 | QUIT $P(GLOB(.36),"^",4)
|
|---|
