BSDPCC.m

BSDPCC ; IHS/ANMC/LJF - PCC CALLS FROM SCHEDULING ;

 ;;5.3;PIMS;;APR 26, 2002

 ;

CODE(PAT,VISIT) ;EP; called to code visit at check-out    

 S APCDPAT=PAT,APCDVSIT=VISIT

 D ^APCDEFL

 D ^APCDEKL,EN2^APCDEKL

 Q

BSDPCC    ; IHS/ANMC/LJF - PCC CALLS FROM SCHEDULING ;

 +1       ;;5.3;PIMS;;APR 26, 2002

 +2       ;

CODE(PAT,VISIT) ;EP; called to code visit at check-out    

 +1        SET APCDPAT=PAT

           SET APCDVSIT=VISIT

 +2        DO ^APCDEFL

 +3        DO ^APCDEKL

           DO EN2^APCDEKL

 +4        QUIT