source:
WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PX10P185.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 373 bytes |
Line | |
---|---|
1 | PX10P185 ;ALB/RLC - PX*1.0*185 POST INIT INSTALL |
2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;**185**;Aug 12, 1996;Build 12 |
3 | ; |
4 | EN ;Update field .08 to "Y" for any records where the field is null |
5 | S HFIEN=0 |
6 | F S HFIEN=$O(^AUTTHF(HFIEN)) Q:'HFIEN D |
7 | .Q:'$D(^AUTTHF(HFIEN,0)) S NODE=^(0) |
8 | .Q:$P(NODE,U,8)'="" |
9 | .S DIE="^AUTTHF(",DA=HFIEN,DR=".08///Y" D ^DIE |
10 | K HFIEN,NODE,DIE,DA,DR |
11 | Q |
Note:
See TracBrowser
for help on using the repository browser.