©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
GMRCPSL2 ;SLC/MA - Special Consult Reports;07-Dec-2011 14:47;DU
Source file <GMRCPSL2.m>
| Package | Total | Call Graph |
|---|---|---|
| Consult Request Tracking | 2 | (REPORT32,REPORT80)^GMRCPSL3 DATAONLY^GMRCPSL4 |
| VA Fileman | 2 | $$GET1^DIQ ^DIR |
| Kernel | 1 | ^%ZISC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRINT(GMRCSRCH,GMRCARRY,GMRCDT1,GMRCDT2,GMRCSTAT,GMRCRPT,GMRCBRK,GMRTST) | ; Untasked Print
|
|
| TEST(IEN,TST) | ;Check to see if this consult shold be included
|
|
| PRTTSK | ; Print report
; GMRCARRY = Array contains search values. ; GMRCSRCH = Indicates which field to search on ; GMRCDT1 = Start date ; GMRCDT2 = Stop date ; GMRCSTAT = CPRS status to include in report ; SUBTOT = Counter for different groups ; GMRCRPT = 80 - 132 character report & data only output ; GMRCBRK = Print page break between sub-totals <Y-N> ; GMRTST = Includ or not include test pts Patch 1002 ; TOTCNTR = Count for total records |
|
| BLDLOC(GMRCARRY) | ; Build ^TMP were search was on location.
|
|
| BLDPROV(GMRCARRY) | ; Build ^TMP were search was on provider.
|
|
| CKSTAT(IEN,GMRCSTAT) | ; Does entry have selected status
; Input: ; IEN = File #123 IEN ; GMRCSTAT = Selected status(es) ; Output: ; GMRCKS = Result (1:yes; 0:no) |
|
| BLDPROC(GMRCARRY) | ; Build ^TMP were search was on procedure.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^GMR(123.3 - [#123.3] | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | TEST+4 |
| ^GMR(123 - [#123] | BLDLOC+9, BLDLOC+11, BLDLOC+14, BLDLOC+17, BLDLOC+19, BLDLOC+20, BLDLOC+23, BLDLOC+26, BLDLOC+28, BLDLOC+29 , BLDLOC+30, BLDLOC+34, BLDLOC+37, BLDLOC+39, BLDLOC+40, BLDLOC+41, BLDLOC+48, BLDLOC+49, BLDLOC+53, BLDLOC+54 , BLDLOC+57, BLDLOC+59, BLDLOC+60, BLDLOC+64, BLDLOC+65, BLDLOC+66, BLDLOC+70, BLDLOC+71, BLDPROC+7, BLDPROC+9 , BLDPROC+11, BLDPROC+14, BLDPROC+16, BLDPROC+17, BLDPROC+18, BLDPROC+24, BLDPROC+25, BLDPROC+29, BLDPROC+30, BLDPROC+31 , BLDPROV+8, BLDPROV+10, BLDPROV+13, BLDPROV+16, BLDPROV+18, BLDPROV+19, BLDPROV+22, BLDPROV+25, BLDPROV+27, BLDPROV+28 , BLDPROV+35, BLDPROV+36, BLDPROV+40, BLDPROV+41, BLDPROV+44, BLDPROV+45, BLDPROV+49, BLDPROV+50, CKSTAT+8, TEST+3 |
| ^TMP("GMRCRPT" | PRTTSK+21!, BLDLOC+1!, BLDLOC+20*, BLDLOC+30*, BLDLOC+41*, BLDLOC+54*, BLDLOC+65*, BLDLOC+71*, BLDPROC+1!, BLDPROC+18* , BLDPROC+31*, BLDPROV+1!, BLDPROV+19*, BLDPROV+28*, BLDPROV+41*, BLDPROV+50* |
| Name | Line Occurrences |
|---|---|
| $$CKSTAT | BLDLOC+14, BLDLOC+23, BLDLOC+34, BLDLOC+49, BLDLOC+60, BLDLOC+66, BLDPROC+10, BLDPROC+25, BLDPROV+12, BLDPROV+21 , BLDPROV+36, BLDPROV+45 |
| $$TEST | BLDLOC+15, BLDLOC+24, BLDLOC+35, BLDLOC+50, BLDLOC+61, BLDLOC+67, BLDPROC+12, BLDPROC+26, BLDPROV+14, BLDPROV+23 , BLDPROV+37, BLDPROV+46 |
| BLDLOC | PRTTSK+12 |
| BLDPROC | PRTTSK+13 |
| BLDPROV | PRTTSK+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CHK | BLDLOC+3~, BLDLOC+8*, BLDLOC+15*, BLDLOC+16, BLDLOC+24*, BLDLOC+25, BLDLOC+35*, BLDLOC+36, BLDLOC+50*, BLDLOC+51 , BLDLOC+61*, BLDLOC+62, BLDLOC+67*, BLDLOC+68, BLDPROC+12*, BLDPROC+13, BLDPROC+26*, BLDPROC+27, BLDPROV+14*, BLDPROV+15 , BLDPROV+23*, BLDPROV+24, BLDPROV+37*, BLDPROV+38, BLDPROV+46*, BLDPROV+47 |
| DIR | PRTTSK+23~, PRTTSK+26! |
| DIR(0 | PRTTSK+24* |
| GMRCARRY | PRINT~, PRTTSK+11, PRTTSK+12, PRTTSK+13, BLDLOC~, BLDLOC+14, BLDLOC+23, BLDLOC+34, BLDLOC+46, BLDLOC+55 , BLDPROC~, BLDPROV~, BLDPROV+12, BLDPROV+21, BLDPROV+33, BLDPROV+42 |
| GMRCARRY( | BLDLOC+44, BLDLOC+45, BLDLOC+46, BLDLOC+52, BLDLOC+55, BLDLOC+63, BLDLOC+69, BLDPROC+21, BLDPROC+22, BLDPROC+28 , BLDPROV+31, BLDPROV+32, BLDPROV+33, BLDPROV+39, BLDPROV+42, BLDPROV+48 |
| GMRCARRY(1 | BLDLOC+7, BLDLOC+43, BLDPROC+5, BLDPROC+20, BLDPROV+6, BLDPROV+30 |
| GMRCBRK | PRINT~, PRTTSK+15, PRTTSK+16 |
| GMRCCNTR | BLDLOC+2~, BLDLOC+4*, BLDLOC+44*, BLDLOC+45, BLDLOC+46, BLDLOC+52, BLDLOC+55, BLDLOC+63, BLDLOC+69, BLDPROC+2~ , BLDPROC+3*, BLDPROC+21*, BLDPROC+22, BLDPROC+28, BLDPROV+2~, BLDPROV+4*, BLDPROV+31*, BLDPROV+32, BLDPROV+33, BLDPROV+39 , BLDPROV+42, BLDPROV+48 |
| GMRCDT1 | PRINT~, BLDLOC+8, BLDLOC+49, BLDLOC+56, BLDPROC+6, BLDPROC+25, BLDPROV+7, BLDPROV+36, BLDPROV+45 |
| GMRCDT2 | PRINT~, BLDLOC+8, BLDLOC+49, BLDLOC+56, BLDPROC+6, BLDPROC+25, BLDPROV+7, BLDPROV+36, BLDPROV+45 |
| GMRCKS | CKSTAT+6~, CKSTAT+7*, CKSTAT+9, CKSTAT+10*, CKSTAT+11 |
| GMRCLOC1 | BLDLOC+2~, BLDLOC+8*, BLDLOC+9*, BLDLOC+11, BLDLOC+56*, BLDLOC+57*, BLDLOC+59 |
| GMRCLOC2 | BLDLOC+2~, BLDLOC+8*, BLDLOC+9, BLDLOC+56*, BLDLOC+57 |
| GMRCPRC1 | BLDPROC+2~, BLDPROC+6*, BLDPROC+7*, BLDPROC+9 |
| GMRCPRC2 | BLDPROC+2~, BLDPROC+6*, BLDPROC+7 |
| GMRCPROV | BLDPROV+3~, BLDPROV+16*, BLDPROV+17, BLDPROV+25*, BLDPROV+26, BLDPROV+28 |
| GMRCPRV1 | BLDPROV+2~, BLDPROV+7*, BLDPROV+8*, BLDPROV+10 |
| GMRCPRV2 | BLDPROV+2~, BLDPROV+7*, BLDPROV+8 |
| GMRCREM | BLDLOC+3~, BLDLOC+29*, BLDLOC+30, BLDLOC+40*, BLDLOC+41, BLDPROC+2~, BLDPROC+17*, BLDPROC+18, BLDPROC+30*, BLDPROC+31 |
| GMRCRPT | PRINT~, PRTTSK+15, PRTTSK+16, PRTTSK+17 |
| GMRCS | CKSTAT+6~, CKSTAT+8*, CKSTAT+10 |
| GMRCSRCH | PRINT~, PRTTSK+11, PRTTSK+12, PRTTSK+13, PRTTSK+15, PRTTSK+16 |
| GMRCSRT1 | BLDLOC+2~, BLDLOC+18*, BLDLOC+20, BLDLOC+27*, BLDLOC+30, BLDLOC+38*, BLDLOC+41, BLDLOC+52*, BLDLOC+54, BLDLOC+63* , BLDLOC+65, BLDLOC+69*, BLDLOC+71, BLDPROC+2~, BLDPROC+15*, BLDPROC+18, BLDPROC+28*, BLDPROC+31, BLDPROV+2~, BLDPROV+17* , BLDPROV+19, BLDPROV+26*, BLDPROV+28, BLDPROV+39*, BLDPROV+41, BLDPROV+48*, BLDPROV+50 |
| GMRCSRT2 | BLDLOC+2~, BLDLOC+19*, BLDLOC+20, BLDLOC+28*, BLDLOC+30, BLDLOC+39*, BLDLOC+41, BLDLOC+53*, BLDLOC+54, BLDLOC+64* , BLDLOC+65, BLDLOC+70*, BLDLOC+71, BLDPROC+2~, BLDPROC+16*, BLDPROC+18, BLDPROC+29*, BLDPROC+31, BLDPROV+2~, BLDPROV+18* , BLDPROV+19, BLDPROV+27*, BLDPROV+28, BLDPROV+40*, BLDPROV+41, BLDPROV+49*, BLDPROV+50 |
| GMRCSTAT | PRINT~, BLDLOC+14, BLDLOC+23, BLDLOC+34, BLDLOC+49, BLDLOC+60, BLDLOC+66, BLDPROC+10, BLDPROC+25, BLDPROV+12 , BLDPROV+21, BLDPROV+36, BLDPROV+45, CKSTAT~, CKSTAT+9 |
| GMRTST | PRINT~, BLDLOC+15, BLDLOC+24, BLDLOC+35, BLDLOC+50, BLDLOC+61, BLDLOC+67, BLDPROC+12, BLDPROC+26, BLDPROV+14 , BLDPROV+23, BLDPROV+37, BLDPROV+46, TEST+5, TEST+6 |
| IEN | BLDLOC+2~, BLDLOC+10*, BLDLOC+11*, BLDLOC+14, BLDLOC+15, BLDLOC+17, BLDLOC+19, BLDLOC+20, BLDLOC+23, BLDLOC+24 , BLDLOC+26, BLDLOC+28, BLDLOC+29, BLDLOC+30, BLDLOC+34, BLDLOC+35, BLDLOC+37, BLDLOC+39, BLDLOC+40, BLDLOC+41 , BLDLOC+47~*, BLDLOC+48*, BLDLOC+49, BLDLOC+50, BLDLOC+53, BLDLOC+54, BLDLOC+58~*, BLDLOC+59*, BLDLOC+60, BLDLOC+61 , BLDLOC+64, BLDLOC+65, BLDLOC+66, BLDLOC+67, BLDLOC+70, BLDLOC+71, BLDPROC+2~, BLDPROC+8*, BLDPROC+9*, BLDPROC+10 , BLDPROC+11, BLDPROC+12, BLDPROC+14, BLDPROC+16, BLDPROC+17, BLDPROC+18, BLDPROC+23~*, BLDPROC+24*, BLDPROC+25, BLDPROC+26 , BLDPROC+29, BLDPROC+30, BLDPROC+31, BLDPROV+2~, BLDPROV+9*, BLDPROV+10*, BLDPROV+12, BLDPROV+13, BLDPROV+14, BLDPROV+16 , BLDPROV+18, BLDPROV+19, BLDPROV+21, BLDPROV+22, BLDPROV+23, BLDPROV+25, BLDPROV+27, BLDPROV+28, BLDPROV+34*, BLDPROV+35* , BLDPROV+36, BLDPROV+37, BLDPROV+40, BLDPROV+41, BLDPROV+43*, BLDPROV+44*, BLDPROV+45, BLDPROV+46, BLDPROV+49, BLDPROV+50 , CKSTAT~, CKSTAT+8, TEST~, TEST+3 |
| IOST | PRTTSK+22 |
| LOCATION | BLDLOC+2~, BLDLOC+17*, BLDLOC+18, BLDLOC+26*, BLDLOC+27, BLDLOC+37*, BLDLOC+38, BLDLOC+45*, BLDLOC+48, BLDLOC+60 , BLDLOC+66 |
| LOCPN | BLDLOC+3~ |
| LOOP | CKSTAT+6~, CKSTAT+9* |
| NODE | TEST+1~, TEST+3*, TEST+4 |
| PROCEDUR | BLDPROC+2~, BLDPROC+14*, BLDPROC+15, BLDPROC+22*, BLDPROC+24 |
| PROVIDER | BLDPROV+2~, BLDPROV+32*, BLDPROV+35, BLDPROV+44, BLDPROV+50 |
| RESULT | TEST+1~, TEST+2*, TEST+5*, TEST+6*, TEST+7 |
| SSN | TEST+1~, TEST+4*, TEST+5, TEST+6 |
| STATUS | CKSTAT+6~, CKSTAT+9*, CKSTAT+10 |
| SUBTOT | PRTTSK+14~*, PRTTSK+15, PRTTSK+16, PRTTSK+18 |
| TOTCNTR | PRTTSK+14~*, PRTTSK+15, PRTTSK+16, PRTTSK+19 |
| TST | TEST~ |