Routine: MCARAM5

Information

MCARAM5 ;WASH ISC/JKL-MUSE TRANSFER LOCAL DATA INTO DHCP ;4/24/96 09:24

Source Information

Source file <MCARAM5.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Medicine	4	($$DGCK,$$RXCK)^MCARAM4 ($$NMCHK,$$SSNCHK)^MCARAM5 ($$LNAME,$$LSSN)^MCARAM6 $$LOG^MCARAM7
VA Fileman	3	NOW^%DTC FILE^DICN ^DIE

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Medicine	2	MCARAM3 MCARAM5

Entry Points

Name	Comments	DBIA/ICR reference
EKG(MCA,MCE)	;Transfer local array data into new EKG record in DHCP ; USAGE: S X=$$EKG^MCARAM5(.A,.B) ; WHERE: A=array of local data ; B=array of DHCP data ; including internal record number of EKG file ; if successful, returns function value of 0 ; if unsuccessful, returns error message ; check for valid SSN
EKGDG(MCA,MCE)	; Transfer local array diagnosis data into EKG record ; USAGE: S X=$$EKGDG^MCARAM5(.A,.B) ; WHERE: A=array of diagnosis data ; B=array of DHCP data ; including internal record number of EKG file ; if successful, returns function value of 0 ; if unsuccessful, returns error message
SSNCHK(MCA,MCP)	;Check SSN input ; USAGE: S X=$$SSNCHK^MCARAM5(.MCA,.MCP) ; WHERE: MCA=array of local data ; MCP=array of DHCP patient data ; if successful, returns function value of 0 ; if unsuccessful, returns error message
EKGRX(MCA,MCE)	; Transfer local array medication data into EKG record ; USAGE: S X=$$EKGDG^MCARAM5(.A,.B) ; WHERE: A=array of medication data ; B=array of DHCP data ; including internal record number of EKG file ; if successful, returns function value of 0 ; if unsuccessful, returns error message
EKGOR(MCA,MCE)	;Transfer order entry data into EKG record ; USAGE: S X=$$EKGOR^MCARAM5(.A,.B) ; WHERE: A=array of local data ; including print name for ECG procedure/subspecialty ; B=array of DHCP data ; including internal record number of EKG file ; if successful, returns function value of 0 ; if unsuccessful, returns error message
NMCHK(MCA,MCP)	;Check name input against patient data ; Marquette allows 16 chars for last name and 10 chars for first etc. ; USAGE: S X=$$NMCHK^MCARAM5(.MCA,.MCP) ; WHERE: MCA=array of local data ; MCP=array of DHCP patient data ; if successful, returns function value of 0 ; if unsuccessful, returns error message

External References

Name	Field # of Occurrence
NOW^%DTC	EKG+24
FILE^DICN	EKG+20
^DIE	EKGRX+12
$$DGCK^MCARAM4	EKGDG+9
$$RXCK^MCARAM4	EKGRX+10
$$NMCHK^MCARAM5	EKG+10
$$SSNCHK^MCARAM5	EKG+11
$$LNAME^MCARAM6	EKG+11
$$LSSN^MCARAM6	EKG+9
$$LOG^MCARAM7	EKG+21, EKGDG+8, EKGDG+9, EKGRX+8, EKGRX+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^MCAR(691.5 - [#691.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	SSNCHK+7
^MCAR(690 - [#690]	EKG+13*
^MCAR(691.5 - [#691.5]	EKG+24, EKGDG+8, EKGDG+11, EKGDG+12, EKGRX+8, EKGRX+9, EKGRX+13*

Local Variables

Name	Field # of Occurrence
%	EKG+8~, EKG+24
>> DA	EKGRX+12*
>> DA(1	EKGRX+11*
DD	EKG+19!
DIC	EKG+8~, EKG+19*
DIC("DR"	EKG+16, EKG+18
DIC(0	EKG+19*
>> DIE	EKGRX+11*
DLAYGO	EKG+19~*
DO	EKG+19!
>> DR	EKGRX+12*
MCA	EKG~, EKG+10, EKG+11, EKGDG~, EKGDG+9, EKGRX~, EKGRX+10, EKGOR~, NMCHK~, SSNCHK~
MCA(	EKG+9, EKG+16, EKGDG+11, SSNCHK+8
MCA("DT"	EKG+9, EKG+11, EKG+19
MCA("LNAME"	NMCHK+8*, NMCHK+9
MCA("NAME"	EKG+11, NMCHK+8
MCA("RX,0"	EKGRX+12
MCA(1	EKG+16*
MCA(11	EKG+15*
MCE	EKG~, EKGDG~, EKGRX~, EKGOR~
MCE("EKG"	EKG+23*, EKG+24, EKGDG+8, EKGDG+11, EKGDG+12, EKGRX+8, EKGRX+9, EKGRX+11, EKGRX+13
MCERR	EKG+8~, EKG+9, EKG+10, EKG+11, EKGDG+9, EKGRX+10, NMCHK+7~, NMCHK+9, NMCHK+10, SSNCHK+6~ , SSNCHK+8*, SSNCHK+9
MCI	EKG+8~, EKG+16, EKGDG+7~, EKGDG+10, EKGDG+11, EKGRX+7~, EKGRX+12, EKGRX+13, NMCHK+7~, NMCHK+9* , SSNCHK+6~
MCJ	EKGDG+7~, EKGDG+11*, EKGDG+12
MCP	EKG+8~, EKG+9, EKG+10, EKG+11, NMCHK~, SSNCHK~
MCP("LNAME"	NMCHK+8*, NMCHK+9
MCP("NAME"	NMCHK+8
MCP("SSN"	SSNCHK+7*, SSNCHK+8
MCP(1	EKG+13, EKG+16, SSNCHK+7
U	EKG+13, EKGDG+12, EKGRX+13
X	EKG+8~, EKG+19*
Y	EKG+8~, EKG+21, EKG+23

Customize PDF page

Package: Medicine

Routine: MCARAM5

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed