Changeset 14 for ccr/trunk/p/CCRDPT.m

Timestamp:

Jun 22, 2008, 8:04:01 PM (16 years ago)

Author:

Sam Habiel

Message:

Updated UTIL to do UTC properly; worked on DPT

File:

• ccr/trunk/p/CCRDPT.m (modified) (1 diff)

ccr/trunk/p/CCRDPT.m

@@ -130 +130 @@
         N DOB S DOB=$P(PT(0),"^",3)
         ; Date in FM Date Format. Convert to UTC/ISO 8601.
-        Q $$FMDTOUTC^CCRUTIL(DOB)
+        Q $$FMDTOUTC^CCRUTIL(DOB,"D")
         ;
+GENDER() ; Get Gender; PUBLIC; Extrinsic
+        ; PREREQ: PT Defined
+        Q $P(PT(0),"^",2)
+        ;
+SSN() ; Get SSN for ID; PUBLIC; Extrinsic
+        ; PREREQ: PT Defined
+        Q $P(PT(0),"^",9)
+        ;
+ADDRTYPE(ADDR) ; Get Home Address; PUBLIC; Extrinsic
+        ; Vista only stores a home address for the patient.
+        Q "Home"
+        ;
+ADDR1() ; Get Home Address line 1; PUBLIC; Extrinsic
+        ; PREREQ: PT Defined
+        Q $P(PT(.11),"^",1)
+        ;
+ADDR2() ; Get Home Address line 2; PUBLIC; Extrinsic
+        ; PREREQ: PT Defined
+        ; Vista has Lines 2,3; CCR has only line 1,2; so compromise
+        Q $P(PT(.11),"^",2)_", "_$P(PT(.11),"^",3)
+        ;
+CITY() ; Get City for Home Address; PUBLIC; Extrinsic
+        ; PREREQ: PT Defined
+        Q $P(PT(.11),"^",4)
+        ;
+STATE() ; Get State for Home Address; PUBLIC; Extrinsic
+        ; PREREQ: PT Defined
+        ; State is stored as a pointer
+        N STATENUM=$P(PT(.11)"^",5)
+        ;
+        ; State File Global is below
+        ; ^DIC(5,D0,0)= (#.01) NAME [1] ^ (#1) ABBREVIATION [2F] ^ (#2) VA STATE CODE 
+    ; ==>[3F] ^ (#5) CAPITAL [4F] ^ (#2.1) AAC RECOGNIZED [5S] ^ (#2.2) 
+    ; ==>US STATE OR POSSESSION [6S] ^ 
+        Q $P(^DIC(5,STATENUM,0),"^",1)
+        ;
+ZIP() ; Get Zip code for Home Address
+        ; PREREQ: PT Defined
+        Q $P(PT(.11),"^",6)
+        ;
+COUNTY() ; Get County for our Address
+        ; PREREQ: PT Defined
+        Q $P(PT(.11),"^",7)
+        ;