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: ^BCHRGAS

Package: IHS RPMS CHR System

Global: ^BCHRGAS

Information

FileMan FileNo	FileMan Filename	Package
90002.98	CHR 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: 2

Pointer To FileMan Files, Total: 5

Fields, Total: 12

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.98^B` 1)= S ^BCHRGAS("B",$E(X,1,30),DA)="" 2)= K ^BCHRGAS("B",$E(X,1,30),DA) CROSS-REFERENCE: `90002.98^AY9^MUMPS` 1)= S:$D(BCHLOOK) DIC("DR")="" 2)= Q Sets DIC("DR") to prevent the asking of identifiers when file shifting.
.02	GROUP FORM	0;2	POINTER TO CHR GROUP FORM TEMP FILE FILE (#90002.97)	CHR GROUP FORM TEMP FILE(#90002.97) LAST EDITED: `NOV 04, 2011` CROSS-REFERENCE: `90002.98^AC` 1)= S ^BCHRGAS("AC",$E(X,1,30),DA)="" 2)= K ^BCHRGAS("AC",$E(X,1,30),DA)
.03	GROUP FORM	0;3	POINTER TO CHR GROUP FORM TEMP FILE FILE (#90002.97)	**********************REQUIRED FIELD********************** CHR GROUP FORM TEMP FILE(#90002.97) LAST EDITED: `NOV 04, 2011` CROSS-REFERENCE: `90002.98^AD` 1)= S ^BCHRGAS("AD",$E(X,1,30),DA)="" 2)= K ^BCHRGAS("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: `NOV 16, 2011` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits`
.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.9881	90002.9881
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.9892	90002.9892

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