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

Timestamp:

Jan 5, 2009, 4:33:43 PM (15 years ago)

Author:

George Lilly

Message:

changes for RPMS support - set ^{TMP("GPLCCR","RPMS")=1}

File:

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

ccr/trunk/p/CCRVA200.m

@@ -88 +88 @@
         Q "Work"
         ;
-ADDLINE1(DUZ) ; Get Address associated with this instituation; PUBLIC; EXTRINSIC
+ADDLINE1(ADUZ) ; Get Address associated with this instituation; PUBLIC; EXTRINSIC ; CHANGED PARAMETER TO ADUZ TO KEEP FROM CRASHING GPL 1/09
         ; INPUT: DUZ ByVal
         ; Output: String.
@@ -111 +111 @@
         Q ""
         ;
-CITY(DUZ) ; Get City for Institution. PUBLIC; EXTRINSIC
+CITY(ADUZ) ; Get City for Institution. PUBLIC; EXTRINSIC
+           ;GPL CHANGED PARAMETER TO ADUZ TO KEEP $$SITE^VASITE FROM CRASHING 
         ; INPUT: DUZ ByVal
         ; Output: String.
@@ -123 +124 @@
         Q ""
         ;
-STATE(DUZ) ; Get State for Institution. PUBLIC; EXTRINSIC
+STATE(ADUZ) ; Get State for Institution. PUBLIC; EXTRINSIC
         ; INPUT: DUZ ByVal
         ; Output: String.
@@ -135 +136 @@
         Q ""
         ;
-POSTCODE(DUZ) ; Get Postal Code for Institution. PUBLIC; EXTRINSIC
+POSTCODE(ADUZ) ; Get Postal Code for Institution. PUBLIC; EXTRINSIC
         ; INPUT: DUZ ByVal
         ; OUTPUT: String.