source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PX10P185.m@ 724

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

initial load of WorldVistAEHR

File size: 373 bytes
RevLine 
[613]1PX10P185 ;ALB/RLC - PX*1.0*185 POST INIT INSTALL
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**185**;Aug 12, 1996;Build 12
3 ;
4EN ;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.