©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
DGRRLU3 ;alb/aas - DG Replacement and Rehosting RPC for VADPT ;8/8/05 15:38
Source file <DGRRLU3.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | LIST^DIC DT^DICRW CLEAN^DILF |
| Kernel | 2 | $$ABS^XLFMTH $$UP^XLFSTR |
| Registration | 2 | $$ACTIVE^DGACT ($$CHARCHK,$$XMLHDR,ADD)^DGRRUTL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETLIST(RESULT,PARAM) | ;
; Input: PARAM("TYPE")="ward" returns a list of wards ; PARAM("TYPE")="clinic" returns a list of clinics ; PARAM("TYPE")="provider" returns a list of providers ; PARAM("TYPE")="specialty" returns a list of specialties ; PARAM("VALUE")= Beginning lookup value or null to start ; at the beginning or end of the file. ; PARAM("MAXNUM")= Number of records to be returned. If a ; negative number, traverse backwards. |
|
| WLIST(ITEM,VALUE,MAXNUM) | ;
; Input: VALUE - Beginning value or null to start at the beginning ; or end of the file. ; MAXNUM - Number of entries to be returned. Defaults to ; traversing forward but if MAXNUM is a negative ; number, traverses through the file backwards. |
|
| DISPLAY(RESULT) | ;
|
|
| STATUS(IEN,CHKVAL) | ;
|
|
| PLIST(ITEM,VALUE,MAXNUM) | ;
|
|
| CLIST(ITEM,CHKVAL,VALUE,MAXNUM) | ;
|
|
| SLIST(ITEM,VALUE,MAXNUM) | ;Returns active specialties in Facility TreatingSpecialty (#45.7) file
|
|
| EXMTCH | ;Look for exact match
|
| Name | Field # of Occurrence |
|---|---|
| $$ACTIVE^DGACT | SLIST+19 |
| $$CHARCHK^DGRRUTL | CLIST+41, WLIST+36, EXMTCH+9, PLIST+38, SLIST+29 |
| $$XMLHDR^DGRRUTL | GETLIST+19 |
| ADD^DGRRUTL | GETLIST+19, GETLIST+22, GETLIST+24, GETLIST+27, GETLIST+29, GETLIST+32, GETLIST+34, GETLIST+37, GETLIST+39, GETLIST+42 , GETLIST+43, GETLIST+44, CLIST+41, WLIST+36, EXMTCH+9, PLIST+38, SLIST+29 |
| LIST^DIC | WLIST+23, PLIST+32 |
| DT^DICRW | GETLIST+12 |
| CLEAN^DILF | PLIST+40 |
| $$ABS^XLFMTH | CLIST+10, WLIST+17, PLIST+11, SLIST+11 |
| $$UP^XLFSTR | GETLIST+21, GETLIST+26, GETLIST+31, GETLIST+36, CLIST+2, WLIST+9, PLIST+2, SLIST+3 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| RPC Name | Call Tags |
|---|---|
| DGRR GET LOOKUP TYPE LIST | GETLIST |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | LIST^DIC |
| ^DIC(42 - [#42] | LIST^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(42 - [#42] | EXMTCH+1, EXMTCH+4, EXMTCH+6 |
| ^DIC(45.7 - [#45.7] | SLIST+13, SLIST+16, SLIST+17, SLIST+18 |
| ^SC - [#44] | STATUS+3, STATUS+4, STATUS+5 |
| ^SC("B" | CLIST+12, CLIST+13, CLIST+16, CLIST+18, CLIST+27, CLIST+29 |
| ^TMP("DGRRLU3-CLIST" | CLIST+6!, CLIST+24*, CLIST+35*, CLIST+37, CLIST+38, CLIST+39 |
| ^TMP("DGRRLU3-SLIST" | SLIST+8!, SLIST+23*, SLIST+26, SLIST+27, SLIST+28 |
| ^TMP("DILIST" | WLIST+19!, WLIST+28*, WLIST+29*, WLIST+31, WLIST+34, WLIST+35, PLIST+7!, PLIST+34, PLIST+35, PLIST+36 , PLIST+39! |
| ^TMP($J | GETLIST+15! |
| ^VA(200 - [#200] | PLIST+28, PLIST+29 |
| Name | Line Occurrences |
|---|---|
| $$STATUS | CLIST+20, CLIST+31 |
| CLIST | GETLIST+28 |
| EXMTCH | WLIST+20 |
| PLIST | GETLIST+33 |
| SLIST | GETLIST+38 |
| WLIST | GETLIST+23 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BACKMTCH | WLIST+6~, WLIST+27, WLIST+28, WLIST+29, EXMTCH+10* |
| CHKVAL | CLIST~, CLIST+20, CLIST+31, STATUS~, STATUS+3 |
| CNT | GETLIST+10~, GETLIST+11*, CLIST+11*, CLIST+22*, CLIST+24, CLIST+33*, CLIST+35, CLIST+36*, CLIST+40*, CLIST+41 , WLIST+6~, WLIST+7*, WLIST+33*, WLIST+36, EXMTCH+9*, PLIST+12*, PLIST+33*, PLIST+37*, PLIST+38, SLIST+2~ , SLIST+5*, SLIST+20*, SLIST+21, SLIST+23, SLIST+24*, SLIST+29, SLIST+30* |
| CNT2 | CLIST+1~, CLIST+36*, CLIST+37*, CLIST+38, CLIST+39, WLIST+6~, PLIST+1~, PLIST+33*, PLIST+34*, PLIST+35 , PLIST+36, SLIST+2~, SLIST+24*, SLIST+26*, SLIST+27, SLIST+28 |
| DGRRB | CLIST+1~, CLIST+5*, CLIST+8*, CLIST+12, CLIST+13, CLIST+14, CLIST+25, WLIST+6~, WLIST+30*, WLIST+31 , PLIST+1~, PLIST+5*, PLIST+9*, PLIST+28, PLIST+29, PLIST+31, SLIST+2~, SLIST+7*, SLIST+10*, SLIST+15 , SLIST+17, SLIST+25 |
| DGRRD | SLIST+2~, SLIST+14~, SLIST+15*, SLIST+16, SLIST+25*, SLIST+26 |
| DGRRESLT | GETLIST+10~, GETLIST+16*, GETLIST+17 |
| DGRRFMT | PLIST+1~, PLIST+31*, PLIST+32 |
| DGRRI | WLIST+25~, WLIST+26*, WLIST+31*, WLIST+34, WLIST+35 |
| DGRRLINE | GETLIST+10~, GETLIST+14* |
| DGRRSCR | PLIST+1~, PLIST+30*, PLIST+32 |
| DIR | CLIST+1~, CLIST+15*, CLIST+26*, CLIST+37 |
| DT | GETLIST+12, STATUS+6 |
| ERROR | WLIST+6~, WLIST+24 |
| FLAG | CLIST+1~, CLIST+11*, CLIST+16, CLIST+18, CLIST+22*, CLIST+27, CLIST+29, CLIST+33*, WLIST+6~, WLIST+11* , WLIST+15*, WLIST+23, EXMTCH+9, EXMTCH+10, PLIST+1~, PLIST+12*, SLIST+2~, SLIST+5*, SLIST+17, SLIST+18 , SLIST+21* |
| I | DISPLAY+1~, DISPLAY+2* |
| IDATE | CLIST+1~, STATUS+1~, STATUS+4*, STATUS+6 |
| IEN | CLIST+1~, CLIST+17*, CLIST+18*, CLIST+20, CLIST+24, CLIST+28*, CLIST+29*, CLIST+31, CLIST+35, CLIST+38* , CLIST+41, STATUS~, STATUS+3, STATUS+4, STATUS+5, WLIST+32~, WLIST+35*, WLIST+36, EXMTCH+2~, EXMTCH+3* , EXMTCH+4*, EXMTCH+6, EXMTCH+9, EXMTCH+10, PLIST+1~, PLIST+35*, PLIST+38, SLIST+2~, SLIST+5*, SLIST+18* , SLIST+19, SLIST+23, SLIST+27*, SLIST+29 |
| ITEM | CLIST~, WLIST~, PLIST~, SLIST~ |
| MAXNUM | CLIST~, CLIST+4*, CLIST+7, CLIST+9*, CLIST+10*, CLIST+22, CLIST+33, WLIST~, WLIST+10*, WLIST+12 , WLIST+16*, WLIST+17*, WLIST+23, EXMTCH+8*, PLIST~, PLIST+4*, PLIST+8, PLIST+10*, PLIST+11*, PLIST+32 , SLIST~, SLIST+6*, SLIST+9, SLIST+11*, SLIST+21 |
| NAME | CLIST+1~, CLIST+3*, CLIST+12*, CLIST+13*, CLIST+16*, CLIST+18, CLIST+24, CLIST+27*, CLIST+29, CLIST+35 , CLIST+39*, CLIST+41, WLIST+32~, WLIST+34*, WLIST+36, EXMTCH+5~, EXMTCH+6*, EXMTCH+9, EXMTCH+10, PLIST+1~ , PLIST+3*, PLIST+28*, PLIST+29*, PLIST+32, PLIST+36*, PLIST+38, SLIST+2~, SLIST+3*, SLIST+13, SLIST+16* , SLIST+17*, SLIST+18, SLIST+23, SLIST+28*, SLIST+29 |
| OKAY | GETLIST+10~, GETLIST+11*, GETLIST+21*, GETLIST+26*, GETLIST+31*, GETLIST+36*, GETLIST+41 |
| PARAM | GETLIST~ |
| PARAM("MAXNUM" | GETLIST+23, GETLIST+28, GETLIST+33, GETLIST+38 |
| PARAM("TYPE" | GETLIST+21, GETLIST+26, GETLIST+31, GETLIST+36 |
| PARAM("VALUE" | GETLIST+23, GETLIST+28, GETLIST+33, GETLIST+38 |
| RDATE | CLIST+1~, STATUS+1~, STATUS+5*, STATUS+6 |
| RESULT | GETLIST~, GETLIST+17*, DISPLAY~, DISPLAY+2 |
| STATUS | CLIST+19~, CLIST+20*, CLIST+21, CLIST+30~, CLIST+31*, CLIST+32, STATUS+1~, STATUS+2*, STATUS+6*, STATUS+7 |
| U | CLIST+24, CLIST+35, CLIST+39, WLIST+29, EXMTCH+6, EXMTCH+10, PLIST+36, SLIST+23, SLIST+28 |
| VALUE | CLIST~, CLIST+2*, CLIST+3, WLIST~, WLIST+9*, WLIST+20, WLIST+23, EXMTCH+1, EXMTCH+4, PLIST~ , PLIST+2*, PLIST+3, SLIST~, SLIST+3 |
| X | GETLIST+10~ |