Global: ^ACHS(7

FileMan FileNo	FileMan Filename	Package
9002067	CHS DOCUMENT PRINTED LIST	Contract Health Management Information System

FileMan FileNo

FileMan Filename

Package

9002067

CHS DOCUMENT PRINTED LIST

Package	Total	Routines
Contract Health Management Information System	12	ACHSCHK ACHSCR16 ACHSPAZ ACHSRP ACHSRP2 ACHSRPF ACHSRPF1 ACHSRR ACHSVLB DOCUMENT TRANSACTION RECORD ^ACHS(7

Package	Total	FileMan Files
Kernel	1	DEVICE(#3.5)[.01]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DEVICE	0;1	POINTER TO DEVICE FILE (#3.5)	**********************REQUIRED FIELD********************** DEVICE(#3.5) HELP-PROMPT: `ENTER DEVICE` DESCRIPTION: DEVICE CROSS-REFERENCE: `9002067^B` 1)= S ^ACHS(7,"B",$E(X,1,30),DA)="" 2)= K ^ACHS(7,"B",$E(X,1,30),DA)
.5	PRINT DATE	0;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Answer must be a date` DESCRIPTION: Enter Print Date CROSS-REFERENCE: `9002067^CZ^MUMPS` 1)= S ^ACHS(7,"CZ",9999999-X,DA)="" 2)= K ^ACHS(7,"CZ",9999999-X,DA)
1	DOCUMENT	D;0	Multiple #9002067.01	9002067.01 DESCRIPTION: Answer with Document number

DEVICE

0;1

POINTER TO DEVICE FILE (#3.5)

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

CROSS-REFERENCE: 9002067^B

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

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

PRINT DATE

0;2

DATE

CROSS-REFERENCE: 9002067^CZ^MUMPS

1)= S ^ACHS(7,"CZ",9999999-X,DA)=""

2)= K ^ACHS(7,"CZ",9999999-X,DA)

DOCUMENT

D;0

Multiple #9002067.01

Name	Field # of Occurrence
^%DT	.5+1

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(7 - [#9002067]	.01(XREF 1S), .01(XREF 1K), .5(XREF 1S), .5(XREF 1K)

Information