Global: ^APCDLLOG

FileMan FileNo	FileMan Filename	Package
9001001.7	PCC DATA ENTRY ORPHAN LOG	Patient Care Component

FileMan FileNo

FileMan Filename

Package

9001001.7

PCC DATA ENTRY ORPHAN LOG

Package	Total	Routines
Patient Care Component	1	APCDKLVR

Package	Total	Routines
Patient Care Component	7	APCDKBV APCDKIV APCDKLV APCDKLVP APCDKMV APCDKPV APCDKRV

Package	Total	FileMan Files
IHS Patient	1	VISIT(#9000010)[.01]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	VISIT	0;1	POINTER TO VISIT FILE (#9000010)	**********************REQUIRED FIELD********************** VISIT(#9000010) LAST EDITED: `JUN 04, 1997` CROSS-REFERENCE: `9001001.7^B` 1)= S ^APCDLLOG("B",$E(X,1,30),DA)="" 2)= K ^APCDLLOG("B",$E(X,1,30),DA)
.02	DATE COMPLETED	0;2	DATE	INPUT TRANSFORM: `S %DT="PEX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 27, 1999` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9001001.7^AC` 1)= S ^APCDLLOG("AC",$E(X,1,30),DA)="" 2)= K ^APCDLLOG("AC",$E(X,1,30),DA)
.03	TYPE OF ORPHAN	0;3	SET	'L' FOR LAB; 'R' FOR RADIOLOGY; 'P' FOR PHARMACY; 'I' FOR IMMUNIZATION; 'B' FOR BLOOD BANK; 'M' FOR MICROBIOLOGY; LAST EDITED: `OCT 28, 2003`

VISIT

0;1

POINTER TO VISIT FILE (#9000010)

************************REQUIRED FIELD************************

CROSS-REFERENCE: 9001001.7^B

1)= S ^APCDLLOG("B",$E(X,1,30),DA)=""

2)= K ^APCDLLOG("B",$E(X,1,30),DA)

DATE COMPLETED

0;2

DATE

CROSS-REFERENCE: 9001001.7^AC

1)= S ^APCDLLOG("AC",$E(X,1,30),DA)=""

2)= K ^APCDLLOG("AC",$E(X,1,30),DA)

TYPE OF ORPHAN

0;3

SET

Information