|
Last change
on this file was 1484, checked in by Sam Habiel, 12 years ago |
|
restored old KIDS file; moved logic for reminders into new init routine C0Q1P2
|
|
File size:
417 bytes
|
| Line | |
|---|
| 1 | C0QP1 ; VEN/SMH - Inits for Patch 1 ; 6/13/12 4:27pm
|
|---|
| 2 | ;;1.0;C0Q;;May 21, 2012;Build 44
|
|---|
| 3 | ;
|
|---|
| 4 | POST ; Post-Install hook for Patch 1; PEP
|
|---|
| 5 | ; Fire off the new x-refs for entries in the parameter file
|
|---|
| 6 | N C0QI S C0QI=0 ; Walk through starting with number 1
|
|---|
| 7 | F S C0QI=$O(^C0Q(401,C0QI)) Q:'C0QI D
|
|---|
| 8 | . N DA,DIK S DIK="^C0Q(401,",DIK(1)="2^AMMS",DA=C0QI D EN^DIK
|
|---|
| 9 | . N DA,DIK S DIK="^C0Q(401,",DIK(1)="2.1^AQMS",DA=C0QI D EN^DIK
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
