PXRMEXLM ;SLC/PKR/PJH - Clinical Reminder Exchange List Manager routines. ;08/16/2018
Source file <PXRMEXLM.m>
| Package | Total | Call Graph |
|---|---|---|
| Clinical Reminders | 12 | ($$GETEHF,LHF)^PXRMEXHF START^PXRMEXIH BLDLIST^PXRMEXLC INITMPG^PXRMEXLM HELP^PXRMEXMH ($$GETMESSN,LMM)^PXRMEXMM CRE^PXRMEXPD DELETE^PXRMEXU1 $$EXCLASS^PXRMEXU2 $$LWEB^PXRMEXWB ($$SELECT,REMVAR)^PXRMINQ ($$QUERYAO,RDEF,REXL)^PXRMLIST |
| List Manager | 3 | (CHGCAP,EN)^VALM (CLEAR,FULL)^VALM1 CLEAN^VALM10 |
| Kernel | 1 | (ENDR,KILL)^%ZISS |
| VA FileMan | 1 | ^DIR |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CRE | ;Create a packed reminder and store it in the repository.
|
|
| DEFINQ | ;Reminder definition inquiry.
|
|
| ENTRY | ;Entry code
|
|
| EXIT | ;Exit code
|
|
| HDR | ; Header code
|
|
| HELP | ;Help code
|
|
| INIT | ;Init
|
|
| INITMPG | ;Initialized all the ^TMP globals.
|
|
| LDHF | ;Load a host file into the repository.
|
|
| LDMM | ;Load a MailMan message into the repository.
|
|
| LDWEB | ;Load a host file from a web site into the repository.
|
|
| LRDEF | ;List the name and print name of all reminder definitions.
|
|
| PEXIT | ;PXRM EXCH MENU protocol exit code
|
|
| START | ;Main entry point for PXRM EXCHANGE
|
|
| XQORM | ;Set the range for selection.
|
|
| XSEL | ;PXRM EXCH SELECT COMPONENT validation
|
| Name | Field # of Occurrence |
|---|---|
| ENDR^%ZISS | START+10 |
| KILL^%ZISS | START+13 |
| ^DIR | XSEL+30 |
| $$GETEHF^PXRMEXHF | LDHF+4 |
| LHF^PXRMEXHF | LDHF+8 |
| START^PXRMEXIH | XSEL+49 |
| BLDLIST^PXRMEXLC | ENTRY+2, LDHF+23, LDMM+12, LDMM+23, LDWEB+9 |
| INITMPG^PXRMEXLM | ENTRY+1, EXIT+1 |
| HELP^PXRMEXMH | HELP+1 |
| $$GETMESSN^PXRMEXMM | LDMM+4 |
| LMM^PXRMEXMM | LDMM+7 |
| CRE^PXRMEXPD | CRE+2 |
| DELETE^PXRMEXU1 | XSEL+42 |
| $$EXCLASS^PXRMEXU2 | XSEL+16 |
| $$LWEB^PXRMEXWB | LDWEB+2 |
| $$SELECT^PXRMINQ | DEFINQ+5 |
| REMVAR^PXRMINQ | DEFINQ+9 |
| $$QUERYAO^PXRMLIST | LRDEF+5 |
| RDEF^PXRMLIST | LRDEF+7 |
| REXL^PXRMLIST | XSEL+45 |
| CHGCAP^VALM | LRDEF+10 |
| EN^VALM | DEFINQ+11, LRDEF+11, START+11, XSEL+37 |
| CLEAR^VALM1 | LDHF+3, LDMM+3 |
| FULL^VALM1 | CRE+1, EXIT+3, XSEL+19 |
| CLEAN^VALM10 | EXIT+2 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ORD(101 - [#101] | XQORM+3 |
| ^TMP("PXRMEXDGH" | INITMPG+2! |
| ^TMP("PXRMEXDH" | INITMPG+1! |
| ^TMP("PXRMEXDL" | INITMPG+3! |
| ^TMP("PXRMEXFND" | INITMPG+5! |
| ^TMP("PXRMEXHF" | INITMPG+4! |
| ^TMP("PXRMEXIA" | INITMPG+6! |
| ^TMP("PXRMEXIAD" | INITMPG+7! |
| ^TMP("PXRMEXID" | INITMPG+8! |
| ^TMP("PXRMEXIH" | INITMPG+9! |
| ^TMP("PXRMEXLC" | INITMPG+10!, XSEL+38! |
| ^TMP("PXRMEXLD" | INITMPG+11!, LRDEF+2, LRDEF+6*, LRDEF+8*, LRDEF+10 |
| ^TMP("PXRMEXLHF" | INITMPG+12! |
| ^TMP("PXRMEXLMM" | INITMPG+13! |
| ^TMP("PXRMEXLR" | INITMPG+14!, XQORM+2, XSEL+14, XSEL+44!, XSEL+46 |
| ^TMP("PXRMEXMH" | INITMPG+15! |
| ^TMP("PXRMEXMM" | INITMPG+16! |
| ^TMP("PXRMEXRI" | INITMPG+17! |
| ^TMP("PXRMEXTMP" | INITMPG+18! |
| ^TMP("PXRMEXTXT" | INITMPG+19! |
| ^TMP("PXRMRINQ" | DEFINQ+8!, DEFINQ+10, DEFINQ+12! |
| ^TMP($J | INITMPG+20!, INITMPG+21!, INITMPG+22!, INITMPG+23!, INITMPG+24! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARO | LRDEF+4~, LRDEF+5*, LRDEF+6, LRDEF+7 |
| COUNT | XSEL+41~ |
| DEFLIST | LRDEF+4~, LRDEF+7, LRDEF+8 |
| DEFLIST("VALMCNT" | LRDEF+9 |
| DIR | XSEL+22~ |
| DIR("?" | XSEL+28* |
| DIR("??" | XSEL+29* |
| DIR("A" | XSEL+26* |
| DIR("B" | XSEL+27* |
| DIR(0 | XSEL+23*, XSEL+24*, XSEL+25* |
| DIROUT | XSEL+22~, XSEL+31 |
| DIRUT | XSEL+22~, XSEL+31 |
| DTOUT | XSEL+22~, XSEL+32 |
| DUOUT | XSEL+22~, XSEL+32 |
| FILE | LDHF+1~, LDHF+7*, LDHF+8, LDHF+11, LDHF+14 |
| GBL | DEFINQ+1~, DEFINQ+2*, DEFINQ+3*, DEFINQ+9 |
| IEN | DEFINQ+1~, DEFINQ+5*, DEFINQ+6*, DEFINQ+7, DEFINQ+9, XSEL+41~ |
| IND | LDHF+1~, LDHF+16*, LDHF+17*, LDHF+18, LDHF+19, LDHF+20, LDMM+1~, LDMM+16*, LDMM+17*, LDMM+18 , LDMM+19, LDMM+20, XSEL+41~ |
| >> IORESET | START+12 |
| NEXCHE | XQORM+1~, XQORM+2*, XQORM+3 |
| OPTION | XSEL+22~, XSEL+33*, XSEL+36, XSEL+40, XSEL+49 |
| PATH | LDHF+1~, LDHF+6*, LDHF+8, LDHF+11, LDHF+14 |
| PXRMDONE | START+1~, START+3* |
| PXRMIGDS | EXIT+5! |
| PXRMINST | EXIT+5! |
| PXRMNAT | XSEL+1~, XSEL+16* |
| PXRMNMCH | START+1~ |
| PXRMRIEN | XSEL+1~, XSEL+14*, XSEL+16 |
| PXRMROOT | DEFINQ+1~, DEFINQ+4*, DEFINQ+5 |
| RBL | LDHF+1~, LDHF+9*, LDHF+18*, LDHF+23, LDMM+1~, LDMM+8*, LDMM+18*, LDMM+23 |
| RELIST | XSEL+41~ |
| SEL | XSEL+1~, XSEL+2*, XSEL+4*, XSEL+6, XSEL+9, XSEL+10, XSEL+14, XSEL+42 |
| SUCCESS | LDHF+1~, LDHF+8, LDHF+9, LDHF+10, LDMM+7, LDMM+8, LDMM+9, LDWEB+1~, LDWEB+2*, LDWEB+3 , LDWEB+9 |
| SUCCESS( | LDHF+17, LDHF+18, LDHF+19, LDMM+17, LDMM+18, LDMM+19 |
| TEMP | LDHF+1~, LDHF+4*, LDHF+5, LDHF+6, LDHF+7, LDHF+15*, LDHF+19*, LDHF+20*, LDHF+21, LDMM+1~ , LDMM+15*, LDMM+19*, LDMM+20*, LDMM+21, LDWEB+1~ |
| U | DEFINQ+6, LDHF+6, LDHF+7, XQORM+3, XSEL+23, XSEL+29 |
| URL | LDWEB+1~, LDWEB+2, LDWEB+4, LDWEB+6, LDWEB+7 |
| >> VALMAR | XSEL+9 |
| VALMBCK | CRE+3*, DEFINQ+7*, DEFINQ+13*, EXIT+4*, LDHF+5*, LDHF+24*, LDMM+6*, LDMM+24*, LDWEB+10*, START+8~ , XSEL+8*, XSEL+11*, XSEL+31*, XSEL+32*, XSEL+47*, XSEL+51* |
| VALMCNT | DEFINQ+1~, DEFINQ+10*, INIT+1*, LRDEF+1~, LRDEF+2*, LRDEF+9*, XSEL+9, XSEL+46* |
| >> VALMHDR(1 | HDR+1*, LDHF+11*, LDHF+14*, LDMM+10*, LDMM+14*, LDWEB+4*, LDWEB+6*, LDWEB+7*, XSEL+47* |
| >> VALMHDR(2 | LDHF+12!, LDHF+21*, LDMM+21*, XSEL+47* |
| VALMSG | HDR+2*, PEXIT+1*, START+8~ |
| VALMY | XSEL+41~ |
| X | START+8~, START+9*, XSEL+22~ |
| XMZ | LDMM+1~, LDMM+4*, LDMM+5, LDMM+6, LDMM+7, LDMM+10, LDMM+14, START+8~ |
| >> XQORM("#" | XQORM+3* |
| >> XQORM("A" | XQORM+4* |
| >> XQORNOD(0 | XSEL+2 |
| Y | XSEL+22~, XSEL+33 |
