Global: ^AMCH(81

FileMan FileNo	FileMan Filename	Package
9002081	AMCH PARAMETERS	IHS Changes To Lab

Package	Total	Routines
IHS Changes To Lab	1	^AMCH(81

Package	Total	FileMan Files
Kernel	2	OPTION(#19)[30] INSTITUTION(#4)[.01, 8, 12]
Utility Tables	2	IMMUNIZATION(#9999999.14)[32] SKIN TEST(#9999999.28)[14]
Scheduling	1	CLINIC STOP(#40.7)[7]

Fields, Total: 31

Field #	Name	Loc	Type	Details
.01	FACILITY	0;1	POINTER TO INSTITUTION FILE (#4)	**********************REQUIRED FIELD********************** INSTITUTION(#4) LAST EDITED: `MAY 22, 1990` HELP-PROMPT: `Select the entry in the IHS location file which corresponds to your site.` TECHNICAL DESCR: This field points to the IHS LOCATION file, which points to the VA INSTITUTION file. CROSS-REFERENCE: `9002081^B` 1)= S ^AMCH(81,"B",$E(X,1,30),DA)="" 2)= K ^AMCH(81,"B",$E(X,1,30),DA)
1	REGISTRATION OPTION	0;2	SET	'0' FOR STANDARD IHS REGISTRATION; '1' FOR MICRO REGISTRATION; HELP-PROMPT: `IHS RPMS sites should use STANDARD REGISTRATION. Only single user Personal Computers should use MICRO REGISTRATION.` TECHNICAL DESCR: `This option is included to support sites running MCH on microcomputers prior to availability of the standard RPMS systems. The microcomputer sites require the ability to "register" patients other than through the normal` RPMS Patient Registration application.
2	SCREEN HEADING	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` HELP-PROMPT: `Enter the text you would like to have as the header for your reports and letters (e.g., Neah Bay Indian Health Center).` TECHNICAL DESCR: This field sets the header for printouts from the MCH package.
3	UPDATE DISPLAY OPTION	0;4	SET	'1' FOR DISPLAY IMMUNIZATIONS; '0' FOR DON'T DISPLAY; HELP-PROMPT: `Select Display Immunizations to see the patient's past immunizations when updating their record. There is a slight gain in data entry time if you select Don't Display.`
4	LOT NUMBER OPTION	0;5	SET	'1' FOR LOT NUMBER REQUIRED; '0' FOR OPTIONAL LOT NUMBERS; 'D' FOR DON'T ASK FOR LOT NUMBER; LAST EDITED: `APR 01, 1988` HELP-PROMPT: `Answer 1 if you want to force lot number entries for RECENT IMMUNIZATIONS ONLY. Answer 0 (zero) for optional entry of lot numbers, or D if you do not want to be asked for lot numbers.`
5	QUEUING ALLOWED	0;6	SET	'1' FOR YES; '0' FOR NO; HELP-PROMPT: `Answer NO only if you are running the MCH system on a personal computer without queueing capability. All RPMS sites should allow queueing.`
6	MAXIMUM SEARCH AGE (MONTHS)	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>72)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 01, 1987` HELP-PROMPT: `Enter the maximum age IN MONTHS you would like included in your routine searches for children due for immunization. If you enter 72, all children up to six years of age will be shown on each report.`
7	CLINIC TYPE	0;8	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) LAST EDITED: `APR 01, 1988` HELP-PROMPT: `The clinic you enter here will be suggested as the default when immunizations are entered.`
8	DEFAULT LOCATION FOR HX VISITS	0;9	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `MAR 01, 1995` HELP-PROMPT: `The location (facility) you enter here will be suggested as the default location for immunizations entered using the ENTER PREVIOUS IMMUNIZATIONS option.`
9	SERVICE CATEGORY	0;10	SET	'A' FOR AMBULATORY; 'N' FOR NOT FOUND; HELP-PROMPT: `Enter the service category to be used when creating immunization visits; AMBULATORY should ordinarily be used.`
10	SERVICE CATEGORY HX DATA	0;11	SET	**********************REQUIRED FIELD********************** 'A' FOR AMBULATORY; 'N' FOR NOT FOUND; 'E' FOR EVENT; LAST EDITED: `NOV 27, 1990` HELP-PROMPT: `Enter the service category to be used when creating visits for historical immunizations; generally, EVENT is appropriate.`
11	AUTO INACTIVATION AGE	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<4)!(X?.E1"."1N.N) X` HELP-PROMPT: `Enter an age in years between 4 and 99. All children above the age specified here will be automatically inactivated in the Immunization Register when the Quarterly Report is run.` DESCRIPTION: THIS FIELD (IF NON-ZERO) WILL CAUSE PATIENTS ON THE IMMUNIZATION REGISTER TO BECOME IN-ACTIVE AT THE SPECIFIED AGE. THIS IS DONE WHEN THE QUARTERLY IMMUNIZATION REPORT IS RUN.
12	UNKNOWN LOCATION	0;13	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `MAR 09, 1995` HELP-PROMPT: `Select a facility which will be used for the site of visit whenever U (for 'unknown') is entered for the site at which an immunization was given.`
14	TB SKIN TEST	0;14	POINTER TO SKIN TEST FILE (#9999999.28)	SKIN TEST(#9999999.28) LAST EDITED: `APR 30, 1987` HELP-PROMPT: `Enter the type of skin test your facility uses for tuberculosis screening -- either PPD or Tine Test.`
15	INACTIVE LIST MAXIMUM AGE	0;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 27, 1987` HELP-PROMPT: `Enter an age in years between 0 and 99. When printing a list of all INACTIVE patients from the Immunization program, only those at or below the age you specify will be printed out.`
25	LETTER ADDRESS STARTING LINE	L;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>70)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `Enter the number (1-70) of the line on the page at which addresses for letters are to being printing. Usually about 56 is correct.`
26	LETTER ADDRESS STARTING COLUMN	L;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>60)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 19, 1987` HELP-PROMPT: `Enter the number of the column in which addresses for letters should begin printing. If your envelopes have windows on the left, column 15 is about right. Try 40 for center-window envelopes.`
27	LETTER PHONE1	L;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<7) X` LAST EDITED: `FEB 19, 1988` HELP-PROMPT: `A telephone numbered entered here will be put in letters to patients as a contact for questions, etc.`
27.1	LETTER PHONE2	L;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<7) X` LAST EDITED: `OCT 19, 1988` HELP-PROMPT: `If there is a second phone number for patient calls, enter it here.`
28	LETTER SIGNATURE1	L;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `OCT 19, 1988` HELP-PROMPT: `Enter the name (3-20 characters) you want to appear at the bottom of your immunization recall letters.`
28.1	LETTER SIGNATURE2	L;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `OCT 19, 1988` HELP-PROMPT: `Enter the TITLE of the individual whose name appears in the LETTER SIGNATURE1 field -- e.g., CLINICAL DIRECTOR or PUBLIC HEALTH NURSE.`
28.3	LETTER SIGNATURE3	L;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `AUG 27, 1989` HELP-PROMPT: `If you wish, enter the name of an individual different from that in LETTER SIGNATURE1 to be used instead by the Pap program.`
28.4	LETTER SIGNATURE4	L;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `AUG 27, 1989` HELP-PROMPT: `Enter the title of the individual, if any, entered in LETTER SIGNATURE3 for use by the Pap program.`
29	LETTER SUBHEADER1	L;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `OCT 19, 1988` HELP-PROMPT: `Enter the text (3-30 characters) you would like to appear on your letters below the header; e.g., a street address.`
29.1	LETTER SUBHEADER2	L;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `OCT 19, 1988` HELP-PROMPT: `Enter text (3-30 characters) which will appear on the second line below the header (e.g., city, state, and zip code).`
29.2	LETTER SUBHEADER3	L;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JUL 09, 1988` HELP-PROMPT: `Enter any other text (3-30 characters) to appear on the third line below the header.`
29.3	LETTER SUBHEADER4	L;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JUL 09, 1988` HELP-PROMPT: `Enter any other text (3-30 characters) to appear on the fourth line below the header.`
30	MICROMENU	M;1	POINTER TO OPTION FILE (#19)	OPTION(#19) LAST EDITED: `APR 30, 1987` HELP-PROMPT: `If you are using a personal computer without the full RPMS/KERNEL software to run the MCH package, enter the name of the main menu (usually AMCHMENU) to be accessed via the standalone menu driver.`
31	IMMUNIZATION RECORD HEADING	0;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3) X` LAST EDITED: `FEB 01, 1991` HELP-PROMPT: `Answer must be 3-50 characters in length.`
32	DEFAULT HIB VACCINE	0;17	POINTER TO IMMUNIZATION FILE (#9999999.14)	IMMUNIZATION(#9999999.14) INPUT TRANSFORM: `S DIC("S")="I ""35373839""[$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 12, 1991` SCREEN: `S DIC("S")="I ""35373839""[$P(^(0),U,3)"` EXPLANATION: `SCREENS FOR HIB VACCINES.`
33	TYPE OF VISIT	0;18	SET	'I' FOR IHS; 'C' FOR CONTRACT; 'T' FOR TRIBAL; 'O' FOR OTHER; '6' FOR 638 PROGRAM; 'V' FOR VA; LAST EDITED: `MAR 14, 1991` HELP-PROMPT: `Enter the appropriate code from the list.`

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K)
DIC	32+1!*
DIC("S"	32+1, 32SCR+1
>> DIE	32+1
X	.01(XREF 1S), .01(XREF 1K), 2+1!, 6+1!, 11+1!, 15+1!, 25+1!, 26+1!, 27+1!, 27.1+1! , 28+1!, 28.1+1!, 28.3+1!, 28.4+1!, 29+1!, 29.1+1!, 29.2+1!, 29.3+1!, 31+1!, 32+1*!
>> Y	32+1

Customize PDF page

Package: IHS Changes To Lab

Global: ^AMCH(81

Information

Description

Directly Accessed By Routines, Total: 1

Pointer To FileMan Files, Total: 5

Fields, Total: 31

External References

Global Variables Directly Accessed

Local Variables

Legend: