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

DGRRPSID.m

Go to the documentation of this file.
  1. DGRRPSID ; ALB/SGG - rtnDGRR PatientServices Identifier ;09/30/03 ; Compiled October 2, 2003 12:41:01
  1. ;;5.3;Registration;**557**;Aug 13, 1993
  1. ;
  1. DOC ;<Identifier>
  1. ;PatientICN - patient's ICN is set from initial PARAMS()
  1. ;PatientDFN - patient's DFN is set up as PTID from initial PARAMS()
  1. ;.01 NAME (RFXa), [0;1]
  1. ;.09 SOCIAL SECURITY NUMBER (RFXa), [0;9]
  1. ;.03 DATE OF BIRTH (RDXOa), [0;3]
  1. ;.363 PRIMARY LONG ID (F), [.36;3]
  1. ;.364 PRIMARY SHORT ID (F), [.36;4]
  1. ;
  1. GETPSARY(PSARRAY) ;
  1. NEW CNT
  1. SET CNT=$G(CNT)+1,PSARRAY(CNT)="<Identifier"
  1. SET CNT=$G(CNT)+1,PSARRAY(CNT)="^ICN^"_$$PATICN()
  1. SET CNT=$G(CNT)+1,PSARRAY(CNT)="^DFN^"_$$PATDFN()
  1. SET CNT=$G(CNT)+1,PSARRAY(CNT)="^FullName^"_$$FULLNAME()
  1. SET CNT=$G(CNT)+1,PSARRAY(CNT)="^SSN^"_$$PATSSN()
  1. SET CNT=$G(CNT)+1,PSARRAY(CNT)="^DateOfBirth^"_$$PATDOB()
  1. SET CNT=$G(CNT)+1,PSARRAY(CNT)="^PrimaryLongID^"_$$PRMLNID()
  1. SET CNT=$G(CNT)+1,PSARRAY(CNT)="^PrimaryShortID^"_$$PRMSHID()
  1. SET CNT=$G(CNT)+1,PSARRAY(CNT)="></Identifier>"_"^^^1"
  1. QUIT
  1. ;
  1. PATICN() ;
  1. QUIT $G(ICN)
  1. ;
  1. PATDFN() ;
  1. QUIT $G(PTID)
  1. ;
  1. FULLNAME() ;
  1. QUIT $P(GLOB(0),"^",1)
  1. ;
  1. PATSSN() ;
  1. QUIT $P(GLOB(0),"^",9)
  1. ;
  1. PATDOB() ;
  1. QUIT $P(GLOB(0),"^",3)
  1. ;
  1. PRMLNID() ;
  1. QUIT $P(GLOB(.36),"^",3)
  1. ;
  1. PRMSHID() ;
  1. QUIT $P(GLOB(.36),"^",4)