©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
PXRRWLD ;ISL/PKR,ALB/Zoltan - Driver for PCE encounter summary report.;12/1/98
Source file <PXRRWLD.m>
| Package | Total | Caller Graph |
|---|---|---|
| PCE Patient Care Encounter | 5 | PXRR PCE ENCOUNTER SUMMARY PXRRFDD PXRRLCD PXRRPAD PXRRPRD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOC | ;Get the location(s) for the report.
|
|
| SAVE | ;Save the variables.
|
|
| PXRRXTMP(PXPFX) | ; Extrinsic variable.
; Gets a unique PXRRXTMP value. |
|
| LORP | ;See if the report is to be by location or provider.
|
|
| WHICH(DEFAULT) | ;Find out if the report is to be by location or provider.
|
|
| PRV | ;Get the provider(s) for the report.
|
|
| EXIT | ;
|
|
| ENTY | ;Get the encounter types.
|
|
| FAC | ;Get the facility list.
|
|
| MAIN | ;
|
|
| DR | ;Get the date range.
|
|
| SCAT | ;Get the service categories.
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | ENTY+9 |
| ^DIR | PRV+13, WHICH+8 |
| PDR^PXRRADUT | DR+2 |
| ENTYPE^PXRRECSC | ENTY+2 |
| SCAT^PXRRECSC | SCAT+2 |
| EXIT^PXRRGUT | EXIT+1 |
| BYLOC^PXRRLCSC | LOC+5 |
| FACILITY^PXRRLCSC | FAC+2 |
| LOC^PXRRLCSC | LOC+4 |
| PRV^PXRRPRSC | PRV+5 |
| $$QUE^PXRRQUE | ENTY+20, ENTY+26, ENTY+32 |
| SORT^PXRRWLSE | ENTY+34 |
| $$DT^XLFDT | PXRRXTMP+9 |
| $$FMADD^XLFDT | MAIN+3 |
| $$HTFM^XLFDT | PXRRXTMP+10 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP( | PXRRXTMP+19 |
| ^TMP($J | PXRRXTMP+20 |
| ^XTMP( | MAIN+3*, ENTY+20*, ENTY+26*, ENTY+32*, PXRRXTMP+18 |
| ^XTMP("PXRRXTMP" | PXRRXTMP+5, PXRRXTMP+8, PXRRXTMP+11*, PXRRXTMP+12, PXRRXTMP+13, PXRRXTMP+16*, PXRRXTMP+22 |
| Name | Line Occurrences |
|---|---|
| $$PXRRXTMP | MAIN+2 |
| DR | SCAT+4 |
| EXIT | FAC+3, LORP+3, LOC+6, PRV+16, DR+3, SCAT+3, ENTY+3, ENTY+10 |
| FAC | LORP+4 |
| LORP | LOC+7, PRV+17, DR+4 |
| SCAT | ENTY+4 |
| WHICH | LORP+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | ENTY+7* |
| DEFAULT | WHICH~, WHICH+6 |
| DESC | ENTY+16~, ENTY+17*, ENTY+20, ENTY+22*, ENTY+26, ENTY+28*, ENTY+32 |
| DIR | PRV+13!, WHICH+8! |
| DIR("A" | PRV+9*, PRV+10*, WHICH+5* |
| DIR("B" | PRV+11*, WHICH+6* |
| DIR(0 | PRV+8*, WHICH+3*, WHICH+4* |
| DIROUT | PRV+14, WHICH+2!, WHICH+9 |
| DIRUT | PRV+7!, WHICH+2! |
| DT | MAIN+3 |
| DTOUT | FAC+3, LORP+3, LOC+6, PRV+6, PRV+7!, PRV+14*, PRV+16, DR+3, SCAT+3, ENTY+3 , WHICH+2!, WHICH+9*, WHICH+10 |
| DUOUT | FAC+3, LORP+4, LOC+7, PRV+6, PRV+7!, PRV+17, DR+4, SCAT+4, ENTY+4, WHICH+2! , WHICH+10 |
| IO("Q" | ENTY+12 |
| IODEV | ENTY+16~, ENTY+18*, ENTY+20, ENTY+23*, ENTY+26, ENTY+29*, ENTY+32 |
| IOM | ENTY+11 |
| ION | ENTY+11 |
| IOSL | ENTY+11 |
| IOST | ENTY+11 |
| NCL | PRV+1~ |
| NCS | LOC+1~ |
| NFAC | FAC+1~ |
| NHL | LOC+1~ |
| NPL | PRV+1~ |
| >> PFPFX | PXRRXTMP+2* |
| >> POP | ENTY+10 |
| PXCREATE | PXRRXTMP+6~, PXRRXTMP+9*, PXRRXTMP+11 |
| PXDONE | PXRRXTMP+4~, PXRRXTMP+14*, PXRRXTMP+15, PXRRXTMP+21* |
| PXPFX | PXRRXTMP~, PXRRXTMP+2, PXRRXTMP+17 |
| PXPURGE | PXRRXTMP+7~, PXRRXTMP+10*, PXRRXTMP+11 |
| PXRRBDT | DR+1~, DR+2 |
| PXRRCS | LOC+1~ |
| PXRREDT | DR+1~, DR+2 |
| PXRRENTY | ENTY+1~ |
| PXRRFAC | FAC+1~ |
| PXRRFACN | FAC+1~ |
| PXRRIOD | MAIN+1~, ENTY+11*, ENTY+29 |
| PXRRLCHL | LOC+1~ |
| PXRRLCSC | LOC+1~, LOC+3*, LOC+5 |
| PXRRMPR | PRV+2~, PRV+3* |
| PXRROPT | MAIN+1~ |
| PXRRPECL | PRV+1~ |
| PXRRPRLL | PRV+1~, PRV+15* |
| PXRRPRPL | PRV+1~ |
| PXRRPRSC | PRV+1~ |
| PXRRQUE | MAIN+1~, ENTY+12*, ENTY+14 |
| PXRRSCAT | SCAT+1~ |
| PXRRWLJB | MAIN+1~ |
| PXRRWLSC | LORP+1~, LOC+2, PRV+4, WHICH+11* |
| PXRRWLST | MAIN+1~ |
| PXRRXTMP | MAIN+1~, MAIN+2*, MAIN+3, ENTY+20, ENTY+26, ENTY+32, PXRRXTMP+3~, PXRRXTMP+16*, PXRRXTMP+17*, PXRRXTMP+18 , PXRRXTMP+19, PXRRXTMP+20, PXRRXTMP+23 |
| ROUTINE | ENTY+16~, ENTY+19*, ENTY+20, ENTY+24*, ENTY+26, ENTY+30*, ENTY+32 |
| U | MAIN+3, LOC+2, LOC+5, PRV+4, WHICH+3, WHICH+11 |
| X | WHICH+1~ |
| Y | PRV+15, WHICH+1~, WHICH+11 |
| Y(0 | WHICH+11 |
| >> ZTDTH | ENTY+25*, ENTY+31* |
| >> ZTSAVE("NCL" | SAVE+9* |
| >> ZTSAVE("NCS" | SAVE+2* |
| >> ZTSAVE("NFAC" | SAVE+4* |
| >> ZTSAVE("NHL" | SAVE+7* |
| >> ZTSAVE("NPL" | SAVE+11* |
| >> ZTSAVE("PXRRBDT" | SAVE+1* |
| >> ZTSAVE("PXRRCS(" | SAVE+2* |
| >> ZTSAVE("PXRREDT" | SAVE+1* |
| >> ZTSAVE("PXRRENTY" | SAVE+3* |
| >> ZTSAVE("PXRRFAC(" | SAVE+4* |
| >> ZTSAVE("PXRRFACN(" | SAVE+5* |
| >> ZTSAVE("PXRRIOD" | SAVE+6* |
| >> ZTSAVE("PXRRLCHL(" | SAVE+7* |
| >> ZTSAVE("PXRRLCSC" | SAVE+8* |
| >> ZTSAVE("PXRRMPR" | SAVE+17* |
| >> ZTSAVE("PXRRPECL(" | SAVE+9* |
| >> ZTSAVE("PXRRPRLL" | SAVE+10* |
| >> ZTSAVE("PXRRPRPL(" | SAVE+11* |
| >> ZTSAVE("PXRRPRSC" | SAVE+12* |
| >> ZTSAVE("PXRRQUE" | SAVE+13* |
| >> ZTSAVE("PXRRSCAT" | SAVE+14* |
| >> ZTSAVE("PXRRWLSC" | SAVE+16* |
| >> ZTSAVE("PXRRXTMP" | SAVE+15* |