VPSRPC16 ;BPOIFO/EL,WOIFO/BT - Patient Demographic (continue);07/31/14 13:07
Source file <VPSRPC16.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| VA Point of Service | 4 | VPSAPPT VPSRPC1 VPSRPC15 VPSSEND |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETDEM(VPSARR,DFN) | ;given DFN, returns the patient demographics, insurance, and up-coming appointments.
; OUTPUT ; VPSARR - passed in by reference; this is the output array to store patient demographics ; INPUT ; DFN - patient DFN (This value must be validated before calling this procedure) |
|
| DEM(VPSARR,DFN) | ; Store Patient Demographic Data
; -- Store patient DFN |
|
| SENLOG(VPSARR,DFN) | ; Check Patient Sensitive Record File-38.1
|
|
| ELIG(VPSARR,DFN) | ; Eligibily
|
|
| INP(VPSARR,DFN) | ;
|
|
| ENR(VPSARR,DFN) | ; Enrollment
|
|
| ADD(VPSARR,DFN) | ; Addresses
|
|
| SETPERM(VPSARR,DFN,VAPA) | ; PERM ADDRESS
|
|
| SETMP(VPSARR,DFN,VAPA) | ; SET TEMP ADD
|
|
| SETCONF(VPSARR,DFN,VAPA) | ;Confindential address
|
|
| OAD(VPSARR,DFN) | ; Other Patient Variables
|
|
| SET(VPSARR,VPSFL,VPSIEN,VPSFLD,VPSDA,VPSDS) | ;Set line item to output array
|
| Name | Field # of Occurrence |
|---|---|
| GET^DGENA | ENR+3 |
| NOTICE^DGSEC4 | SENLOG+10 |
| PTSEC^DGSEC4 | SENLOG+5 |
| $$GET1^DIQ | GETDEM+12, ELIG+4, ELIG+12, ELIG+18, ELIG+22, ENR+5, ENR+6, ENR+21, ENR+23, ENR+30 , ENR+32, ENR+34, ENR+36, ENR+38, ENR+40, SETPERM+11, SETPERM+12, SETPERM+13, SETPERM+14, SETPERM+15 , SETPERM+16, SETMP+13, SETMP+14, SETCONF+11, OAD+11, OAD+23, OAD+35, OAD+47, OAD+55, OAD+60 , OAD+61 |
| $$GETICN^MPIF001 | DEM+5 |
| ADD^VADPT | ADD+1, SETMP+16 |
| DEM^VADPT | DEM+12 |
| ELIG^VADPT | ELIG+1 |
| IN5^VADPT | INP+2 |
| OAD^VADPT | OAD+1, OAD+13, OAD+25, OAD+37, OAD+49, OAD+57 |
| OPD^VADPT | OAD+53 |
| SET^VPSRPC1 | SET+1 |
| BAL^VPSRPC26 | GETDEM+20 |
| DGS^VPSRPC26 | GETDEM+19 |
| IBB^VPSRPC26 | GETDEM+17 |
| REC^VPSRPC26 | GETDEM+18 |
| $$DT^XLFDT | ADD+2 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| 2.001 | GET1^DIQ |
| 2.011 | GET1^DIQ |
| ^DGEN(27.11 - [#27.11] | GET1^DIQ |
| ^DGMT(408.31 - [#408.31] | GET1^DIQ |
| ^DIC(8 - [#8] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGEN(27.11 - [#27.11] | GETDEM+11, ENR+1 |
| ^DGMT(408.31 - [#408.31] | ELIG+21 |
| ^DPT - [#2] | ENR+19, ENR+20, ENR+28, ENR+29 |
| ^DPT("AEL" | ELIG+17 |
| Name | Line Occurrences |
|---|---|
| ADD | GETDEM+14 |
| DEM | GETDEM+6 |
| ELIG | GETDEM+8 |
| INP | GETDEM+16 |
| OAD | GETDEM+15 |
| SENLOG | GETDEM+7 |
| SET | GETDEM+13, DEM+2, DEM+9, DEM+16, DEM+17, DEM+18, DEM+19, DEM+20, DEM+21, DEM+30 , DEM+37, SENLOG+12, SENLOG+19, ELIG+3, ELIG+4, ELIG+8, ELIG+10, ELIG+11, ELIG+12, ELIG+13 , ELIG+18, ELIG+22, INP+3, INP+4, INP+5, INP+6, ENR+5, ENR+6, ENR+7, ENR+8 , ENR+9, ENR+10, ENR+11, ENR+12, ENR+22, ENR+24, ENR+31, ENR+33, ENR+35, ENR+37 , ENR+39, ENR+41, SETPERM+2, SETPERM+3, SETPERM+4, SETPERM+5, SETPERM+6, SETPERM+7, SETPERM+8, SETPERM+9 , SETPERM+10, SETPERM+11, SETPERM+12, SETPERM+13, SETPERM+14, SETPERM+15, SETPERM+16, SETMP+2, SETMP+3, SETMP+4 , SETMP+5, SETMP+6, SETMP+7, SETMP+8, SETMP+9, SETMP+10, SETMP+11, SETMP+12, SETMP+13, SETMP+14 , SETCONF+2, SETCONF+3, SETCONF+4, SETCONF+5, SETCONF+6, SETCONF+7, SETCONF+8, SETCONF+9, SETCONF+10, SETCONF+11 , SETCONF+12, SETCONF+13, SETCONF+19, OAD+2, OAD+3, OAD+4, OAD+5, OAD+6, OAD+7, OAD+8 , OAD+9, OAD+10, OAD+11, OAD+14, OAD+15, OAD+16, OAD+17, OAD+18, OAD+19, OAD+20 , OAD+21, OAD+22, OAD+23, OAD+26, OAD+27, OAD+28, OAD+29, OAD+30, OAD+31, OAD+32 , OAD+33, OAD+34, OAD+35, OAD+38, OAD+39, OAD+40, OAD+41, OAD+42, OAD+43, OAD+44 , OAD+45, OAD+46, OAD+47, OAD+50, OAD+51, OAD+54, OAD+55, OAD+58, OAD+59, OAD+60 , OAD+61 |
| SETCONF | SETPERM+17 |
| SETMP | ADD+8 |
| SETPERM | ADD+5, ADD+10, SETMP+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTION | SENLOG+9~*, SENLOG+10 |
| DFN | GETDEM~, GETDEM+6, GETDEM+7, GETDEM+8, GETDEM+11, GETDEM+13, GETDEM+14, GETDEM+15, GETDEM+16, GETDEM+17 , GETDEM+18, GETDEM+19, GETDEM+20, DEM~, DEM+2, DEM+5, DEM+9, DEM+16, DEM+17, DEM+18 , DEM+19, DEM+20, DEM+21, DEM+30, DEM+37, SENLOG~, SENLOG+5, SENLOG+10, SENLOG+12, SENLOG+19 , ELIG~, ELIG+3, ELIG+4, ELIG+8, ELIG+10, ELIG+11, ELIG+12, ELIG+13, ELIG+17, ELIG+18 , ELIG+21, ELIG+22, INP~, INP+3, INP+4, INP+5, INP+6, ENR~, ENR+1, ENR+5 , ENR+6, ENR+7, ENR+8, ENR+9, ENR+10, ENR+11, ENR+12, ENR+19, ENR+20, ENR+21 , ENR+22, ENR+23, ENR+24, ENR+28, ENR+29, ENR+30, ENR+31, ENR+32, ENR+33, ENR+34 , ENR+35, ENR+36, ENR+37, ENR+38, ENR+39, ENR+40, ENR+41, ADD~, ADD+5, ADD+8 , ADD+10, SETPERM~, SETPERM+2, SETPERM+3, SETPERM+4, SETPERM+5, SETPERM+6, SETPERM+7, SETPERM+8, SETPERM+9 , SETPERM+10, SETPERM+11, SETPERM+12, SETPERM+13, SETPERM+14, SETPERM+15, SETPERM+16, SETPERM+17, SETMP~, SETMP+2 , SETMP+3, SETMP+4, SETMP+5, SETMP+6, SETMP+7, SETMP+8, SETMP+9, SETMP+10, SETMP+11, SETMP+12 , SETMP+13, SETMP+14, SETMP+17, SETCONF~, SETCONF+2, SETCONF+3, SETCONF+4, SETCONF+5, SETCONF+6, SETCONF+7 , SETCONF+8, SETCONF+9, SETCONF+10, SETCONF+11, SETCONF+12, SETCONF+13, SETCONF+19, OAD~, OAD+2, OAD+3 , OAD+4, OAD+5, OAD+6, OAD+7, OAD+8, OAD+9, OAD+10, OAD+11, OAD+14, OAD+15 , OAD+16, OAD+17, OAD+18, OAD+19, OAD+20, OAD+21, OAD+22, OAD+23, OAD+26, OAD+27 , OAD+28, OAD+29, OAD+30, OAD+31, OAD+32, OAD+33, OAD+34, OAD+35, OAD+38, OAD+39 , OAD+40, OAD+41, OAD+42, OAD+43, OAD+44, OAD+45, OAD+46, OAD+47, OAD+50, OAD+51 , OAD+54, OAD+55, OAD+58, OAD+59, OAD+60, OAD+61 |
| DGENR | ENR+3~ |
| DGENR("DATE" | ENR+9 |
| DGENR("EFFDATE" | ENR+10 |
| DGENR("ELIG" | ENR+6, ENR+7, ENR+8, ENR+12 |
| DGENR("PRIORITY" | ENR+11 |
| DGENR("STATUS" | ENR+5 |
| DGMSG | SENLOG+4~*, SENLOG+5 |
| DGOPT | SENLOG+3~*, SENLOG+5, SENLOG+10 |
| DGRES | SENLOG+1~, SENLOG+5, SENLOG+10 |
| DGRES(1 | SENLOG+6 |
| ECLNSEQ | ENR+16~*, ENR+19*, ENR+20, ENR+21, ENR+22, ENR+23, ENR+24, ENR+28, ENR+29, ENR+30 , ENR+31, ENR+32, ENR+33, ENR+34, ENR+35, ENR+36, ENR+37, ENR+38, ENR+39, ENR+40 , ENR+41 |
| EDTSEQ | ENR+17~*, ENR+27*, ENR+28*, ENR+29, ENR+30, ENR+31, ENR+32, ENR+33, ENR+34, ENR+35 , ENR+36, ENR+37, ENR+38, ENR+39, ENR+40, ENR+41 |
| ELIG | ELIG+16~*, ELIG+17*, ELIG+18 |
| ELIGNAM | ELIG+16~, ELIG+18* |
| ENRCLN | ENR+15~, ENR+20* |
| ENRDATE | ENR+15~, ENR+29* |
| ENRIEN | ENR+1~*, ENR+2, ENR+3, ENR+5, ENR+6, ENR+7, ENR+8, ENR+9, ENR+10, ENR+11 , ENR+12 |
| ICN | DEM+6~*, DEM+9 |
| MTIEN | ELIG+21~*, ELIG+22 |
| PELIG | ELIG+7~*, ELIG+18 |
| RES | SENLOG+6~*, SENLOG+8, SENLOG+14, SENLOG+15, SENLOG+16, SENLOG+17 |
| SEQ | DEM+24~, DEM+27*, DEM+28*, DEM+29, DEM+30, DEM+34*, DEM+35*, DEM+36, DEM+37 |
| TODAY | ADD+2~*, ADD+5, ADD+8 |
| TYP | SETCONF+16~*, SETCONF+17*, SETCONF+18, SETCONF+19 |
| U | DEM+17, DEM+18, DEM+19, DEM+20, DEM+21, DEM+29, DEM+36, SENLOG+3, ELIG+3, ELIG+7 , ELIG+8, ELIG+10, ELIG+11, ELIG+13, INP+4, INP+5, INP+6, ADD+4, ADD+7, SETPERM+6 , SETPERM+7, SETPERM+9, SETPERM+10, SETMP+6, SETMP+7, SETMP+9, SETMP+10, SETMP+11, SETMP+12, SETCONF+6 , SETCONF+7, SETCONF+12, SETCONF+18, OAD+6, OAD+7, OAD+18, OAD+19, OAD+30, OAD+31, OAD+42 , OAD+43, OAD+54 |
| VADM | DEM+12~ |
| VADM(1 | DEM+16 |
| VADM(10 | DEM+21 |
| VADM(11 | DEM+26, DEM+28, DEM+29 |
| VADM(12 | DEM+33, DEM+35, DEM+36 |
| VADM(2 | DEM+17 |
| VADM(3 | DEM+18 |
| VADM(5 | DEM+19 |
| VADM(9 | DEM+20 |
| VAEL | ELIG+1~ |
| VAEL(1 | ELIG+7, ELIG+8 |
| VAEL(5 | ELIG+10 |
| VAEL(6 | ELIG+3 |
| VAEL(8 | ELIG+11 |
| VAEL(9 | ELIG+13 |
| VAIP | INP+1~ |
| VAIP(19 | INP+6 |
| VAIP(5 | INP+3, INP+4 |
| VAIP(6 | INP+5 |
| VAL | DEM+15~, DEM+16*, DEM+17*, DEM+18*, DEM+19*, DEM+20*, DEM+21*, DEM+29*, DEM+30, DEM+36* , DEM+37, SENLOG+2~*, SENLOG+11*, SENLOG+12, SENLOG+14*, SENLOG+15*, SENLOG+16*, SENLOG+17*, SENLOG+18*, SENLOG+19 , ELIG+2~, ELIG+3*, ELIG+4*, ELIG+8*, ELIG+10*, ELIG+11*, ELIG+12*, ELIG+13*, ELIG+22*, ENR+4~ , ENR+5*, ENR+6*, ENR+7*, ENR+8*, ENR+9*, ENR+10*, ENR+11*, ENR+12*, ENR+15~, ENR+21* , ENR+22, ENR+23~*, ENR+24, ENR+30*, ENR+31, ENR+32*, ENR+33, ENR+34*, ENR+35, ENR+36* , ENR+37, ENR+38*, ENR+39, ENR+40*, ENR+41, ADD+2~, ADD+4*, ADD+5, ADD+7*, ADD+8 , SETPERM+1~, SETPERM+2*, SETPERM+3*, SETPERM+4*, SETPERM+5*, SETPERM+6*, SETPERM+7*, SETPERM+8*, SETPERM+9*, SETPERM+10* , SETPERM+11*, SETPERM+12*, SETPERM+13*, SETPERM+14*, SETPERM+15*, SETPERM+16*, SETMP+1~, SETMP+2*, SETMP+3*, SETMP+4* , SETMP+5*, SETMP+6*, SETMP+7*, SETMP+8*, SETMP+9*, SETMP+10*, SETMP+11*, SETMP+12*, SETMP+13*, SETMP+14* , SETCONF+1~, SETCONF+2*, SETCONF+3*, SETCONF+4*, SETCONF+5*, SETCONF+6*, SETCONF+7*, SETCONF+8*, SETCONF+9*, SETCONF+10* , SETCONF+11*, SETCONF+12*, SETCONF+13*, SETCONF+18*, SETCONF+19, OAD+1~, OAD+2*, OAD+3*, OAD+4*, OAD+5* , OAD+6*, OAD+7*, OAD+8*, OAD+9*, OAD+10*, OAD+11*, OAD+14*, OAD+15*, OAD+16*, OAD+17* , OAD+18*, OAD+19*, OAD+20*, OAD+21*, OAD+22*, OAD+23*, OAD+26*, OAD+27*, OAD+28*, OAD+29* , OAD+30*, OAD+31*, OAD+32*, OAD+33*, OAD+34*, OAD+35*, OAD+38*, OAD+39*, OAD+40*, OAD+41* , OAD+42*, OAD+43*, OAD+44*, OAD+45*, OAD+46*, OAD+47*, OAD+50*, OAD+51*, OAD+54*, OAD+55* , OAD+58*, OAD+59*, OAD+60*, OAD+61* |
| VAOA | OAD+1~, OAD+13!, OAD+25!, OAD+37!, OAD+49!, OAD+57! |
| VAOA("A" | OAD+1*, OAD+13*, OAD+25*, OAD+37*, OAD+49*, OAD+57* |
| VAOA(1 | OAD+2, OAD+14, OAD+26, OAD+38 |
| VAOA(10 | OAD+10, OAD+22, OAD+34, OAD+46 |
| VAOA(11 | OAD+7, OAD+19, OAD+31, OAD+43 |
| VAOA(2 | OAD+3, OAD+15, OAD+27, OAD+39 |
| VAOA(3 | OAD+4, OAD+16, OAD+28, OAD+40 |
| VAOA(4 | OAD+5, OAD+17, OAD+29, OAD+41 |
| VAOA(5 | OAD+6, OAD+18, OAD+30, OAD+42 |
| VAOA(8 | OAD+8, OAD+20, OAD+32, OAD+44, OAD+50, OAD+58 |
| VAOA(9 | OAD+9, OAD+21, OAD+33, OAD+45, OAD+51, OAD+59 |
| VAPA | ADD+1~, ADD+5, ADD+8, ADD+10, SETPERM~, SETPERM+17, SETMP~, SETMP+16!, SETMP+17, SETCONF~ |
| VAPA("P" | SETMP+16* |
| VAPA(1 | SETPERM+2, SETMP+2 |
| VAPA(10 | ADD+7, SETMP+10 |
| VAPA(11 | SETPERM+9, SETMP+11 |
| VAPA(13 | SETCONF+2 |
| VAPA(14 | SETCONF+3 |
| VAPA(15 | SETCONF+4 |
| VAPA(16 | SETCONF+5 |
| VAPA(17 | SETCONF+6 |
| VAPA(18 | SETCONF+7 |
| VAPA(19 | SETCONF+8 |
| VAPA(2 | SETPERM+3, SETMP+3 |
| VAPA(20 | SETCONF+9 |
| VAPA(21 | SETCONF+10 |
| VAPA(22 | SETCONF+17, SETCONF+18 |
| VAPA(25 | SETPERM+10, SETMP+12 |
| VAPA(28 | SETCONF+12 |
| VAPA(29 | SETCONF+13 |
| VAPA(3 | SETPERM+4, SETMP+4 |
| VAPA(4 | SETPERM+5, SETMP+5 |
| VAPA(5 | SETPERM+6, SETMP+6 |
| VAPA(7 | SETPERM+7, SETMP+7 |
| VAPA(8 | SETPERM+8, SETMP+8 |
| VAPA(9 | ADD+4, SETMP+9 |
| VAPD | OAD+53~ |
| VAPD(7 | OAD+54 |
| VPSARR | GETDEM~, GETDEM+6, GETDEM+7, GETDEM+8, GETDEM+13, GETDEM+14, GETDEM+15, GETDEM+16, GETDEM+17, GETDEM+18 , GETDEM+19, GETDEM+20, DEM~, DEM+2, DEM+9, DEM+16, DEM+17, DEM+18, DEM+19, DEM+20 , DEM+21, DEM+30, DEM+37, SENLOG~, SENLOG+12, SENLOG+19, ELIG~, ELIG+3, ELIG+4, ELIG+8 , ELIG+10, ELIG+11, ELIG+12, ELIG+13, ELIG+18, ELIG+22, INP~, INP+3, INP+4, INP+5 , INP+6, ENR~, ENR+5, ENR+6, ENR+7, ENR+8, ENR+9, ENR+10, ENR+11, ENR+12 , ENR+22, ENR+24, ENR+31, ENR+33, ENR+35, ENR+37, ENR+39, ENR+41, ADD~, ADD+5 , ADD+8, ADD+10, SETPERM~, SETPERM+2, SETPERM+3, SETPERM+4, SETPERM+5, SETPERM+6, SETPERM+7, SETPERM+8 , SETPERM+9, SETPERM+10, SETPERM+11, SETPERM+12, SETPERM+13, SETPERM+14, SETPERM+15, SETPERM+16, SETPERM+17, SETMP~ , SETMP+2, SETMP+3, SETMP+4, SETMP+5, SETMP+6, SETMP+7, SETMP+8, SETMP+9, SETMP+10, SETMP+11 , SETMP+12, SETMP+13, SETMP+14, SETMP+17, SETCONF~, SETCONF+2, SETCONF+3, SETCONF+4, SETCONF+5, SETCONF+6 , SETCONF+7, SETCONF+8, SETCONF+9, SETCONF+10, SETCONF+11, SETCONF+12, SETCONF+13, SETCONF+19, OAD~, OAD+2 , OAD+3, OAD+4, OAD+5, OAD+6, OAD+7, OAD+8, OAD+9, OAD+10, OAD+11, OAD+14 , OAD+15, OAD+16, OAD+17, OAD+18, OAD+19, OAD+20, OAD+21, OAD+22, OAD+23, OAD+26 , OAD+27, OAD+28, OAD+29, OAD+30, OAD+31, OAD+32, OAD+33, OAD+34, OAD+35, OAD+38 , OAD+39, OAD+40, OAD+41, OAD+42, OAD+43, OAD+44, OAD+45, OAD+46, OAD+47, OAD+50 , OAD+51, OAD+54, OAD+55, OAD+58, OAD+59, OAD+60, OAD+61, SET~, SET+1 |
| VPSDA | SET~, SET+1 |
| VPSDS | SET~, SET+1 |
| VPSFL | DEM+24~, DEM+27~*, DEM+30, DEM+34*, DEM+37, SET~, SET+1 |
| VPSFLD | SET~, SET+1 |
| VPSICN | DEM+5~*, DEM+6 |
| VPSIEN | DEM+24~, DEM+30*, DEM+37*, SET~, SET+1 |
| X | GETDEM+10~, GETDEM+11*, GETDEM+12 |
| Y | GETDEM+10~, GETDEM+12*, GETDEM+13 |
