Changeset 122 for ccr/trunk/p/CCRVA200.m

Timestamp:

Aug 30, 2008, 3:13:15 PM (16 years ago)

Author:

George Lilly

Message:

XINDEX fixes. almost clean except for long var names and big files

File:

• ccr/trunk/p/CCRVA200.m (modified) (4 diffs)

ccr/trunk/p/CCRVA200.m

@@ -20 +20 @@
         ; This routine uses Kernel APIs and Direct Global Access to get
         ; Proivder Data from File 200.
-
+        ;
         ; The Global is VA(200,*)
-
+        ;
 FAMILY(DUZ) ; Get Family Name; PUBLIC; EXTRINSIC
         ; INPUT: DUZ (i.e. File 200 IEN) ByVal
@@ -76 +76 @@
         ; Uses a Kernel API. Returns -1 if a specialty is not specified
         ;       in file 200.
-        ; Otherwise, returns IEN^Profession^Specialty^Sub­            specialty^Effect date^Expired date^VA code
+        ; Otherwise, returns IEN^Profession^Specialty^Sub­specialty^Effect date^Expired date^VA code
         N STR S STR=$$GET^XUA4A72(DUZ)
         Q:+STR<0 ""
@@ -91 +91 @@
         ; INPUT: DUZ ByVal
         ; Output: String.
-
+        ;
         ; First, get site number from the institution file.
         ; 1st piece returned by $$SITE^VASITE, which gets the system institution
         N INST S INST=$P($$SITE^VASITE(),U)
-
+        ;
         ; Second, get mailing address
         ; There are two APIs to get the address, one for physical and one for
@@ -166 +166 @@
         Q $P(EMAIL,U)
         ;
-