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 | Found Entries | All

Print Page as PDF

Global: ^BCHGRPDA

Package: IHS RPMS CHR System

Global: ^BCHGRPDA

Information

FileMan FileNo	FileMan Filename	Package
90002.68	BCH GROUP ASSESSMENTS	IHS RPMS CHR System

Description

This file contains one record for each assessment on the CHR PCC Form.

Directly Accessed By Routines, Total: 3

Accessed By FileMan Db Calls, Total: 3

Pointer To FileMan Files, Total: 5

Fields, Total: 11

Field #	Name	Loc	Type	Details
.01	PROBLEM CODE	0;1	POINTER TO CHR HEALTH PROBLEM CODES FILE (#90002.53)	**********************REQUIRED FIELD********************** CHR HEALTH PROBLEM CODES(#90002.53) INPUT TRANSFORM: `S DIC("S")="I '$P(^(0),U,6)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 28, 2005` SCREEN: `S DIC("S")="I '$P(^(0),U,6)"` EXPLANATION: `MUST NOT BE AN INACTIVE CODE` CROSS-REFERENCE: `90002.68^B` 1)= S ^BCHGRPDA("B",$E(X,1,30),DA)="" 2)= K ^BCHGRPDA("B",$E(X,1,30),DA) CROSS-REFERENCE: `90002.68^AY9^MUMPS` 1)= S:$D(BCHLOOK) DIC("DR")="" 2)= Q Sets DIC("DR") to prevent the asking of identifiers when file shifting.
.03	GROUP FORM	0;3	POINTER TO BCH GROUP DEFINITION FILE (#90002.67)	**********************REQUIRED FIELD********************** BCH GROUP DEFINITION(#90002.67) LAST EDITED: `NOV 16, 2011` CROSS-REFERENCE: `90002.68^AD` 1)= S ^BCHGRPDA("AD",$E(X,1,30),DA)="" 2)= K ^BCHGRPDA("AD",$E(X,1,30),DA)
.04	SERVICE CODE	0;4	POINTER TO CHR SERVICE CODES FILE (#90002.54)	**********************REQUIRED FIELD********************** CHR SERVICE CODES(#90002.54) INPUT TRANSFORM: `S DIC("S")="I $$SC^BCHUTIL(Y)" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `OCT 27, 2011` SCREEN: `S DIC("S")="I $$SC^BCHUTIL(Y)"` EXPLANATION: `If this is a patient encounter, must be a patient related service code.`
.05	SERVICE MINUTES	0;5	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 26, 1997` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` CROSS-REFERENCE: `^^TRIGGER^90002^.27` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(90002.68,.05,1,1,89.2) S X=$P(Y(101),U,27) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(90002.68,.05,1,1,1.4) 1.4)= S DIH=$S($D(^BCHR(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,27)=DIV,DIH=90002,DIG=.27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(90002.68,.05,1,1,89.2) S X=$P(Y(101),U,27) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU-X X ^DD(90002.68,.05,1,1,2.4) 2.4)= S DIH=$S($D(^BCHR(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,27)=DIV,DIH=90002,DIG=.27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^BCHGRPDA(D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^BCHR(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^BCHR(D0,0)):^(0),1:"") CREATE VALUE)= TOTAL SERVICE TIME+SERVICE MINUTES DELETE VALUE)= TOTAL SERVICE TIME-OLD SERVICE MINUTES FIELD)= #.03:#.27
.06	NARRATIVE	0;6	POINTER TO PROVIDER NARRATIVE FILE (#9999999.27)	**********************REQUIRED FIELD********************** PROVIDER NARRATIVE(#9999999.27) LAST EDITED: `MAR 22, 2011`
.08	CANNED NARRATIVE	0;8	POINTER TO CHR CANNED NARRATIVES FILE (#90002.59)	CHR CANNED NARRATIVES(#90002.59) INPUT TRANSFORM: `S DIC("S")="I $$SETDICS^BCHUTIL($G(BCHPROB),$G(BCHSERV))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 15, 2011` SCREEN: `S DIC("S")="I $$SETDICS^BCHUTIL($G(BCHPROB),$G(BCHSERV))"` EXPLANATION: `MUST BE APPROPRIATE.`
.09	CNNCOUNT	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>$S($G(BCHCOUNT):BCHCOUNT,1:99))!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 15, 2011` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1101	ADDITIONAL NARRATIVE	11;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `OCT 25, 2011` HELP-PROMPT: `Answer must be 1-80 characters in length.`
8101	CANNED NARRATIVES	81;0	Multiple #90002.6881	90002.6881
9101	NARRATIVE TEMP	91;1	POINTER TO PROVIDER NARRATIVE FILE (#9999999.27)	PROVIDER NARRATIVE(#9999999.27) LAST EDITED: `MAR 22, 2011`
9201	COUNT MULT	92;0	Multiple #90002.6892	90002.6892

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