RORUTL02 ;HCIOFO/SG - UTILITIES ;8/25/05 10:20am
Source file <RORUTL02.m>
| Package | Total | Call Graph |
|---|---|---|
| Clinical Case Registries | 5 | ($$DBS,$$ERROR,ERROR)^RORERR ($$LOCK,$$UNLOCK)^RORLOCK TEXT^RORTXT $$REGIEN^RORUTL02 $$DATE^RORXU002 |
| VA FileMan | 4 | (C,NOW)^%DTC FIND^DIC FILE^DIE $$GET1^DIQ |
| Registration | 2 | $$EMPL^DGSEC4 SDA^VADPT |
| Automated Lab Instruments | 1 | $$GCPR^LA7QRY |
| Master Patient Index VistA | 1 | ($$GETICN,$$IFLOCAL)^MPIF001 |
| Scheduling | 1 | ($$OUTPTPR,$$OUTPTTM)^SDUTL3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ARLST(REGLST) | ;
|
|
| ICN(PTIEN) | ;
|
|
| PACT(DFN) | ;returns ien & name of pc team PATCH 30
; DFN - pointer to patient file ; Date of interest (Default=DT) |
|
| PCP(DFN) | ||
| FUTAPPT(DFN,DAYS) | ||
| LABRSLTS(PTIEN,SDT,EDT,ROR8DST) | ;
|
|
| LNCODE(LNCODE) | ;
|
|
| LOCKREG(REGLST,MODE,TO,NAME) | ;
|
|
| PTID(PTIEN) | ;
|
|
| REGIEN(REGNAME,FIELDS,RORTRGT) | ;
|
|
| REGSIZE(REGIEN,LOWIEN,HIGHIEN) | ;
|
|
| SKIPEMPL(PTIEN,REGIEN) | ;
|
|
| SRLIEN(RULENAME,FIELDS,RORTRGT) | ;
|
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | FUTAPPT+4 |
| NOW^%DTC | FUTAPPT+4 |
| $$EMPL^DGSEC4 | SKIPEMPL+1 |
| FIND^DIC | LNCODE+2, REGIEN+2, SRLIEN+2 |
| FILE^DIE | REGSIZE+14 |
| $$GET1^DIQ | PTID+9, REGSIZE+6 |
| $$GCPR^LA7QRY | LABRSLTS+9 |
| $$GETICN^MPIF001 | ICN+3, PTID+2 |
| $$IFLOCAL^MPIF001 | ICN+2 |
| $$DBS^RORERR | LNCODE+3, PTID+10, REGIEN+3, REGSIZE+7, SRLIEN+3 |
| $$ERROR^RORERR | ICN+5, LABRSLTS+17, LNCODE+5, LNCODE+7 |
| ERROR^RORERR | ARLST+7, ARLST+11, ARLST+16 |
| $$LOCK^RORLOCK | LOCKREG+23, LOCKREG+26 |
| $$UNLOCK^RORLOCK | LOCKREG+29, LOCKREG+31, LOCKREG+34 |
| TEXT^RORTXT | ARLST+15 |
| $$REGIEN^RORUTL02 | LOCKREG+13 |
| $$DATE^RORXU002 | FUTAPPT+8 |
| $$OUTPTPR^SDUTL3 | PCP+9 |
| $$OUTPTTM^SDUTL3 | PACT+4 |
| SDA^VADPT | FUTAPPT+6 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^ROR(798.1 - [#798.1] | FIND^DIC, GET1^DIQ |
| ^ROR(798.2 - [#798.2] | FIND^DIC |
| ^LAB(95.3 - [#95.3] | FIND^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ROR(798.1 - [#798.1] | SKIPEMPL+2 |
| ^RORDATA(798 - [#798] | REGSIZE+2 |
| ^TMP("RORTMP" | LABRSLTS+2 |
| ^UTILITY("VASD" | FUTAPPT+7, FUTAPPT+8, FUTAPPT+9 |
| Name | Line Occurrences |
|---|---|
| $$PTID | LABRSLTS+6 |
| $$REGIEN | ARLST+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CT | LOCKREG+3~, LOCKREG+10*, LOCKREG+14*, LOCKREG+16, LOCKREG+17, LOCKREG+20 |
| DAYS | FUTAPPT~, FUTAPPT+2, FUTAPPT+4 |
| DFN | PACT~, PACT+4, PCP~, PCP+9, FUTAPPT~ |
| >> DIERR | LNCODE+3, PTID+10, REGIEN+3, REGSIZE+7, SRLIEN+3 |
| DSTLST | ARLST+1! |
| DT | PACT+4, PCP+9 |
| EDT | LABRSLTS~, LABRSLTS+9 |
| ERR | LABRSLTS+11~, LABRSLTS+12*, LABRSLTS+13*, LABRSLTS+14, LABRSLTS+15 |
| FAILS | LOCKREG+3~, LOCKREG+26*, LOCKREG+28, LOCKREG+34*, LOCKREG+35 |
| FIELDS | REGIEN~, REGIEN+2, SRLIEN~, SRLIEN+2 |
| H7CH | LABRSLTS+1~, LABRSLTS+8*, LABRSLTS+9 |
| HIGHIEN | REGSIZE~, REGSIZE+4* |
| I | LABRSLTS+11~, LABRSLTS+13*, LABRSLTS+15, REGSIZE+1~, REGSIZE+10*, REGSIZE+11* |
| ICN | ICN+1~, ICN+3*, ICN+4, ICN+5, ICN+7, ICN+8 |
| INFO | ARLST+1~, ARLST+15, ARLST+16, ARLST+17! |
| L | ICN+1~, ICN+7*, ICN+8, PTID+1~, PTID+5*, PTID+7 |
| LNCODE | LNCODE~, LNCODE+2, LNCODE+5, LNCODE+7 |
| LOCKLST | LOCKREG+2~, LOCKREG+17, LOCKREG+18!, LOCKREG+20!, LOCKREG+21, LOCKREG+23, LOCKREG+25!*, LOCKREG+26, LOCKREG+29!*, LOCKREG+31 , LOCKREG+33!, LOCKREG+34* |
| LOCKLST( | LOCKREG+15* |
| LOCKLST("" | LOCKREG+20 |
| LOWIEN | REGSIZE~, REGSIZE+3* |
| LST | LABRSLTS+11~, LABRSLTS+12*, LABRSLTS+14*, LABRSLTS+16* |
| MODE | LOCKREG~, LOCKREG+22 |
| NAME | LOCKREG~, LOCKREG+23, LOCKREG+26 |
| NODE | REGSIZE+1~, REGSIZE+2*, REGSIZE+3, REGSIZE+4, REGSIZE+11 |
| NRE | REGSIZE+1~, REGSIZE+6*, REGSIZE+8, REGSIZE+10*, REGSIZE+11*, REGSIZE+13, REGSIZE+15 |
| PTID | LABRSLTS+6*, LABRSLTS+9, PTID+1~, PTID+2*, PTID+3, PTID+5, PTID+7*, PTID+9*, PTID+11 |
| PTIEN | ICN~, ICN+2, ICN+3, ICN+5, LABRSLTS~, LABRSLTS+6, LABRSLTS+17, PTID~, PTID+2, PTID+9 , PTID+10, SKIPEMPL~, SKIPEMPL+1 |
| Q | LOCKREG+3~, LOCKREG+24*, LOCKREG+25, LOCKREG+28, LOCKREG+29, LOCKREG+33*, LOCKREG+34 |
| Q0 | LOCKREG+3~, LOCKREG+29* |
| RC | ARLST+1~, ARLST+2*, ARLST+3, ARLST+20, LABRSLTS+1~, LABRSLTS+9*, LABRSLTS+10, LABRSLTS+17*, LABRSLTS+18, LNCODE+1~ , LNCODE+4, LNCODE+5*, LNCODE+6, LNCODE+7*, LOCKREG+2~, LOCKREG+22*, LOCKREG+23*, LOCKREG+24, LOCKREG+26*, LOCKREG+31* , LOCKREG+32*, LOCKREG+35*, LOCKREG+36, PTID+1~, REGIEN+1~, REGIEN+4*, REGIEN+5, REGSIZE+1~, SRLIEN+1~, SRLIEN+4* , SRLIEN+5 |
| REGIEN | ARLST+1~, ARLST+4*, ARLST+6, ARLST+7, ARLST+19, LOCKREG+2~, LOCKREG+11, LOCKREG+12*, LOCKREG+13*, LOCKREG+15 , LOCKREG+19, REGIEN+1~, REGSIZE~, REGSIZE+2, REGSIZE+6, REGSIZE+7, REGSIZE+13, SKIPEMPL~, SKIPEMPL+2 |
| REGIEN("SE" | SKIPEMPL+2*, SKIPEMPL+3 |
| REGLST | ARLST~, LOCKREG~, LOCKREG+1 |
| REGLST( | ARLST+3, ARLST+8!, ARLST+12!, ARLST+17!, ARLST+19*, LOCKREG+11, LOCKREG+12 |
| REGNAME | ARLST+1~, ARLST+2*, ARLST+3*, ARLST+4, ARLST+7, ARLST+8, ARLST+11, ARLST+12, ARLST+16, ARLST+17 , ARLST+19, LOCKREG+2~, LOCKREG+10*, LOCKREG+11*, LOCKREG+12, LOCKREG+13, REGIEN~, REGIEN+2 |
| ROR8DST | LABRSLTS~, LABRSLTS+2*, LABRSLTS+3, LABRSLTS+9 |
| RORAPPTCNE | FUTAPPT+1~, FUTAPPT+7, FUTAPPT+9* |
| RORAPPTDT | FUTAPPT+1~, FUTAPPT+7, FUTAPPT+8* |
| RORBUF | ARLST+1~, ARLST+4, LNCODE+1~ |
| RORBUF("DILIST" | ARLST+10, ARLST+14, LNCODE+4, LNCODE+6, LNCODE+8 |
| RORFDA | REGSIZE+1~ |
| RORFDA( | REGSIZE+13* |
| >> RORHL("ECH" | LABRSLTS+8 |
| >> RORHL("FS" | LABRSLTS+8 |
| RORLIST | LOCKREG+2~, LOCKREG+10*, LOCKREG+17*, LOCKREG+20, LOCKREG+23, LOCKREG+31 |
| RORLIST( | LOCKREG+17*, LOCKREG+20*, LOCKREG+24, LOCKREG+25, LOCKREG+29, LOCKREG+33, LOCKREG+34 |
| RORLIST(0 | LOCKREG+21 |
| >> RORLRC | LABRSLTS+4, LABRSLTS+9 |
| RORMSG | LABRSLTS+1~, LABRSLTS+9, LABRSLTS+10, LABRSLTS+17, LNCODE+1~, PTID+1~, REGIEN+1~, REGSIZE+1~, SRLIEN+1~ |
| RORMSG( | LABRSLTS+13, LABRSLTS+14, LABRSLTS+15!* |
| >> RORPARM("SETUP" | ARLST+14 |
| RORTRGT | REGIEN~, REGIEN+1!, SRLIEN~, SRLIEN+1! |
| RORTRGT("DILIST" | REGIEN+4, REGIEN+5, SRLIEN+4, SRLIEN+5 |
| RULEIEN | SRLIEN+1~ |
| RULENAME | SRLIEN~, SRLIEN+2 |
| SDT | LABRSLTS~, LABRSLTS+9 |
| TMP | ARLST+1~, ICN+1~, ICN+5*, LABRSLTS+1~, LABRSLTS+14*, LABRSLTS+15 |
| TO | LOCKREG~, LOCKREG+23, LOCKREG+26 |
| U | ICN+5, PACT+4, FUTAPPT+7, FUTAPPT+8, FUTAPPT+9, SKIPEMPL+2 |
| VASD | FUTAPPT+1~ |
| VASD("F" | FUTAPPT+4* |
| VASD("T" | FUTAPPT+4* |
| VASD("W" | FUTAPPT+5* |
| X | FUTAPPT+3~, FUTAPPT+4 |
| X1 | FUTAPPT+3~, FUTAPPT+4* |
| X2 | FUTAPPT+3~, FUTAPPT+4* |
| Z | LOCKREG+3~, LOCKREG+29* |
