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

Package: Mental Health Social Services

Global: ^AMHRPRO

Information

FileMan FileNo	FileMan Filename	Package
9002011.01	MHSS RECORD PROBLEMS (POVS)	Mental Health Social Services

Description

Directly Accessed By Routines, Total: 148

Accessed By FileMan Db Calls, Total: 33

Pointer To FileMan Files, Total: 4

Fields, Total: 7

Field #	Name	Loc	Type	Details
.01	PROBLEM CODE	0;1	POINTER TO MHSS PROBLEM/POV CODES FILE (#9002012.2)	**********************REQUIRED FIELD********************** MHSS PROBLEM/POV CODES(#9002012.2) INPUT TRANSFORM: `S DIC("S")="D CHKICD^AMHUTIL1(Y,$G(AMHDATE),$G(AMHR),$G(DA),$G(AMHEHR))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 29, 2009` SCREEN: `S DIC("S")="D CHKICD^AMHUTIL1(Y,$G(AMHDATE),$G(AMHR),$G(DA),$G(AMHEHR))"` EXPLANATION: `Must not be an inactive code.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002011.01^B` 1)= S ^AMHRPRO("B",$E(X,1,30),DA)="" 2)= K ^AMHRPRO("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002011.01^AZ9^MUMPS` 1)= S:$D(AMHLOOK) DIC("DR")="" 2)= Q
.019	PROBLEM CODE NARRATIVE		COMPUTED	MUMPS CODE: `X ^DD(9002011.01,.019,9.3) S X=$P(Y(9002011.01,.019,101),U,2) S D0=Y(9002011.01,.019,80)` 9.2 = S Y(9002011.01,.019,80)=$S($D(D0):D0,1:""),Y(9002011.01,.019,1)=$S($D(^AMHRPRO(D0,0)):^(0),1:"") 9.3 = X ^DD(9002011.01,.019,9.2) S D0=$P(Y(9002011.01,.019,1),U,1) S:'$D(^AMHPROB(+D0,0)) D0=-1 S Y(9002011.01,.019,101)=$S($D(^AMHPROB(D0,0)):^(0),1:"") ALGORITHM: `#.01:NARRATIVE`
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#9000001)	PATIENT(#9000001) LAST EDITED: `OCT 24, 1993` CROSS-REFERENCE: `9002011.01^AC` 1)= S ^AMHRPRO("AC",$E(X,1,30),DA)="" 2)= K ^AMHRPRO("AC",$E(X,1,30),DA)
.03	MHSS RECORD	0;3	POINTER TO MHSS RECORD FILE (#9002011)	**********************REQUIRED FIELD********************** MHSS RECORD(#9002011) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,8)=$P(^AMHRPRO(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 23, 2002` SCREEN: `S DIC("S")="I $P(^(0),U,8)=$P(^AMHRPRO(DA,0),U,2)"` EXPLANATION: `Must be for current patient.` UNEDITABLE CROSS-REFERENCE: `9002011.01^AD` 1)= S ^AMHRPRO("AD",$E(X,1,30),DA)="" 2)= K ^AMHRPRO("AD",$E(X,1,30),DA)
.04	PROVIDER NARRATIVE	0;4	POINTER TO PROVIDER NARRATIVE FILE (#9999999.27)	PROVIDER NARRATIVE(#9999999.27) OUTPUT TRANSFORM: `S Y=$$PNPV^AMHUTIL2(Y,$G(D0))` LAST EDITED: `SEP 03, 2014`
.07	ADD TO PCC PROBLEM LIST?	0;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `AUG 23, 1993`
.08	DATE OF ONSET	0;8	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 18, 1993`

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