Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | Found Entries | All

Print Page as PDF

Global: ^LAB(62.07

Package: Lab Service

Global: ^LAB(62.07

Information

FileMan FileNo	FileMan Filename	Package
62.07	EXECUTE CODE	Lab Service

Description

The execute code file is used to store a variety of program instuctions that are used in various programs in the lab package. The best way to see what they areand what they do is to sort them out by type. This may only be of academic interest, since these codes are rarely changed. The 'execute code' type entries have been moved from this file to the routine LRX. All of the 'execute code' type entries will be deleted (with the exception of the ERROR TRAP entry) when version 5 of lab is released. Cross-reference description: ^LAB("X",'SUBSCRIPT NAME')=EXECUTE CODE Note: With the exception of the Error Trap execute code this x-ref has been replaced with the program LRX. Example: X ^LAB("X","PT") is now D PT^LRX

Accessed By FileMan Db Calls, Total: 5

Package	Total	Routines
Lab Service	5	LR52P476 LR52P508 LRAPWR1 LRBLPEW LRBLWDS

Pointed To By FileMan Files, Total: 4

Package	Total	FileMan Files
Lab Service	3	LABORATORY TEST(#60)[98, 99.1, 99.2, 320, #60.03(7)] ACCESSION(#68)[.05, .06, .07] LOAD/WORK LIST(#68.2)[.02, .07, .12]
Kernel	1	PROTOCOL(#101)[6]

Pointer To FileMan Files, Total: 1

Package	Total	FileMan Files
Lab Service	1	WKLD CODE(#64)[#62.09(.01)]

Fields, Total: 9

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `NOV 28, 1984` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` DESCRIPTION: `The user given name of the code.` CROSS-REFERENCE: `62.07^B` `1)= S ^LAB(62.07,"B",$E(X,1,30),DA)=""` `2)= K ^LAB(62.07,"B",$E(X,1,30),DA)`
1	EXECUTE CODE	.1;E1,220	FREE TEXT	INPUT TRANSFORM: `D ^DIM` LAST EDITED: `OCT 25, 1984` HELP-PROMPT: `ANSWER MUST BE 1-220 CHARACTERS IN LENGTH. AND VALID MUMPS CODE` DESCRIPTION: `The MUMPS code. EXAMPLE: For the SMAC name the code is S CUP=CUP+1 I CUP>8 S CUP=1,TRAY=TRAY+1.` `WRITE AUTHORITY: @` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	PURGE CONTROL	0;2	SET	'DAILY' FOR D; 'MONTHLY' FOR M; 'QUARTERLY' FOR Q; 'YEARLY' FOR Y; DESCRIPTION: `This field contains the time interval to purge. Set of codes for Daily, Monthly, Quarterly, or Yearly.`
3	TYPE	0;3	SET	**********************REQUIRED FIELD********************** 'I' FOR IDENTITY; 'V' FOR VERIFICATION; 'A' FOR ACCESSION; 'L' FOR LOADLIST; 'E' FOR EDIT; 'C' FOR COMMENT; 'X' FOR XECUTE; 'D' FOR DATA; 'W' FOR WORKLOAD; LAST EDITED: `NOV 20, 1991` DESCRIPTION: `The type of code as categorized by the set of codes. Identity, verfication, accession, loadlist, edit, or comment.`
4	HELP PROMPT	.2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>200!($L(X)<2) X` LAST EDITED: `AUG 28, 1984` HELP-PROMPT: `THIS IS THE MESSAGE PRINTED FOR COMMENTS WHEN A '?' IS ENTERED` DESCRIPTION: `The user entered help prompt for the execute code name.`
5	SUBSCRIPT NAME	0;4	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<2)!($P(^(0),U,3)'="X") X Q:$D(DIU(0)) I $D(X) K:$D(^LAB("X",X)) X` LAST EDITED: `NOV 28, 1984` HELP-PROMPT: `2-9 character function name (don't EVER change this!)` DESCRIPTION: `If the entry is type "X", eXecute, this is used in the "X" cross-reference. Otherwise, nothing should be placed in this field.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `62.07^AC^MUMPS` `1)= S ^LAB("X",X)=^LAB(62.07,DA,.1)` `2)= K ^LAB("X",X)`
6	DESCRIPTION	1;0	WORD-PROCESSING #62.071	DESCRIPTION: `This field contains information about how the execute code is used, or what it does.` LAST EDITED: `FEB 14, 1985` DESCRIPTION: `This field contains information about how the execute code is used, or what it does.`
500	EXECUTE WKLD CODE	9;0	POINTER Multiple #62.09	62.09 LAST EDITED: `MAR 15, 1991` DESCRIPTION: `College of American Pathologists Workload codes associated` `with the execute code are stored here.` IDENTIFIED BY: `EXECUTE WKLD CODE #(#1)`
501	SITE NOTES DATE	2;0	DATE Multiple #62.7501	62.7501 DESCRIPTION: `The date of this particular note.`

Found Entries, Total: 66

NAME: YEARLY	NAME: MONTHLY	NAME: DAILY	NAME: QUARTERLY	NAME: MOD 8	NAME: BULL ALGORITHM	NAME: BACTERIOLOGY	NAME: TB BACTERIOLOGY
NAME: MYCOLOGY	NAME: PARASITOLOGY	NAME: VA CONTROL RULES	NAME: ASTRA 32 cups 1&2 blank	NAME: SMAC 8 cups/tray	NAME: UNIVERSAL	NAME: ABO/RH	NAME: VIROLOGY
NAME: URINE VOLUME	NAME: ORDER COMMENT	NAME: ANTICOAGULATION	NAME: SIC/SBC	NAME: ANTIBIOTIC LEVEL	NAME: MIC/MBC	NAME: GRAM STAIN (labeled)	NAME: NEG BACT RESULTS
NAME: BACT SMEAR/PREP (labeled)	NAME: PARASITE SMEAR/PREP (labeled)	NAME: MYCOLOGY SMEAR/PREP (labeled)	NAME: AFB REMARKS (labeled)	NAME: BULL'S ALGOR or MULTI-RULE	NAME: TDM (PEAK-TROUGH)	NAME: BUGS	NAME: STERILITY
NAME: COOMBS	NAME: SPUTUM SCREEN (labeled)	NAME: URINE SCREEN (labeled)	NAME: ALPHA DATE	NAME: DISPLAY DATE	NAME: SET DT	NAME: STAMP	NAME: GET PATIENT
NAME: GET PATIENT1	NAME: DUZ	NAME: YMD FROM $H	NAME: DASH	NAME: EQUALS	NAME: URGENCY	NAME: KEYCOM	NAME: GET PATIENT2
NAME: ERROR TRAP	NAME: SYSTEM STATUS	NAME: AFB REMARKS (nolabel)	NAME: BACT SMEAR/PREP (nolabel)	NAME: GRAM STAIN (nolabel)	NAME: MYCOLOGY SMEAR/PREP (nolabel)	NAME: PARASITE SMEAR/PREP (nolabel)	NAME: SPUTUM SCREEN (nolabel)
NAME: URINE SCREEN (nolabel)	NAME: DOSE/DRAW TIMES	NAME: TRANSFUSION	NAME: DIFF EQUAL 100	NAME: SKIP	NAME: LRBLSCREEN	NAME: ORDER COMMENT MODIFIED	NAME: GET PATIENT3
NAME: ANION GAP	NAME: TEST EXIT CODE

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #2391	Order Entry Results Reporting	EXECUTE CODE (1). Access: Direct Global Read & w/Fileman

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | Found Entries | All