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 |  Marked Items  | All
Print Page as PDF
Routine: VPSMRAR0

Package: VA Point of Service

Routine: VPSMRAR0


Information

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

Source Information

Source file <VPSMRAR0.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 $$STRIP^XLFSTR  
VA FileMan 1 (FILE,UPDATE,WP)^DIE  

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
VA Point of Service 6 VPSMRAR1  VPSMRAR2  VPSMRAR3  VPSMRAR4  VPSMRAR5  VPSMRAR7  

Entry Points

Name Comments DBIA/ICR reference
TABLE(ARRAY) ;build array of valid fields defined to VPS MRAR PDO (#853.5)
ERROR(FDAERR,STRING,MSG) ;
; INPUT
; FDAERR : error array that was created when attempting to file the changes
; STRING : Field Name^IENS^Field Value
; IENS is composite string assigned to a subscript in the local array passed in by Vecna for the specific field
; MSG : message to be appended to the returned result
RESULT(DATA,RETCODE,ERRMSG) ; return result with a structure recognized by vecna
; INPUT
; DATA : Field Name^IENS^Field Value
; IENS is composite string assigned to a subscript in the local array passed in by Vecna for the specific field
; RETCODE : Return Code
; ERRMSG : Error Message (optional)
GREQFLD(VARRAY,DDARRY,REQFLDS) ;Build REQFLDS array. Each sub file must have the required field in the array otherwise generates error
; INPUTS
; VARRAY : encounter, statistics, allergy and medication related data sent in a subscripted array by kiosk client
; VARRAY(n) = FIELD NAME^ARRAY IENS^FIELD VALUE
; DDARRY : array of DD definitions defined at 853.51, 853.52, 853.53, 853.57 used for
; validating and filing the data sent by kiosk client
; each subscript at this array is constructed as:
; DDARRY(n) = FILE NUMBER^FIELD NUMBER^FIELD NAME
; OUTPUT
; REQFLDS : array of required field name by required fieldname and entry number
; if the required field name and value exists in VARRAY, the node (REQFLDS(reqfieldname, entry#)) will be defined.
ADDMRAR(SUBFIL,SUBS,ENTRYNO,DIEFLAG) ;Add multiple entry
; INPUTS
; PTIEN : D0 - Patient DFN for 853.5 entry
; DTIEN : D1 - transaction date/time ien for 853.51 sub-entry
; ENTRYNO : Entry Number
; DIEFLAG : Filing Type (I = Internal, E = External)
; OUTPUT
; Success : > 0
; Failed : 0
FILE(FIL,WP,IENS,FLD,DIEFLAG,DATA) ; Store field in FIL
; INPUTS
; FIL : File # where the data will be filed
; WP : Boolean indicates whether or not the field is a WP field
; IENS : IENS sub script where the data will be filed
; FLD : Field # where the data will be filed
; DIEFLAG : Filing Type (I = Internal, E = External)
; 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
MRARFLDS ; list of encounter, MRAR, and Kiosk statistics fields defined in VPS MRAR PDO file (#853.5)

External References

Name Field # of Occurrence
FILE^DIE FILE+22
UPDATE^DIE ADDMRAR+11
WP^DIE FILE+17
$$STRIP^XLFSTR GREQFLD+39

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("DIERR" ADDMRAR+10!, ADDMRAR+12, ADDMRAR+13!

Label References

Name Line Occurrences
$$ERROR FILE+25
$$RESULT ERROR+16, ERROR+17, FILE+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDOK ADDMRAR+12~*, ADDMRAR+14
ARRAY TABLE~, TABLE+6!
ARRAY( TABLE+7*
DATA RESULT~, RESULT+11, FILE~, FILE+16, FILE+21, FILE+24, FILE+25
DATA(1 FILE+16*
DDARRY GREQFLD~
DDFLD GREQFLD+30~, GREQFLD+34*, GREQFLD+35, GREQFLD+38, GREQFLD+40, GREQFLD+41, GREQFLD+42
DIEFLAG ADDMRAR~, ADDMRAR+11, FILE~, FILE+22
ENTRY2 GREQFLD+30~, GREQFLD+36*, GREQFLD+41, GREQFLD+42
ENTRY3 GREQFLD+30~, GREQFLD+37*, GREQFLD+42
ENTRYNO ADDMRAR~, ADDMRAR+9
ERRMSG RESULT~, RESULT+13
ERRNUM ERROR+12~*, ERROR+13*, ERROR+14
ERRTXT ERROR+14~*, ERROR+15, ERROR+17
EXIST ERROR+15~*, ERROR+16, ERROR+17
FDAERR ERROR~
FDAERR("DIERR" ERROR+13, ERROR+14
FIL FILE~, FILE+17, FILE+21
FLD FILE~, FILE+17, FILE+21
FLDVAL GREQFLD+30~, GREQFLD+39*, GREQFLD+41, GREQFLD+42
IENS FILE~, FILE+17, FILE+21
LINE TABLE+5~, TABLE+7*
LN TABLE+5~, TABLE+7*
MSG ERROR~, ERROR+17
REQFLDS GREQFLD~
REQFLDS( GREQFLD+38, GREQFLD+40*, GREQFLD+41*, GREQFLD+42*
REQFLDS("ADD ALLERGY-PROVIDER" , GREQFLD+22*, ALLERGY-VET" , GREQFLD+21*
REQFLDS("ENCO UNTER CLINIC" , GREQFLD+14*
REQFLDS("INTE RFACE MODULE" , GREQFLD+15*
REQFLDS("KIOS K GROUP" , GREQFLD+13*
REQFLDS("LOCA L ALLERGY ID" , GREQFLD+16*, L REACTION ID" , GREQFLD+26*
REQFLDS("MED ID" , GREQFLD+19*
REQFLDS("MEDI CATION NAME" , GREQFLD+20*
REQFLDS("PATI ENT-FACING ADD MEDICATION" , GREQFLD+23*
REQFLDS("REMO TE ALLERGY ID" , GREQFLD+17*, TE ALLERGY NAME" , GREQFLD+18*, TE REACTION ID" , GREQFLD+27*, TE REACTION NAME" , GREQFLD+28*
REQFLDS("STAF F VIEW ADD MEDICATION" , GREQFLD+24*
REQFLDS("VET VIEW ADD MEDICATION" , GREQFLD+25*
RESULT ERROR+11~, ERROR+16*, ERROR+17*, ERROR+18, RESULT+10~, RESULT+11*, RESULT+12*, RESULT+13*, RESULT+14, FILE+24*
, FILE+25*, FILE+27
RETCODE RESULT~, RESULT+12
STRING TABLE+5~, TABLE+7*, ERROR~, ERROR+16, ERROR+17
SUB GREQFLD+31~*, GREQFLD+33*, GREQFLD+34, GREQFLD+36, GREQFLD+37, GREQFLD+39
SUBFIL ADDMRAR~, ADDMRAR+9
SUBS ADDMRAR~, ADDMRAR+9
U TABLE+7, RESULT+11, RESULT+12, RESULT+13, GREQFLD+34, GREQFLD+36, GREQFLD+37, GREQFLD+39, FILE+16, FILE+21
VARRAY GREQFLD~
VARRAY( GREQFLD+33, GREQFLD+34, GREQFLD+36, GREQFLD+37, GREQFLD+39
VPSERR FILE+13~, FILE+24, FILE+25
VPSFDA ADDMRAR+9~, FILE+20~
VPSFDA( ADDMRAR+9*, FILE+21*
VPSFILE GREQFLD+30~
WP FILE~, FILE+15, FILE+19

Marked Items

Name Field # of Occurrence
$T(MRARFLDS+LN TABLE+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All