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 |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: VPSALL01

Package: VA Point of Service

Routine: VPSALL01


Information

VPSALL01 ;DALOI/KML - Retrieve Allergies for Vetlink ;11/20/11 15:30

Source Information

Source file <VPSALL01.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 ($$GET1,GETS)^DIQ  

Entry Points

Name Comments DBIA/ICR reference
GET(VPSRES,VPSDFN) ;
BLDRES(VFL,IENS,ALST,DDFLDS,CTR,RESULTS) ;
; build allergy results array that gets returned to client
; the results consist of allergy data taken from the entry at 120.8 and associated multiples (sub-entries)
;
; INPUT
; VFL - file number
; IENS - internal entry numbers for top entries and any sub-entries
; ALST - contains the data taken from the fields existing at the entry and sub-entries of 120.8 (built from GETS^DIQ)
; DDFLDS - array of fields defined in 120.8
; CTR - Sequential numeric value that is assigned as the subscript to the local results array, passed in by reference
; RESULTS - passed in by reference
;
; OUTPUT
; RESULTS - array of patient allergies taken from specified fields in the patient entry in 120.8
; Each subscript in the array is assigned a composite, delimited string as described in the next comment:
; RESULTS(ctr)="file name^iens (top file, subfile)^field number^field name^data value"
TABLE(DEFS) ;the DD field array built at this procedure will be used when constructing the allergy results array
AFLDS ; valid fields defined in the PATIENT ALLERGIES file (120.8)
; negotiated fields to be given to kiosk for MRAR event or for the purposes of tiu note during PDO invocable period

External References

Name Field # of Occurrence
$$GET1^DIQ GET+12
GETS^DIQ GET+19, GET+25, GET+30

Used in RPC

RPC Name Call Tags
VPS GET ALLERGIES GET

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(120.8 - [#120.8] GETS^DIQ
120.81 GETS^DIQ
120.826 GETS^DIQ
^GMR(120.86 - [#120.86] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] GET+11
^GMR(120.8 - [#120.8] GET+18, GET+23, GET+28

Label References

Name Line Occurrences
BLDRES GET+21, GET+26, GET+31
TABLE GET+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALST GET+9!, GET+21, GET+26, GET+31, BLDRES~
ALST( BLDRES+19, BLDRES+25, BLDRES+27, BLDRES+28, BLDRES+29
CTR BLDRES~, BLDRES+25*, BLDRES+27*, BLDRES+29, BLDRES+30*
DDFLDS GET+14~, GET+17, GET+21, GET+26, GET+31, BLDRES~
DDFLDS( BLDRES+21, BLDRES+22, BLDRES+23
DEFS TABLE~
DEFS( TABLE+7*
I BLDRES+17~, BLDRES+25*
IENS BLDRES~, BLDRES+19, BLDRES+20, BLDRES+25, BLDRES+27, BLDRES+28, BLDRES+29
LINE TABLE+6~, TABLE+7*
LN TABLE+6~, TABLE+7*
N BLDRES+17~, BLDRES+27*
RESULTS BLDRES~
RESULTS( BLDRES+25*, BLDRES+27*, BLDRES+29*
STRING TABLE+6~, TABLE+7*
TRMIEN BLDRES+17~, BLDRES+20*, BLDRES+25, BLDRES+27, BLDRES+29
U BLDRES+22, BLDRES+23, BLDRES+25, BLDRES+27, BLDRES+29, TABLE+7
VCTR GET+14~, GET+16*, GET+21, GET+26, GET+31
VDA GET+14~, GET+15*, GET+18*, GET+19, GET+20, GET+23, GET+24, GET+28, GET+29
VFL BLDRES~, BLDRES+19, BLDRES+21, BLDRES+22, BLDRES+23, BLDRES+25, BLDRES+27, BLDRES+28, BLDRES+29
VFLD BLDRES+17~, BLDRES+18*, BLDRES+19*, BLDRES+21, BLDRES+22, BLDRES+23, BLDRES+25, BLDRES+27, BLDRES+28, BLDRES+29
VFNAME BLDRES+17~, BLDRES+23*, BLDRES+25, BLDRES+27, BLDRES+29
VIEN GET+14~, GET+15*, GET+22*, GET+23*, GET+24, GET+27*, GET+28*, GET+29
VIENS GET+14~, GET+20*, GET+21, GET+24*, GET+25, GET+26, GET+29*, GET+30, GET+31
VINEX BLDRES+17~, BLDRES+22*, BLDRES+24, BLDRES+26, BLDRES+28, BLDRES+29
VPSDFN GET~, GET+10, GET+11, GET+12, GET+18
VPSRA GET+12~*, GET+13
VPSRES GET~, GET+9!, GET+21, GET+26, GET+31, GET+32
VPSRES(0 GET+10*, GET+11*, GET+13*, GET+32*
VSTR BLDRES+17~, BLDRES+21*
Y BLDRES+17~, BLDRES+25*

Marked Items

Name Field # of Occurrence
$T(AFLDS+LN TABLE+7
Info |  Source |  Call Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All