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 |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: MCARAM4

Package: Medicine

Routine: MCARAM4


Information

MCARAM4 ;WASH ISC/JKL-MUSE TRANSFER LAB DATA TO LOCAL ;5/20/94 15:35

Source Information

Source file <MCARAM4.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Medicine 1 ($$AR,$$DFCK,$$SLTS)^MCARAM4  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Medicine 6 MCARAM  MCARAM1  MCARAM2  MCARAM3  MCARAM4  MCARAM5  

Entry Points

Name Comments DBIA/ICR reference
AR(MCA,MCAA,MCD,MCFP,MCLP,MCCK) ;Sets l/t stripped data field into an array
; USAGE: S X=$$AR^MCARAM4(.A,B,C,D,E)
; WHERE: .A = array where data is placed
; B = array argument for data field
; C = data field value
; D = first position of data field
; E = last position of data field
; F = 1 to check numeric data field value for positive int value
; 2 to check "" for both positive and negative int value
; 3 to check "" for pos,neg,int, and decimal values
DFCK(MCV,MCCK) ; Checks numeric,negative,positive,integer,decimal value
; USAGE: S X=$$DFCK^MCARAM4(A,B)
; WHERE: A=data field value
; B=1 for positive value numeric (integer) check
; B=2 for positive and negative value numeric (integer) check
; B=3 for positive, negative, decimal, or integer numeric check
; if successful, returns function value of 0
; if unsuccessful, returns error message for incorrect field format
SLTS(MCV) ; Strips leading and trailing spaces from data fields
; USAGE: S X=$$SLTS^MCARAM4(.A)
; WHERE: MCV=data field value
; .A = value where data is placed
; if successful, returns function value of 0 and data field value
; if unsuccessful, returns error message for incorrect field format
DGCK(MCA) ;Removes null lines and resets numbering of diagnosis array
; USAGE: S X=$$DGCK^MCARAM4(.A)
; WHERE: MCA=diagnosis array
; .A=diagnosis array renumbered without null lines
; A("DX,0")=total number of non-null diagnosis lines
; if successful, returns function value of 0 and diagnosis array
; if unsuccessful, returns error message and A("DX,0")=0
RXCK(MCA) ;Removes null lines and resets numbering of medication array
; USAGE: S X=$$RXCK^MCARAM4(.A)
; WHERE: MCA=medication array
; .A=medication array renumbered without null lines
; A("RX,0")=total number of non-null medication lines
; if successful, returns function value of 0 and medication array
; if unsuccessful, returns error message and A("RX,0")=0
DGCT(MCA,MCD,MCL) ;Fill diagnosis array from continuation record
; USAGE: S X=$$DGCT^MCARAM4(.A,B,C)
; WHERE: MCA=diagnosis array
; .A=diagnosis array renumbered without null lines
; B=data field value, C=line number of data
; A("DX,0")=total number of non-null diagnosis lines
; "DX,L"=12th line of diagnosis, "DX,V"=22nd line
; if successful, returns function value of 0 and diagnosis array
; if unsuccessful, returns error message and A("DX,0")=0
ERR ;Error return

External References

Name Field # of Occurrence
$$AR^MCARAM4 DGCT+11, DGCT+12
$$DFCK^MCARAM4 AR+13, AR+14, AR+15
$$SLTS^MCARAM4 AR+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG("B" RXCK+9

Naked Globals

Name Field # of Occurrence
^( RXCK+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
MCA AR~, DGCK~, RXCK~, DGCT~, DGCT+11, DGCT+12
MCA( AR+12*, AR+13, AR+14, AR+15, DGCK+9!*, RXCK+9*, RXCK+10!
MCA("CONT" DGCT+10
MCA("DX,0" DGCK+10*
MCA("RX,0" RXCK+8*, RXCK+9, RXCK+11*
MCAA AR~, AR+12, AR+13, AR+14, AR+15
MCCK AR~, AR+11*, AR+13, AR+14, AR+15, DFCK~, DFCK+11, DFCK+12, DFCK+13
MCD AR~, AR+12, DGCT~, DGCT+11, DGCT+12
MCERR AR+10~, AR+12*, AR+13*, AR+14*, AR+15*, DFCK+8~, DFCK+9*, DFCK+14*, SLTS+6~, SLTS+7*
, SLTS+10*, DGCK+7~, DGCK+11*, RXCK+7~, RXCK+8*, RXCK+11*, DGCT+9~, DGCT+11*, DGCT+12*, ERR+1
MCFP AR~, AR+12
MCI AR+10~, AR+12*, SLTS+6~, SLTS+8*, SLTS+10, DGCK+7~, DGCK+8*, DGCK+9*, DGCK+10, RXCK+7~
, RXCK+9*, DGCT+9~, DGCT+10*, DGCT+11, DGCT+12
MCJ SLTS+6~, SLTS+9*, SLTS+10, DGCK+7~, DGCK+8*, DGCK+9*, RXCK+7~, RXCK+9*, RXCK+11
MCK DGCK+7~, DGCK+9*, RXCK+7~, RXCK+9*, RXCK+10
MCL DGCT~, DGCT+11
MCLP AR~, AR+12
MCV DFCK~, DFCK+9, DFCK+10, DFCK+11, DFCK+12, DFCK+13, SLTS~, SLTS+7, SLTS+8, SLTS+9
, SLTS+10*
U RXCK+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All