Routine: IB20PT83

Information

IB20PT83 ;ALB/CPM - EXPORT ROUTINE 'DGPTTS' ; 14-FEB-94

Source file <IB20PT83.m>

Name	Comments	DBIA/ICR reference
DGPTTS	;ALB/AS - UPDATE FACILITY TREATING SPECIALTY/501 MOVEMENTS IN PTF ; 1/30/90 @12
EV	;entry point from event driver
DEL	;facility treating specialty has been deleted from ^DGPM
DEL1
LE	;entry point for PTF record update
Q
NTR
NOTS	;
DGDT	; -- get first ts before dc date
CA	; -- determine CA info