source: FOIAVistA/trunk/r/CONSULT_REQUEST_TRACKING-GMRC-GMRS-GMRT/GMRCYP27.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 457 bytes
Line 
1GMRCYP27 ;SLC/JFR - Post-Install GMRC*3*27 ; 6/21/02 10:19
2 ;;3.0;CONSULT/REQUEST TRACKING;**27**;DEC 27, 1997
3POST ;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.