Last change
on this file since 1785 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
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.