Global: ^APCDVDEL

Field #	Name	Loc	Type	Details
.01	VISIT	0;1	POINTER TO VISIT FILE (#9000010)	**********************REQUIRED FIELD********************** VISIT(#9000010) LAST EDITED: `JUN 24, 2008` CROSS-REFERENCE: `9001003.92^B` 1)= S ^APCDVDEL("B",$E(X,1,30),DA)="" 2)= K ^APCDVDEL("B",$E(X,1,30),DA) CROSS-REFERENCE: `9001003.92^AD^MUMPS` 1)= I $D(^AUPNVSIT(X,0)) S ^APCDVDEL("AD",$P(^AUPNVSIT(X,0),U),DA)="" 2)= I $D(^AUPNVSIT(X,0)) K ^APCDVDEL("AD",$P(^AUPNVSIT(X,0),U),DA)
.02	DATE DELETED	0;2	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 24, 2008` CROSS-REFERENCE: `9001003.92^AC` 1)= S ^APCDVDEL("AC",$E(X,1,30),DA)="" 2)= K ^APCDVDEL("AC",$E(X,1,30),DA)
.03	DATE MERGED	0;3	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 24, 2008`
.04	MERGED TO	0;4	POINTER TO VISIT FILE (#9000010)	VISIT(#9000010) LAST EDITED: `JUN 24, 2008`
.05	USER	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 24, 2008`

Information