©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
PSJHVARS ;BIR/RSB-SAVE/RESTORE VARIABLES FOR HIDDEN MENUS ;24 Feb 99 / 10:42 AM
Source file <PSJHVARS.m>
| Package | Total | Caller Graph |
|---|---|---|
| Inpatient Medications | 3 | PSGVBW0 PSIVOD PSJOE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RESTORE | ; restores the variables from ^TMP
|
|
| LIST | ;
|
|
| SVARRAY | ; Save array to ^TMP
|
|
| SAVEPS | ; Save the ^PS(53.45,DUZ,2) entry
; Save the 2,0) node |
|
| HIDCHK() | ; XQORNEST(X) contains a list of selected protocols.
|
|
| RESPS | ; Restore any saved ^PS(53.45,DUZ,2) entry
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ORD(101 - [#101] | HIDCHK+3, HIDCHK+4 |
| ^PS(53.45 - [#53.45] | SAVEPS+2, SAVEPS+3, SAVEPS+6, SAVEPS+7, SAVEPS+9, SAVEPS+11, SAVEPS+13, SAVEPS+14, RESPS+3*, RESPS+7* , RESPS+14* |
| ^TMP("PSIV" | PSJHVARS+22 |
| ^TMP("PSJ5345" | SAVEPS+3*, SAVEPS+7*, SAVEPS+14*, RESPS+2, RESPS+3, RESPS+6, RESPS+7, RESPS+9, RESPS+11, RESPS+13 , RESPS+14, RESPS+22! |
| ^TMP("PSJALL" | PSJHVARS+23 |
| ^TMP("PSJHDRG" | PSJHVARS+15*, RESTORE+4, RESTORE+13! |
| ^TMP("PSJHIDCHK" | HIDCHK+1!, HIDCHK+2*, HIDCHK+5, HIDCHK+6! |
| ^TMP("PSJHTMP" | RESTORE+9!, RESTORE+10!, RESTORE+11!, RESTORE+12! |
| ^TMP("PSJI" | PSJHVARS+24 |
| ^TMP("PSJON" | PSJHVARS+17, PSJHVARS+18, RESTORE+6, RESTORE+8* |
| ^TMP("PSJPRO" | PSJHVARS+25 |
| ^TMP("PSJVARS" | PSJHVARS+12!, PSJHVARS+14*, SVARRAY+2*, RESTORE+2, RESTORE+3, RESTORE+13! |
| ^TMP("PSJ_ON_HIDDEN" | PSJHVARS+12!, PSJHVARS+18*, RESTORE+7, RESTORE+8, RESTORE+13! |
| Name | Line Occurrences |
|---|---|
| $$HIDCHK | PSJHVARS+8 |
| RESPS | RESTORE+15 |
| SAVEPS | PSJHVARS+26 |
| SVARRAY | PSJHVARS+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %X | PSJHVARS+22*, PSJHVARS+23*, PSJHVARS+24*, PSJHVARS+25*, RESTORE+9*, RESTORE+10*, RESTORE+11*, RESTORE+12* |
| >> %Y | PSJHVARS+22*, PSJHVARS+23*, PSJHVARS+24*, PSJHVARS+25*, RESTORE+9*, RESTORE+10*, RESTORE+11*, RESTORE+12* |
| DIR | PSJHVARS+10~ |
| DIR(0 | PSJHVARS+10* |
| DRG | PSJHVARS+15, RESTORE+4!* |
| DUZ | SAVEPS+2, SAVEPS+3, SAVEPS+6, SAVEPS+7, SAVEPS+9, SAVEPS+11, SAVEPS+13, SAVEPS+14, RESPS+2, RESPS+3 , RESPS+6, RESPS+7, RESPS+9, RESPS+11, RESPS+13, RESPS+14, RESPS+22 |
| PSJ | HIDCHK+1~, HIDCHK+5*, HIDCHK+7 |
| >> PSJBLOOP | SAVEPS+10*, SAVEPS+11*, SAVEPS+13, SAVEPS+14, RESPS+10*, RESPS+11*, RESPS+13, RESPS+14 |
| >> PSJCOUNT | SAVEPS+12*, SAVEPS+13*, SAVEPS+14, RESPS+12*, RESPS+13*, RESPS+14 |
| >> PSJHIDFG | RESTORE+1 |
| >> PSJLOOP | SAVEPS+5*, SAVEPS+6*, SAVEPS+7, RESPS+5*, RESPS+6*, RESPS+7 |
| PSJRSB1 | PSJHVARS+13*, PSJHVARS+19!, RESTORE+7*, RESTORE+8, RESTORE+14! |
| PSJRSB1L | PSJHVARS+17*, PSJHVARS+18, PSJHVARS+19! |
| PSJRSBV | PSJHVARS+13*, PSJHVARS+14, PSJHVARS+19!, RESTORE+2*, RESTORE+3, RESTORE+14! |
| PSJVARX | SVARRAY+1~*, SVARRAY+2 |
| PSJX | PSJHVARS+20~, PSJHVARS+21*, SVARRAY+1, SVARRAY+2 |
| X | SVARRAY+1~, SVARRAY+2*, HIDCHK+1~, HIDCHK+2*, HIDCHK+3*, HIDCHK+5 |
| >> XQORNEST( | HIDCHK+2 |
| >> XQORQUIT | PSJHVARS+9* |
| Y | HIDCHK+1~, HIDCHK+4*, HIDCHK+5 |
| Name | Field # of Occurrence |
|---|---|
| $T(LIST+PSJRSB1 | PSJHVARS+13 |