|
Last change
on this file since 789 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
457 bytes
|
| Line | |
|---|
| 1 | GMRCYP27 ;SLC/JFR - Post-Install GMRC*3*27 ; 6/21/02 10:19
|
|---|
| 2 | ;;3.0;CONSULT/REQUEST TRACKING;**27**;DEC 27, 1997
|
|---|
| 3 | POST ;post intstall entry point
|
|---|
| 4 | N GMRCXDT
|
|---|
| 5 | S GMRCXDT=" "
|
|---|
| 6 | F S GMRCXDT=$O(^GMR(123,"E",GMRCXDT)) Q:'+GMRCXDT D
|
|---|
| 7 | . N GMRCIEN
|
|---|
| 8 | . S GMRCIEN=0
|
|---|
| 9 | . F S GMRCIEN=$O(^GMR(123,"E",GMRCXDT,GMRCIEN)) Q:'GMRCIEN D
|
|---|
| 10 | .. N DIE,DA,DR,GMRCRDT
|
|---|
| 11 | .. S GMRCRDT=$P(^GMR(123,GMRCIEN,0),U,7)
|
|---|
| 12 | .. S DIE="^GMR(123,",DA=GMRCIEN,DR="3///^S X=GMRCRDT"
|
|---|
| 13 | .. D ^DIE
|
|---|
| 14 | .. Q
|
|---|
| 15 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
