Global: ^ACRUAL

FileMan FileNo	FileMan Filename	Package
9002185.6	FMS USER ACCESS LEVEL	Commitment Register

Directly Accessed By Routines, Total: 2

Package	Total	Routines
Commitment Register	2	ACRFACC ACRFAU

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Commitment Register	1	ACRFACC

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
Commitment Register	1	FMS ACCESS LEVEL(#9002185.5)[.02]
Kernel	1	NEW PERSON(#200)[.01]

Fields, Total: 2

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	USER	0;1	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) INPUT TRANSFORM: `S:$D(X) DINUM=X Q` OUTPUT TRANSFORM: `S Y=$$NAME2^ACRFUTL1(Y)` LAST EDITED: `SEP 30, 2005` DESCRIPTION: This is a pointer to the USER file. This information is set internally according to which user is assigned an access level. TECHNICAL DESCR: `In an effort to standardize the name format in the New Person (200) file, there have been some significant changes made to the way the name is entered and displayed. Last names may no longer contain spaces or apostrophes.` While this was primarily done to help clarify patient data, it does have a great impact on ARMS for traveler payments and for the display/print of all documents. For this reason, effective ARMS V2.1 Patch 19, an output transform has been added to this field allowing the Name to display with punctuation. AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002185.6^B` 1)= S ^ACRUAL("B",$E(X,1,30),DA)="" 2)= K ^ACRUAL("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002185.6^LVL^MUMPS` 1)= I $D(DA),DA,$D(X),X,$D(^ACRUAL(DA,0)),$P(^(0),U,2) S ^ACRUAL("LVL",$E(X,1,30),$P(^(0),U,2),DA)="" 2)= I $D(X),X K ^ACRUAL("LVL",$E(X,1,30)) 3)= DO NOT DELETE
.02	ACCESS LEVEL	0;2	POINTER TO FMS ACCESS LEVEL FILE (#9002185.5)	FMS ACCESS LEVEL(#9002185.5) LAST EDITED: `APR 01, 1996` HELP-PROMPT: DESCRIPTION: Enter the ACCESS LEVEL you wish to assign to this ARMS USER. CROSS-REFERENCE: `9002185.6^LVLTOO^MUMPS` 1)= I $D(DA),DA,$D(X),X S ^ACRUAL("LVL",DA,$E(X,1,30),DA)="" 2)= I $D(DA),DA K ^ACRUAL("LVL",DA) 3)= DO NOT DELETE

.01

USER

0;1

POINTER TO NEW PERSON FILE (#200)

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

NEW PERSON(#200)

INPUT TRANSFORM: S:$D(X) DINUM=X Q
OUTPUT TRANSFORM: S Y=$$NAME2^ACRFUTL1(Y)
LAST EDITED: SEP 30, 2005

DESCRIPTION:

This is a pointer to the USER file.  This information is set internally according to which user is assigned an access level.

TECHNICAL DESCR: In an effort to standardize the name format in the New Person (200) file, there have been some significant changes made to the way the name is entered and displayed. Last names may no longer contain spaces or apostrophes.

While this was primarily done to help clarify patient data, it does have a great impact on ARMS for traveler payments and for the display/print of all documents.

For this reason, effective ARMS V2.1 Patch 19, an output transform has been added to this field allowing the Name to display with punctuation.

AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 9002185.6^B

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

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

CROSS-REFERENCE: 9002185.6^LVL^MUMPS

1)= I $D(DA),DA,$D(X),X,$D(^ACRUAL(DA,0)),$P(^(0),U,2) S ^ACRUAL("LVL",$E(X,1,30),$P(^(0),U,2),DA)=""

2)= I $D(X),X K ^ACRUAL("LVL",$E(X,1,30))

3)= DO NOT DELETE

.02

ACCESS LEVEL

0;2

POINTER TO FMS ACCESS LEVEL FILE (#9002185.5)

FMS ACCESS LEVEL(#9002185.5)

LAST EDITED: APR 01, 1996
HELP-PROMPT:

DESCRIPTION:

Enter the ACCESS LEVEL you wish to assign to this ARMS USER.

CROSS-REFERENCE: 9002185.6^LVLTOO^MUMPS

1)= I $D(DA),DA,$D(X),X S ^ACRUAL("LVL",DA,$E(X,1,30),DA)=""

2)= I $D(DA),DA K ^ACRUAL("LVL",DA)

3)= DO NOT DELETE

Customize PDF page

Package: Commitment Register

Global: ^ACRUAL

Information

Description

Directly Accessed By Routines, Total: 2

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 2

Fields, Total: 2