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

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^BNIRTMP

Package: Computerized Public Health Activity Data

Global: ^BNIRTMP

Information

FileMan FileNo	FileMan Filename	Package
90512.88	BNI GENERAL RETRIEVAL TMP	Computerized Public Health Activity Data

Description

Directly Accessed By Routines, Total: 12

Accessed By FileMan Db Calls, Total: 4

Pointer To FileMan Files, Total: 2

Fields, Total: 14

Field #	Name	Loc	Type	Details
.01	$J_$H	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `SEP 28, 1993` HELP-PROMPT: `Answer must be 3-60 characters in length.` CROSS-REFERENCE: `90512.88^B` 1)= S ^BNIRTMP("B",$E(X,1,30),DA)="" 2)= K ^BNIRTMP("B",$E(X,1,30),DA)
.02	PERMANENT	0;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 31, 1994`
.03	NAME OF REPORT	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 31, 1994` HELP-PROMPT: `Answer must be 3-30 characters in length.` CROSS-REFERENCE: `90512.88^C` 1)= S ^BNIRTMP("C",$E(X,1,30),DA)="" 2)= K ^BNIRTMP("C",$E(X,1,30),DA)
.04	SEPARATE PAGE	0;4	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 31, 1994`
.05	COUNT TYPE	0;5	SET	'T' FOR TOTALS ONLY; 'S' FOR SUBTOTALS AND TOTALS; 'D' FOR DETAILED REPORT; 'C' FOR SEARCH TEMPLATE/COHORT; 'L' FOR DELIMITED OUTPUT; LAST EDITED: `NOV 15, 2005`
.06	RECORD	0;6	SET	'R' FOR RECORD; LAST EDITED: `OCT 27, 2005`
.07	SORT ITEM	0;7	POINTER TO BNI GENERAL RETRIEVAL ITEMS FILE (#90512.87)	BNI GENERAL RETRIEVAL ITEMS(#90512.87) LAST EDITED: `JUN 15, 2006` CROSS-REFERENCE: `^^TRIGGER^90512.88^.08` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BNIRTMP(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(90512.88,.07,1,1,1.1) S DIH=$G(^BNIRTMP(DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=90512.88,DIG=.08 D ^DICR 1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^BNIGRI(+D0,0)) D0=-1 S Y(101)=$S($D(^BNIGRI(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0) 1.4)= S DIH=$S($D(^BNIRTMP(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=90512.88,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q 2.1)= S X=DIV X ^DD(90512.88,.07,1,1,59.2) S X=$P(Y(101),U,1) S D0=I(0,0) 2.4)= S DIH=$S($D(^BNIRTMP(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=90512.88,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^BNIRTMP(D0,0)):^(0),1:""),D0=$P(Y(1),U,7) S:'$D(^APCLVSTS(+D0,0)) D0=-1 S Y(101)=$S($D(^APCLVSTS(D0,0)):^(0),1:"") CREATE VALUE)= #.07:#.01 DELETE VALUE)= NO EFFECT FIELD)= #.08
.08	SORT TEXT	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<3) X` LAST EDITED: `MAY 31, 1994` HELP-PROMPT: `Answer must be 3-60 characters in length.` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the SORT ITEM field of the BNI GENERAL RETRIEVAL TMP File`
.09	PACKAGE	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<2) X` LAST EDITED: `JUL 11, 1994` HELP-PROMPT: `Answer must be 2-4 characters in length.`
.11	DATE RANGE NECESSARY	0;11	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 04, 1998`
.12	FLAT FILE NAME	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 27, 1995` HELP-PROMPT: `Answer must be 1-20 characters in length.`
.13	USER CREATED	0;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `AUG 13, 1996`
1101	SCREEN ITEMS	11;0	POINTER Multiple #90512.89101	90512.89101
1102	PRINT ITEMS	12;0	POINTER Multiple #90512.89102	90512.89102

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | All