Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXIPREI

PXIPREI.m

Go to the documentation of this file. 
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

 ;