PXIPREI.m

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

 ;

PXIPREI   ;ISL/dee - PCE PRE INIT rtn ;8/12/96

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996

 +2       ;

 +3        NEW DIC,Y,X,DD,DO,DA,DR,DIE

 +4        SET X="PCE PATIENT CARE ENCOUNTER"

 +5        SET DIC="^DIC(9.4,"

 +6        SET DIC(0)="X"

 +7        DO ^DIC

 +8        IF Y>0

               QUIT 

 +9        SET DIC("DR")="1///PX"

 +10       DO FILE^DICN

 +11       QUIT 

 +12      ;