Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Routine: MCARAM5

Package: Medicine

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

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables |  All