source: qrda/C0Q/trunk/p/C0QP1.m

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 
1C0QP1 ; VEN/SMH - Inits for Patch 1 ; 6/13/12 4:27pm
2 ;;1.0;C0Q;;May 21, 2012;Build 44
3 ;
4POST ; 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.