PXIPREI ;ISL/dee - PCE PRE INIT rtn ;8/12/96
 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
 ;
 N DIC,Y,X,DD,DO,DA,DR,DIE
 S X="PCE PATIENT CARE ENCOUNTER"
 S DIC="^DIC(9.4,"
 S DIC(0)="X"
 D ^DIC
 Q:Y>0
 S DIC("DR")="1///PX"
 D FILE^DICN
 Q
 ;