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

Package: Mental Health Social Services

Global: ^AMHRPROV

Information

FileMan FileNo	FileMan Filename	Package
9002011.02	MHSS RECORD PROVIDERS	Mental Health Social Services

Description

Directly Accessed By Routines, Total: 82

Package	Total	Routines
Mental Health Social Services	52	AMHBHRU AMHBHSC AMHEHR AMHEHR1 AMHEXD2 AMHEYC1 AMHGEVF AMHGPCCL AMHGU AMHLE2 AMHLEDV AMHLEFP AMHLEFP2 AMHLEFPP AMHLEL AMHLEP3 AMHLEP4 AMHPCCL1 AMHPHQO AMHRAS1 AMHRAS2 AMHRAS31 AMHRAS4 AMHRAS5 AMHRBV1 AMHRC4 AMHRDE1 AMHRDE2 AMHRDE31 AMHRDE4 AMHRDE5 AMHRDV1 AMHRDV2 AMHRDV31 AMHRDV4 AMHRDV5 AMHRGADO AMHRLP3 AMHRLU2 AMHRP21 AMHRP31 AMHRP4P AMHRP8 AMHRP8P AMHRP9P AMHRSB1 AMHRSR1 AMHRSR2 AMHRSR31 AMHRSR4 AMHRSR5 AMHUTIL
Patient Care Component Reports	16	APCLAL1 APCLAL1A APCLAL2 APCLAL31 APCLAL4 APCLAL5 APCLDE1 APCLDE2 APCLDE31 APCLDE4 APCLDE5 APCLDV1 APCLDV2 APCLDV31 APCLDV4 APCLDV5
IHS GPRA Information System	10	BGP0D51 BGP1D51 BGP2D51 BGP3D51 BGP4D51 BGP5D51 BGP6D51 BGP7D51 BGP8D51 BGP9D51
Patient Chart	3	BPCBHADM BPCBHRU BPCBHSC
Local Area Programs	1	AZAXDPM1

Accessed By FileMan Db Calls, Total: 19

Package	Total	Routines
Mental Health Social Services	19	AMHCDBL AMHCDBL1 AMHCDBL2 AMHEGR AMHEHR AMHGDCOM AMHGDVF AMHGDVF1 AMHGEVF AMHLEA AMHLEA1 AMHLEA2 AMHLEAR1 AMHLEDV AMHLEGP1 AMHLEIC AMHLENS AMHLENS1 AMHLEP2

Pointer To FileMan Files, Total: 3

Package	Total	FileMan Files
IHS Patient	1	PATIENT(#9000001)[.02]
Kernel	1	NEW PERSON(#200)[.01]
Mental Health Social Services	1	MHSS RECORD(#9002011)[.03]

Fields, Total: 5

Field #	Name	Loc	Type	Details
.01	PROVIDER	0;1	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $$ACTPROV^AMHUTIL(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 20, 1997` SCREEN: `S DIC("S")="I $$ACTPROV^AMHUTIL(Y)"` EXPLANATION: `Must be an active provider on the date of the contact.` CROSS-REFERENCE: `9002011.02^B` 1)= S ^AMHRPROV("B",$E(X,1,30),DA)="" 2)= K ^AMHRPROV("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002011.02^AZ9^MUMPS` 1)= S:$D(AMHLOOK) DIC("DR")="" 2)= Q
.019	PROVIDER DISCIPLINE		COMPUTED	MUMPS CODE: `X ^DD(9002011.02,.019,9.3) S X=$S('$D(^DIC(7,+$P(Y(9002011.02,.019,101),U,5),0)):"",1:$P(^(0),U,1)) S D0=Y(9002011.02,.019,80)` 9.2 = S Y(9002011.02,.019,80)=$S($D(D0):D0,1:""),Y(9002011.02,.019,1)=$S($D(^AMHRPROV(D0,0)):^(0),1:"") 9.3 = X ^DD(9002011.02,.019,9.2) S D0=$P(Y(9002011.02,.019,1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(9002011.02,.019,101)=$S($D(^VA(200,D0,"PS")):^("PS"),1:"") ALGORITHM: `#.01:PROVIDER CLASS`
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#9000001)	PATIENT(#9000001) LAST EDITED: `OCT 24, 1993` CROSS-REFERENCE: `9002011.02^AC` 1)= S ^AMHRPROV("AC",$E(X,1,30),DA)="" 2)= K ^AMHRPROV("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(^AMHRPROV(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 30, 1993` SCREEN: `S DIC("S")="I $P(^(0),U,8)=$P(^AMHRPROV(DA,0),U,2)"` EXPLANATION: `Must be for current patient.` UNEDITABLE CROSS-REFERENCE: `9002011.02^AD` 1)= S ^AMHRPROV("AD",$E(X,1,30),DA)="" 2)= K ^AMHRPROV("AD",$E(X,1,30),DA)
.04	PRIMARY/SECONDARY	0;4	SET	**********************REQUIRED FIELD********************** 'P' FOR PRIMARY; 'S' FOR SECONDARY; LAST EDITED: `OCT 27, 1993`

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