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 | Label References | Local Variables | All

Print Page as PDF

Routine: VPSMRAR7

Package: VA Point of Service

Routine: VPSMRAR7

Information

VPSMRAR7 ;DALOI/KML,WOIFO/BT - Cont. Update of VPS MRAR PDO file ;1/15/15 15:30

Source Information

Source file <VPSMRAR7.m>

Call Graph

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
VA Point of Service	2	($$ADDMRAR,$$FILE,$$RESULT)^VPSMRAR0 $$CHKALR^VPSMRAR2

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: 1

Package	Total	Caller Graph
VA Point of Service	1	VPSMRAR1

Entry Points

Name	Comments	DBIA/ICR reference
SUB57(PTIEN,DTIEN,FLD,DIEFLAG,DATA,REQFLDS)	; file the ALLERGY REACTIONS multiple (853.57) ; INPUTS ; PTIEN : Patient DFN for 853.5 entry ; DTIEN : transaction date/time ien for 853.51 sub-entry ; FLD : Field # where the data will be filed ; DIEFLAG : Filing Type (I = Internal, E = External) ; DATA : composite string assigned to a subscript in the local array passed in by Vecna for the specific field ; REQFLDS : Array of required fields by fieldname and entry number ; OUTPUT ; success : RESULT = Field Name^IENS^Field Value^1 ; failed : RESULT = Field Name^IENS^Field Value^99^error text describing why data did not get filed
CHKREACT(REQFLDS,DATA)	;Check required Allergy Reaction fields ; INPUTS ; REQFLDS : Array of required fields by fieldname and entry number ; DATA : Field Name^IENS^Field Value ; ; OUTPUT ; success : RESULT = Field Name^IENS^Field Value^1 ; failed : RESULT = Field Name^IENS^Field Value^99^error text describing why data did not get filed

External References

Name	Field # of Occurrence
$$ADDMRAR^VPSMRAR0	SUB57+32
$$FILE^VPSMRAR0	SUB57+42
$$RESULT^VPSMRAR0	SUB57+25, SUB57+33, SUB57+38, CHKREACT+13, CHKREACT+20
$$CHKALR^VPSMRAR2	SUB57+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^VPS(853.5 - [#853.5]	SUB57+24, SUB57+31, SUB57+37

Label References

Name	Line Occurrences
$$CHKREACT	SUB57+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDOK	SUB57+32~*, SUB57+33
AIEN	SUB57+24~*, SUB57+25, SUB57+31, SUB57+32, SUB57+37, SUB57+41
ALLERID	SUB57+23~, SUB57+24, CHKREACT+11~, CHKREACT+18, CHKREACT+19
DATA	SUB57~, SUB57+15, SUB57+19, SUB57+23, SUB57+25, SUB57+28, SUB57+33, SUB57+38, SUB57+42, CHKREACT~ , CHKREACT+11, CHKREACT+12, CHKREACT+13, CHKREACT+20
DIEFLAG	SUB57~, SUB57+32, SUB57+42
DTIEN	SUB57~, SUB57+24, SUB57+31, SUB57+32, SUB57+37, SUB57+41
FLD	SUB57~, SUB57+42
IENS	SUB57+41~*, SUB57+42
ISLOCAL	CHKREACT+18~*, CHKREACT+20
ISREMOTE	CHKREACT+19~*, CHKREACT+20
PTIEN	SUB57~, SUB57+24, SUB57+31, SUB57+32, SUB57+37, SUB57+41
REACTID	SUB57+28~, SUB57+31, SUB57+32, SUB57+37, CHKREACT+12~, CHKREACT+13, CHKREACT+18, CHKREACT+19
REACTIEN	SUB57+37~*, SUB57+38, SUB57+41
REQFLDS	SUB57~, SUB57+15, SUB57+19, CHKREACT~
REQFLDS("LOCA	L REACTION ID" , CHKREACT+18
REQFLDS("REMO	TE REACTION ID" , CHKREACT+19, TE REACTION NAME" , CHKREACT+19
RESULT	SUB57+12~, SUB57+15, SUB57+16, SUB57+19, SUB57+20, SUB57+33, SUB57+34, SUB57+42, SUB57+44, CHKREACT+9~ , CHKREACT+13, CHKREACT+14, CHKREACT+20, CHKREACT+21
U	SUB57+23, SUB57+28, CHKREACT+11, CHKREACT+12

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Global Variables Directly Accessed | Label References | Local Variables | All