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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: VPSMRAR2

Package: VA Point of Service

Routine: VPSMRAR2


Information

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

Source Information

Source file <VPSMRAR2.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA FileMan 1 $$GET1^DIQ  
VA Point of Service 1 ($$ADDMRAR,$$FILE,$$RESULT)^VPSMRAR0  

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

Package Total Caller Graph
VA Point of Service 2 VPSMRAR1  VPSMRAR7  

Entry Points

Name Comments DBIA/ICR reference
SUB52(PTIEN,DTIEN,FLD,DIEFLAG,DATA,REQFLDS) ; file the ALLERGY multiple (853.52)
; INPUTS
; PTIEN : D0 - Patient DFN for 853.5 entry1
; DTIEN : D1 - 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 : Field Name^IENS^Field Value
; 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
SUB52X(SUBFIL,SUBS,PTIEN,DTIEN,DATA,REQFLDS,DIEFLAG) ; file the ALLERGY CHANGED INDICATORS (853.525)
; INPUTS
; SUBFIL : Sub File# : 853.525, 853.526, or 853.527
; SUBS : Subscript associated with the Sub File : ACHG, ACNFR, ADISCR
; PTIEN : D0 - Patient DFN for 853.5 entry1
; DTIEN : D1 - transaction date/time ien for 853.51 sub-entry
; DATA : Field Name^IENS^Field Value
; REQFLDS : Array of required fields by fieldname and entry number
; DIEFLAG : Filing Type (I = Internal, E = External)
;
; 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
CHKALR(REQFLDS,DATA) ;Check required Allergy 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
CHKALC(REQFLDS,DATA) ;Check required Allergy Changed/confirmed/discrepancy 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
$$GET1^DIQ SUB52+31
$$ADDMRAR^VPSMRAR0 SUB52+23, SUB52X+33
$$FILE^VPSMRAR0 SUB52+37
$$RESULT^VPSMRAR0 SUB52+24, SUB52+29, SUB52+31, SUB52X+23, SUB52X+30, SUB52X+34, SUB52X+35, CHKALR+12, CHKALR+19, CHKALC+12
, CHKALC+16, CHKALC+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(120.8 - [#120.8] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VPS(853.3 - [#853.3] CHKALC+19
^VPS(853.5 - [#853.5] SUB52+22, SUB52+28, SUB52X+22, SUB52X+29

Label References

Name Line Occurrences
$$CHKALC SUB52X+17
$$CHKALR SUB52+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDOK SUB52+23~*, SUB52+24
AIEN SUB52X+22~*, SUB52X+23, SUB52X+29, SUB52X+33
ALLCHGID SUB52X+26~*, SUB52X+29, SUB52X+33, CHKALC+15~*, CHKALC+16, CHKALC+19
ALLERID SUB52+21~*, SUB52+22, SUB52+23, SUB52+28, SUB52X+21~*, SUB52X+22, CHKALR+11~*, CHKALR+12, CHKALR+17, CHKALR+18
, CHKALC+11~*, CHKALC+12
ALLERIEN SUB52+28~*, SUB52+29, SUB52+36
DATA SUB52~, SUB52+16, SUB52+21, SUB52+24, SUB52+29, SUB52+31, SUB52+37, SUB52X~, SUB52X+17, SUB52X+21
, SUB52X+23, SUB52X+26, SUB52X+30, SUB52X+34, SUB52X+35, CHKALR~, CHKALR+11, CHKALR+12, CHKALR+19, CHKALC~
, CHKALC+11, CHKALC+12, CHKALC+15, CHKALC+16, CHKALC+19
DIEFLAG SUB52~, SUB52+23, SUB52+37, SUB52X~
DTIEN SUB52~, SUB52+22, SUB52+23, SUB52+28, SUB52+36, SUB52X~, SUB52X+22, SUB52X+29, SUB52X+33
EXIST SUB52X+29~*, SUB52X+30
FLD SUB52~, SUB52+31, SUB52+35, SUB52+37
IENS SUB52+36~*, SUB52+37
ISLOCAL CHKALR+17~*, CHKALR+19
ISREMOTE CHKALR+18~*, CHKALR+19
OK SUB52X+33~*, SUB52X+34, SUB52X+35
PTIEN SUB52~, SUB52+22, SUB52+23, SUB52+28, SUB52+31, SUB52+36, SUB52X~, SUB52X+22, SUB52X+29, SUB52X+33
REQFLDS SUB52~, SUB52+16, SUB52X~, SUB52X+17, CHKALR~, CHKALC~
REQFLDS("LOCA L ALLERGY ID" , CHKALR+17
REQFLDS("REMO TE ALLERGY ID" , CHKALR+18, TE ALLERGY NAME" , CHKALR+18
RESULT SUB52+13~*, SUB52+16*, SUB52+17, SUB52+24*, SUB52+25, SUB52+29*, SUB52+30, SUB52+31*, SUB52+32, SUB52+37*
, SUB52+39, SUB52X+14~*, SUB52X+17*, SUB52X+18, SUB52X+23*, SUB52X+24, SUB52X+30*, SUB52X+31, SUB52X+34*, SUB52X+35*
, SUB52X+37, CHKALR+9~*, CHKALR+12*, CHKALR+13, CHKALR+19*, CHKALR+20, CHKALC+9~*, CHKALC+12*, CHKALC+13, CHKALC+16*
, CHKALC+17, CHKALC+19*, CHKALC+20
SUBFIL SUB52X~, SUB52X+33
SUBS SUB52X~, SUB52X+29
U SUB52+21, SUB52+31, SUB52X+21, SUB52X+26, CHKALR+11, CHKALC+11, CHKALC+15
WP SUB52+35~*, SUB52+37
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All