©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DG53293A ;AR/BP - ALS EXTRACT; ; 7/26/00 1:15pm
Source file <DG53293A.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 3 | (FMAIL,SETMAIL,SMAIL)^DG53293B EN^DG53293D $$SITE^VASITE |
| Kernel | 2 | ($$FMTE,$$NOW)^XLFDT (BMES,MES)^XPDUTL |
| VA Fileman | 1 | GETS^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- Entry point for manually running extract.
|
|
| GETDFN(DGTATION) | ;
|
|
| FLDS2 | ;;.1214;.1215;.1216;.1217;.1218;.1219;.131;.132;
|
|
| FLDS1 | ;;.01;.104;.111;.1112;.112;.113;.114;.115;.116;.117;.12105;.1211;.12111;.12112;.1212;.1213
|
|
| START | ; -- Called from POSTINST^DG53293C and EN^DG53293D
|
|
| SENDATA(DGTATION) | ;
; dgline is the message line |
|
| GETDGIQ(DGDFN) | ;
|
|
| INIFLDS | ; set up array of fields to be used in fm getsdiq call
|
|
| DFN(SSN) | ;function to lookup DFN from SSN x-ref
; input SSN ; output DFN or error code |
|
| DIQLOOK(DGTATION) | ;
|
| Name | Field # of Occurrence |
|---|---|
| FMAIL^DG53293B | START+26, START+46 |
| SETMAIL^DG53293B | SENDATA+6 |
| SMAIL^DG53293B | SENDATA+13 |
| EN^DG53293D | EN+1 |
| GETS^DIQ | GETDGIQ+4 |
| $$SITE^VASITE | START+17 |
| $$FMTE^XLFDT | START+18 |
| $$NOW^XLFDT | START+18 |
| BMES^XPDUTL | START+2, START+8, START+20, START+25, START+34, START+38, START+42, START+49 |
| MES^XPDUTL | START+6, START+14, START+24 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | GETDGIQ+25, DFN+13, DFN+16 |
| ^DPT("SSN" | DFN+5, DFN+8, DFN+11 |
| ^XTMP("DGALS" | START+19, START+29!, START+30!, START+31!, GETDFN+4, GETDFN+6, GETDFN+8*, GETDFN+9*, DIQLOOK+6, GETDGIQ+8* , GETDGIQ+17, GETDGIQ+20*, GETDGIQ+24*, GETDGIQ+25*, SENDATA+5 |
| Name | Line Occurrences |
|---|---|
| $$DFN | GETDFN+7 |
| DIQLOOK | START+39 |
| FLDS1 | INIFLDS+1 |
| FLDS2 | INIFLDS+2 |
| GETDFN | START+35 |
| GETDGIQ | DIQLOOK+7 |
| INIFLDS | DIQLOOK+3 |
| SENDATA | START+43 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | DFN+3~, DFN+11*, DFN+13, DFN+16, DFN+18 |
| DGARY | START+6, START+14, START+16~, START+24 |
| DGARY(1 | START+3*, START+9*, START+21* |
| DGARY(2 | START+4*, START+10*, START+22* |
| DGARY(3 | START+5*, START+11*, START+23* |
| DGARY(4 | START+12* |
| DGARY(5 | START+13* |
| DGDATA | GETDGIQ+1!, GETDGIQ+8, GETDGIQ+9! |
| DGDFN | START+53!, GETDFN+7*, GETDFN+8, GETDFN+9, DIQLOOK+5*, DIQLOOK+6*, DIQLOOK+7, GETDGIQ~, GETDGIQ+4, GETDGIQ+17 , GETDGIQ+20, GETDGIQ+24, GETDGIQ+25, SENDATA+3*, SENDATA+5*, SENDATA+6 |
| DGERR | GETDGIQ+1!, GETDGIQ+10!, GETDGIQ+23*!, GETDGIQ+24, GETDGIQ+27 |
| DGERR("DIERR" | GETDGIQ+23, GETDGIQ+24, GETDGIQ+27! |
| DGFIELD | START+52!, GETDGIQ+14*, GETDGIQ+17, GETDGIQ+20, GETDGIQ+24 |
| DGFLDS | START+53!, GETDGIQ+3*, GETDGIQ+4, GETDGIQ+14 |
| DGFLDS( | GETDGIQ+4, GETDGIQ+14 |
| DGFLDS(1 | INIFLDS+1* |
| DGFLDS(2 | INIFLDS+2* |
| DGLINE | START+53!, SENDATA+2*, SENDATA+12, SENDATA+13 |
| DGN | START+52!, GETDFN+3*, GETDFN+4*, GETDFN+6 |
| DGP | START+52!, GETDFN+6*, GETDGIQ+14* |
| DGPECE | START+52! |
| DGSSN | START+53!, GETDFN+6*, GETDFN+7, GETDFN+8, GETDFN+9 |
| DGSTART | START+18*, START+52! |
| DGTATION | START+17*, START+19, START+31, START+35, START+39, START+43, START+53!, GETDFN~, GETDFN+4, GETDFN+6 , GETDFN+8, DIQLOOK~, DIQLOOK+6, SENDATA~, SENDATA+6 |
| DGZ | START+53! |
| DUZ | START+1 |
| SSN | DFN~, DFN+5, DFN+6, DFN+8, DFN+9, DFN+11, DFN+14, DFN+16, DFN+17 |
| U | START+17 |
| >> ZTQUEUED | START+33, START+37, START+41, START+48, GETDFN+12, DIQLOOK+10, SENDATA+9 |
| Name | Field # of Occurrence |
|---|---|
| $T(FLDS1 | INIFLDS+1 |
| $T(FLDS2 | INIFLDS+2 |