source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGRRPSID.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
RevLine 
[613]1DGRRPSID ; ALB/SGG - rtnDGRR PatientServices Identifier ;09/30/03 ; Compiled October 2, 2003 12:41:01
2 ;;5.3;Registration;**557**;Aug 13, 1993
3 ;
4DOC ;<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 ;
13GETPSARY(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 ;
26PATICN() ;
27 QUIT $G(ICN)
28 ;
29PATDFN() ;
30 QUIT $G(PTID)
31 ;
32FULLNAME() ;
33 QUIT $P(GLOB(0),"^",1)
34 ;
35PATSSN() ;
36 QUIT $P(GLOB(0),"^",9)
37 ;
38PATDOB() ;
39 QUIT $P(GLOB(0),"^",3)
40 ;
41PRMLNID() ;
42 QUIT $P(GLOB(.36),"^",3)
43 ;
44PRMSHID() ;
45 QUIT $P(GLOB(.36),"^",4)
Note: See TracBrowser for help on using the repository browser.