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 |
Rev | Line | |
---|---|---|
[613] | 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.