MAGGTPT1 ;WOIFO/GEK/SG/NST/JSL- Delphi-Broker calls for patient lookup and information ; 05 Oct 2010 9:15 AM
Source file <MAGGTPT1.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 6 | $$DOB^DPTLK1 GUIBS5A^DPTLK6 (DEM,ELIG,KVA,KVAR)^VADPT PID^VADPT6 GETDFN^VAFCTFU1 $$SITE^VASITE |
| Imaging | 4 | ($$IMGST,$$ISDEL)^MAGGI11 $$MAGORD^MAGGI13 ACTION^MAGGTAU $$ISIHS^MAGSPID |
| Kernel | 2 | $$FMTE^XLFDT ($$PROD,PROD)^XUPROD |
| Master Patient Index VistA | 1 | ($$GETICN,GETICN)^MPIF001 |
| VA FileMan | 1 | (,FIND)^DIC |
| 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 |
|---|---|---|
| Imaging | 4 | MAGG PAT BS5 CHECK MAGG PAT FIND MAGG PAT INFO MAGJUTL3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FIND(MAGRY,ZY) | ;RPC [MAGG PAT FIND]
; Call to Do a lookup using FIND^DIC ; MAGRY is the Array to return. ; ZY is parameter sent by calling app (Delphi) ; NUM TO RETURN ^ TEXT TO MATCH ^ TYPE OF OUPUT FORMAT ^ SCREEN ($P 5-99) ; MAGRY(0)="0^Error message" ; or ; MAGRY(0)=Found 100 entries matching "" there are more |
|
| FINDERR(XI) | ;
|
|
| INFO(MAGRY,DATA) | ;RPC [MAGG PAT INFO] Call to Return patient info.
; Input parameters ; DATA: MAGDFN ^ NOLOG ^ ISICN ^ FLAGS ^ YYFORMAT ; MAGDFN -- Patient DFN ; NOLOG -- 0/1; if 1, then do NOT update the Session log ; ISICN -- 0/1 if 1, then this is an ICN, if 0 (default) this is a DFN ; Patch 41 ; FLAGS -- "D" Include Deleted images ; YYFORMAT - 0/1; if 1, return DOB as MM/DD/YYYY not MM/DD/YY (MAG*3.0*118). ; MAGRY is a string, we return the following : ; //$P 1 2 3 4 5 6 7 8 9 10 ; // status ^ DFN ^ name ^ sex ^ DOB ^ PID ^ S/C ^ TYPE ^ Veteran(y/n) ^ Patient Image Count ; //$P 11 12 13 14 15 16 ; ICN SITE Number ^ Production Account 1/0 ^ Not use ^ Age ^ SSN (MUSE) ^ ; VADM(1)=Patient's name ; VADM(5)=Patient's sex (M^MALE) ; VADM(3)=Patient's DOB (internal^external) ; VADM(2)=Patient's SSN (internal^external) ; VAEL(3)=Patient's Service Connected? (#.301) (1=yes) ; VAEL(4)=Patient's Veteran Y/N (#1901) (1=yes) ; VAEL(6)=Patient's Type (#391) (internal^external) |
|
| IMGCT(DFN,FLAGS) | ; RETURN TOTAL NUMBER OF IMAGES FOR A PATIENT;
; FLAGS D Include deleted images (file #2005.1) |
|
| BS5CHK(MAGRY,MAGDFN) | ;RPC [MAGG PAT BS5 CHECK]
; Call to check the BS5 cross ref ; and see if any similar patients exist. ; If yes, all matching patients will be listed and shown to the user. |
| Name | Field # of Occurrence |
|---|---|
| ^DIC | FIND+33 |
| FIND^DIC | FIND+50 |
| $$DOB^DPTLK1 | FIND+69, FIND+73, BS5CHK+24 |
| GUIBS5A^DPTLK6 | BS5CHK+8 |
| $$IMGST^MAGGI11 | IMGCT+16 |
| $$ISDEL^MAGGI11 | IMGCT+17 |
| $$MAGORD^MAGGI13 | IMGCT+13, IMGCT+14, IMGCT+15 |
| ACTION^MAGGTAU | INFO+55 |
| $$ISIHS^MAGSPID | FIND+32, INFO+36 |
| $$GETICN^MPIF001 | FIND+66, INFO+41 |
| GETICN^MPIF001 | FIND+66, INFO+41 |
| DEM^VADPT | INFO+25 |
| ELIG^VADPT | INFO+25 |
| KVA^VADPT | INFO+52 |
| KVAR^VADPT | INFO+52 |
| PID^VADPT6 | FIND+73, BS5CHK+21 |
| GETDFN^VAFCTFU1 | INFO+23 |
| $$SITE^VASITE | INFO+42 |
| $$FMTE^XLFDT | INFO+29 |
| $$PROD^XUPROD | INFO+46 |
| PROD^XUPROD | INFO+46 |
| RPC Name | Call Tags |
|---|---|
| MAGG PAT FIND | FIND |
| MAGG PAT INFO | INFO |
| MAGG PAT BS5 CHECK | BS5CHK |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^MAG(2005 - [#2005] | IMGCT+8 |
| ^TMP("DIERR" | FIND+46!, FIND+55, FIND+80, FINDERR+2 |
| ^TMP("DILIST" | FIND+45!, FIND+54, FIND+60, FIND+61, FIND+62, FIND+63, FIND+64, FIND+65!, FIND+76, FIND+81 , FIND+82 |
| Name | Line Occurrences |
|---|---|
| $$IMGCT | INFO+40 |
| FINDERR | FIND+55, FIND+80 |
| Name | Field # of Occurrence |
|---|---|
| ^( | FIND+76 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | IMGCT+3~, IMGCT+6*, IMGCT+17*, IMGCT+18*, IMGCT+23 |
| CT | BS5CHK+5~, BS5CHK+10*, BS5CHK+11 |
| DATA | INFO~, INFO+22 |
| DFN | FIND+73~*, INFO+21~, INFO+23, INFO+24*, INFO+32, INFO+40, INFO+41, INFO+55, IMGCT~, IMGCT+9 , IMGCT+10, BS5CHK+21~* |
| DIC | FIND+33~* |
| DIC(0 | FIND+33* |
| FILE | FIND+17~, FIND+19*, FIND+21*, FIND+33, FIND+50 |
| FLAGS | FIND+17~, FIND+19*, FIND+50, INFO+21~, INFO+22*, INFO+40, IMGCT~, IMGCT+7 |
| FLDS | FIND+17~, FIND+19*, FIND+26*, FIND+40*, FIND+50 |
| I | FIND+16~, FIND+54*, FIND+55, FIND+56, FIND+60*, FIND+61, FIND+62, FIND+63, FIND+64, FIND+65 , FIND+69, FIND+76, FIND+77, FIND+83*, BS5CHK+12*, BS5CHK+13, BS5CHK+14, BS5CHK+16*, BS5CHK+17, BS5CHK+18 , BS5CHK+23, BS5CHK+25 |
| ICN | FIND+18~, FIND+66*, FIND+67*, FIND+69, FIND+77 |
| IDENT | FIND+17~, FIND+19*, FIND+50 |
| IENS | FIND+17~, FIND+19*, FIND+50 |
| INDEX | FIND+17~, FIND+19*, FIND+43*, FIND+50 |
| ISICN | INFO+21~, INFO+22*, INFO+23, INFO+55 |
| LNTH | BS5CHK+5~, BS5CHK+6*, BS5CHK+14*, BS5CHK+15*, BS5CHK+23 |
| MAG8BOTH | IMGCT+3~, IMGCT+7*, IMGCT+13, IMGCT+14, IMGCT+15, IMGCT+17 |
| MAG8DT | IMGCT+4~, IMGCT+12*, IMGCT+13*, IMGCT+14, IMGCT+15 |
| MAG8IEN | IMGCT+4~, IMGCT+12*, IMGCT+15*, IMGCT+16, IMGCT+17 |
| MAG8PRX | IMGCT+4~, IMGCT+12*, IMGCT+14*, IMGCT+15 |
| MAG8ROOT | IMGCT+3~, IMGCT+8*, IMGCT+10 |
| MAG8XREF | IMGCT+3~, IMGCT+10*, IMGCT+13, IMGCT+14, IMGCT+15 |
| MAGDFN | FIND+16~, FIND+62*, FIND+66, FIND+69, FIND+73, FIND+77, INFO+21~, INFO+22*, INFO+23, INFO+24 , INFO+55, BS5CHK~, BS5CHK+8, BS5CHK+19 |
| MAGDPT | BS5CHK+5~, BS5CHK+23*, BS5CHK+24 |
| MAGRY | FIND~, INFO~, INFO+26*, INFO+31*, INFO+32*, INFO+33*, INFO+34*, INFO+35*, INFO+36*, INFO+37* , INFO+38*, INFO+39*, INFO+40*, INFO+41*, INFO+43*, INFO+44*, INFO+46*, INFO+47*, INFO+48*, INFO+49* , INFO+50*, BS5CHK~, BS5CHK+8 |
| MAGRY( | FIND+56*, FIND+69*, FIND+77*, FINDERR+2*, BS5CHK+11*, BS5CHK+12, BS5CHK+13, BS5CHK+14, BS5CHK+16, BS5CHK+17* , BS5CHK+18, BS5CHK+23, BS5CHK+25* |
| MAGRY("" | FIND+83, FINDERR+1, BS5CHK+10 |
| MAGRY(0 | FIND+49*, FIND+84*, FIND+85* |
| MAGRY(1 | FIND+78*, BS5CHK+7*, BS5CHK+9 |
| MAGX | BS5CHK+5~, BS5CHK+19*, BS5CHK+20*, BS5CHK+24*, BS5CHK+25 |
| NOLOG | INFO+21~, INFO+22*, INFO+53 |
| NUM | FIND+17~, FIND+19*, FIND+23*, FIND+50 |
| PNAME | FIND+18~, FIND+61*, FIND+69, FIND+71, FIND+72 |
| RTYPE | FIND+18~, FIND+27*, FIND+68, FIND+70, FIND+78 |
| SCR | FIND+17~, FIND+19*, FIND+25*, FIND+50 |
| SEX | FIND+18~, FIND+63*, FIND+69 |
| TROOT | FIND+17~, FIND+19*, FIND+50 |
| U | FIND+23, FIND+24, FIND+25, FIND+26, FIND+27, FIND+69, INFO+22, INFO+49, BS5CHK+13, BS5CHK+14 , BS5CHK+17, BS5CHK+18, BS5CHK+23 |
| VA | FIND+73~, BS5CHK+21~ |
| VA("PID" | FIND+73, INFO+36, BS5CHK+21 |
| VADM | INFO+21~ |
| VADM(1 | INFO+33 |
| VADM(2 | INFO+36, INFO+49 |
| VADM(3 | INFO+29 |
| VADM(4 | INFO+48 |
| VADM(5 | INFO+34 |
| VAEL | INFO+21~ |
| VAEL(3 | INFO+37 |
| VAEL(4 | INFO+39 |
| VAEL(6 | INFO+38 |
| VAERR | INFO+21~, INFO+26 |
| VAL | FIND+17~, FIND+19*, FIND+24*, FIND+32, FIND+33, FIND+34*, FIND+43, FIND+49, FIND+50, FIND+72 |
| WARD | FIND+16~, FIND+64*, FIND+69, FIND+72 |
| X | FIND+16~, FIND+33*, FIND+71*, FIND+72*, FIND+73*, FIND+76*, FIND+77, FIND+82*, FIND+84, FIND+85 , INFO+21~, INFO+29*, INFO+35, INFO+42*, INFO+43 |
| XDFN | BS5CHK+5~, BS5CHK+18*, BS5CHK+19, BS5CHK+21, BS5CHK+24 |
| XI | FINDERR~, FINDERR+1*, FINDERR+2 |
| XPID | BS5CHK+5~, BS5CHK+21*, BS5CHK+22*, BS5CHK+24 |
| Y | FIND+16~, FIND+34 |
| YYFORMAT | INFO+21~, INFO+22*, INFO+28*, INFO+29 |
| Z | FIND+16~, FIND+74*, FIND+76* |
| ZY | FIND~, FIND+23, FIND+24, FIND+25, FIND+26, FIND+27, FIND+56, FIND+84 |
| Name | Field # of Occurrence |
|---|---|
| $T(GETICN^MPIF001 | FIND+66, INFO+41 |
| $T(PROD^XUPROD | INFO+46 |
