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

DGRRPSD1.m

Go to the documentation of this file.
  1. DGRRPSD1 ; ALB/SGG - rtnDGRR PatientServices Demographics Primary ;09/30/03 ; Compiled February 3, 2004 17:14:03
  1. ;;5.3;Registration;**557**;Aug 13, 1993
  1. ;
  1. DOC ;<DataSet Name='PrimaryDemographics'
  1. ;[2] .02 SEX (RSa), [0;2]
  1. ;[2] .05 MARITAL STATUS (RP11'a), [0;5]
  1. ;[2] .351 DATE OF DEATH (DXa), [.35;1]
  1. ;[2] .352 DEATH ENTERED BY (P200'), [.35;2]
  1. ;[38.1] 2 SECURITY LEVEL (RSX), [0;2]
  1. ;[2] .08 RELIGIOUS PREFERENCE (P13'a), [0;8]
  1. ;[2] .091 REMARKS (F), [0;10]
  1. ;
  1. GETPSARY(PSARRAY) ;
  1. NEW CNT
  1. SET CNT=$G(CNT)+1,PSARRAY(CNT)="<DataSet Name='PrimaryDemographics'"
  1. SET CNT=$G(CNT)+1,PSARRAY(CNT)="^Gender^"_$$GENDER()
  1. SET CNT=$G(CNT)+1,PSARRAY(CNT)="^MaritalStatus^"_$$MARISTAT()
  1. SET CNT=$G(CNT)+1,PSARRAY(CNT)="^DateOfDeath^"_$$PATDOD()
  1. SET CNT=$G(CNT)+1,PSARRAY(CNT)="^DeathEnteredBy^"_$$DODENTBY()
  1. SET CNT=$G(CNT)+1,PSARRAY(CNT)="^DeathEnteredByVPID^"_$$DODVPID()
  1. SET CNT=$G(CNT)+1,PSARRAY(CNT)="^SecurityLevel^"_$$SECURLVL()
  1. SET CNT=$G(CNT)+1,PSARRAY(CNT)="^ReligiousPreference^"_$$RELIPREF()
  1. SET CNT=$G(CNT)+1,PSARRAY(CNT)="^Remarks^"_$$REMARKS()
  1. SET CNT=$G(CNT)+1,PSARRAY(CNT)="></DataSet>"_"^^^1"
  1. QUIT
  1. ;
  1. GENDER() ;
  1. NEW DATA
  1. SET DATA=$P(GLOB(0),"^",2)
  1. QUIT $S(DATA="M":"MALE",DATA="F":"FEMALE",1:"")
  1. ;
  1. MARISTAT() ;
  1. NEW DATA
  1. SET DATA=$P(GLOB(0),"^",5)
  1. QUIT $S(DATA="":"",1:$P($G(^DIC(11,DATA,0)),"^",1))
  1. ;
  1. PATDOD() ;
  1. QUIT $P(GLOB(.35),"^",1)
  1. ;
  1. DODENTBY() ;
  1. NEW DATA
  1. SET DATA=$P(GLOB(.35),"^",2)
  1. IF DATA'="" SET DATA=$P($G(^VA(200,DATA,0)),"^",1)
  1. QUIT DATA
  1. ;
  1. DODVPID() ;
  1. QUIT $$VPID^XUPS($P(GLOB(.35),"^",2))
  1. ;
  1. SECURLVL() ;
  1. QUIT $S($P($G(^DGSL(38.1,PTID,0)),"^",2)=1:"SENSITIVE",1:"NON-SENSITIVE")
  1. ;
  1. RELIPREF() ;
  1. NEW DATA
  1. SET DATA=$P(GLOB(0),"^",8)
  1. QUIT $S(DATA="":"",1:$P($G(^DIC(13,DATA,0)),"^",1))
  1. ;
  1. REMARKS() ;
  1. QUIT $P(GLOB(0),"^",10)