PSOERPC1 ;BIRM/MFR - All Patients (Patient Centric) eRx Queue - Supporting APIs 1 ; 12/10/22 10:07am
Source file <PSOERPC1.m>
Package | Total | Call Graph |
---|---|---|
Outpatient Pharmacy | 6 | ($$MATCHFLT,$$MATCHLBL)^PSOERPC2 $$EPATFLST^PSOERUT CHKEXP^PSOERX $$L^PSOERX1A $$PRESOLV^PSOERXA1 $$CSFILTER^PSOERXUT |
Kernel | 2 | ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT $$UP^XLFSTR |
VA FileMan | 2 | ^DIC $$GET1^DIQ |
List Manager | 1 | INSTR^VALM1 |
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 |
---|---|---|
HDR | ; - Displays the Header Line
|
|
SETSORT | ; - Set Patient List
|
|
SETPAT(ERXIEN,PATCNT) | ; - Builds a sorted list of Patients
|
|
PATSTATS(PATIEN) | ; Set the Numbers (Stat Columns data) of eRx by Patient
; Input: PATIEN - eRx Patient IEN (Pointer to #52.46) |
|
ELIGSTS(VIEW,ERXSTS,MSGTYPE) | ; Checks whether the eRx's status is eligible to be on the list (counted)
; Input: VIEW - View: "PC" - Patient Centric View | "RX" - Rx Medication View ; ERXSTS - eRx Status (External format: e.g.,"N","HDI", "I", etc...) ; [o]MSGTYPE - Message Type ("N","RE","RR","CR", etc...) |
|
FILTERED(VIEW) | ; Return whether the list is being filtered or not
; Input: VIEW - View: "PC" - Patient Centric View | "RX" - Rx Medication View |
|
HLDSTS() | ; - Prompt User for Hold eRx Status
|
|
CCRSTS(LST) | ; - Prompt User for CCR eRx Status
|
|
NEXTPAT(CURPTIEN) | ; Returns the next Patient on the Queue to be worked on
; Input: (o)CURPTIEN - Current eRx Patient IEN (Pointer to #52.46) (If not passed, start with first patient) |
|
LOADSTS(STSLST) | ; Load Status Filter Array based on the Filter selected
|
|
STSIEN(STS) | ; Returns the eRx Status IEN
; Input: STS - eRx Status (external format, e.g., 'N', 'I', 'RXN', etc.) |
|
LOCK(PATIEN) | ; Locks eRx Patient
; Input: PATIEN - eRx Patient IEN (Pointer to #52.46) |
Name | Field # of Occurrence |
---|---|
^DIC | HLDSTS+5, CCRSTS+10 |
$$GET1^DIQ | PATSTATS+11, HLDSTS+6, NEXTPAT+7, LOCK+9 |
$$MATCHFLT^PSOERPC2 | SETPAT+30, NEXTPAT+23 |
$$MATCHLBL^PSOERPC2 | HDR+19 |
$$EPATFLST^PSOERUT | HDR+21 |
CHKEXP^PSOERX | SETPAT+17, SETPAT+19 |
$$L^PSOERX1A | LOCK+5 |
$$PRESOLV^PSOERXA1 | CCRSTS+5 |
$$CSFILTER^PSOERXUT | SETPAT+27 |
INSTR^VALM1 | HDR+6, HDR+30, HDR+33 |
$$FMADD^XLFDT | SETSORT+7, SETSORT+16, SETSORT+26, SETSORT+31, SETSORT+39, PATSTATS+12, NEXTPAT+8 |
$$FMDIFF^XLFDT | PATSTATS+25, PATSTATS+26 |
$$FMTE^XLFDT | HDR+20, SETPAT+42, LOCK+10 |
$$UP^XLFSTR | HLDSTS+6 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^PS(52.45 - [#52.45] | GET1^DIQ |
^PS(59 - [#59] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(52.45 - [#52.45] | SETSORT+42, SETPAT+8, PATSTATS+19, LOADSTS+16, STSIEN+4 |
^PS(52.46 - [#52.46] | SETSORT+6, SETSORT+14, SETPAT+36 |
^PS(52.49 - [#52.49] | SETSORT+8, SETSORT+9, SETSORT+17, SETSORT+18, SETSORT+27, SETSORT+28, SETSORT+32, SETSORT+33, SETSORT+35, SETSORT+40 , SETSORT+41, SETSORT+43, SETSORT+45, SETPAT+6, SETPAT+7, SETPAT+14, PATSTATS+13, PATSTATS+14, PATSTATS+15, PATSTATS+16 , PATSTATS+18, NEXTPAT+9, NEXTPAT+10, NEXTPAT+13, NEXTPAT+15, NEXTPAT+16, NEXTPAT+17, NEXTPAT+18 |
^TMP("PSOERPAT" | SETPAT+11, SETPAT+30*, SETPAT+44* |
^TMP("PSOERPCS" | SETPAT+42*, SETPAT+43* |
^TMP("PSOERSKP" | NEXTPAT+4!, NEXTPAT+19, NEXTPAT+21*, NEXTPAT+23*, NEXTPAT+29! |
^XTMP("PSOERXLOCK" | LOCK+8, LOCK+9, LOCK+10 |
^XTMP("PSOERXWP" | NEXTPAT+27, NEXTPAT+31* |
^XUSEC("PSO ERX WORKLOAD TECH" | NEXTPAT+27, NEXTPAT+31 |
Name | Line Occurrences |
---|---|
$$ELIGSTS | SETSORT+42, SETPAT+33, PATSTATS+20 |
$$FILTERED | ELIGSTS+11, ELIGSTS+17, ELIGSTS+18, ELIGSTS+23 |
$$NEXTPAT | NEXTPAT+30 |
$$PATSTATS | SETPAT+35 |
$$STSIEN | LOADSTS+5, LOADSTS+6, LOADSTS+7, LOADSTS+8, LOADSTS+12, LOADSTS+13, LOADSTS+17, LOADSTS+18 |
LOADSTS | SETSORT+23, NEXTPAT+5 |
SETPAT | SETSORT+10, SETSORT+19, SETSORT+29, SETSORT+36, SETSORT+46 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CARY | CCRSTS+1~ |
CARY( | CCRSTS+6* |
CCRSTS | ELIGSTS+5~, ELIGSTS+27, ELIGSTS+28* |
CIEN | CCRSTS+1~, CCRSTS+5*, CCRSTS+6 |
CODE | CCRSTS+1~, CCRSTS+4*, CCRSTS+5 |
CSERX | SETPAT+4~, SETPAT+14*, SETPAT+25, SETPAT+26, SETPAT+41*, PATSTATS+10~, PATSTATS+15*, PATSTATS+22, PATSTATS+23, PATSTATS+35 , NEXTPAT+3~, NEXTPAT+17*, NEXTPAT+25, NEXTPAT+26 |
>> CSGROUP | SETPAT+41*, SETPAT+42, SETPAT+43 |
CURPTIEN | NEXTPAT~, NEXTPAT+8, NEXTPAT+20, NEXTPAT+30 |
DIC | HLDSTS+1~, HLDSTS+3*, HLDSTS+5!, CCRSTS+1~, CCRSTS+8*, CCRSTS+10! |
DIC("A" | HLDSTS+2*, CCRSTS+7* |
DIC("S" | HLDSTS+3*, CCRSTS+8* |
DIC("W" | HLDSTS+4*, CCRSTS+9* |
DIC(0 | HLDSTS+3*, CCRSTS+8* |
DOB | SETPAT+3~, SETPAT+38*, SETPAT+42 |
>> DOBFLTR | HDR+17, HDR+20, SETSORT+6, SETSORT+13, SETSORT+14, FILTERED+3, FILTERED+4 |
DONE | CCRSTS+1~, CCRSTS+2*, CCRSTS+3, CCRSTS+4* |
DRGCSCH | SETPAT+3~ |
>> DRGFLTR | FILTERED+4 |
DT | SETSORT+7, SETSORT+16, SETSORT+26, SETSORT+31, SETSORT+39, PATSTATS+12, PATSTATS+25, PATSTATS+26, NEXTPAT+8 |
>> DUOUT | HLDSTS+5, CCRSTS+10 |
DUZ | NEXTPAT+27, NEXTPAT+31 |
ED | SETPAT+3~, SETPAT+40* |
EPATIEN | SETPAT+3~, SETPAT+9*, SETPAT+11, SETPAT+30, SETPAT+35, SETPAT+36, SETPAT+37, SETPAT+38, SETPAT+43, SETPAT+44 , NEXTPAT+3~, NEXTPAT+17*, NEXTPAT+19, NEXTPAT+20, NEXTPAT+21, NEXTPAT+23, NEXTPAT+27, NEXTPAT+28 |
EPTNODE0 | SETPAT+4~, SETPAT+36*, SETPAT+37 |
EPTNODE1 | SETPAT+4~, SETPAT+36*, SETPAT+38 |
EPTNODE2 | SETPAT+4~, SETPAT+36*, SETPAT+39 |
ERXIEN | SETSORT+1~, SETSORT+9*, SETSORT+10, SETSORT+18*, SETSORT+19, SETSORT+28*, SETSORT+29, SETSORT+35*, SETSORT+36, SETSORT+43* , SETSORT+45, SETSORT+46, SETPAT~, SETPAT+6, SETPAT+7, SETPAT+14, SETPAT+17, SETPAT+19, SETPAT+27, SETPAT+40 , PATSTATS+10~, PATSTATS+14*, PATSTATS+15, PATSTATS+16, PATSTATS+18, NEXTPAT+3~, NEXTPAT+13*, NEXTPAT+15, NEXTPAT+16, NEXTPAT+17 , NEXTPAT+18 |
ERXINST | SETPAT+3~, SETPAT+4~, SETPAT+14*, SETPAT+22 |
ERXLOCK | LOCK+4~, LOCK+5*, LOCK+6 |
ERXNODE0 | SETPAT+3~, SETPAT+6*, SETPAT+9, SETPAT+13, NEXTPAT+3~, NEXTPAT+16*, NEXTPAT+17 |
>> ERXPAT | SETSORT+5*, SETSORT+6, SETSORT+8, SETSORT+9, SETSORT+14*, SETSORT+15, SETSORT+17, SETSORT+18 |
ERXSTS | SETSORT+1~, SETSORT+25*, SETSORT+27, SETSORT+28, SETSORT+33*, SETSORT+34, SETSORT+35, SETSORT+41*, SETSORT+42, SETSORT+43 , SETPAT+4~, SETPAT+8*, SETPAT+17, SETPAT+19, SETPAT+33, ELIGSTS~, ELIGSTS+9, ELIGSTS+17, ELIGSTS+20, ELIGSTS+27 , ELIGSTS+29, NEXTPAT+3~, NEXTPAT+10*, NEXTPAT+12, NEXTPAT+13 |
ESCODE | SETPAT+3~ |
EXPAT | SETSORT+1~ |
EXTSTS | PATSTATS+10~, PATSTATS+19*, PATSTATS+20, PATSTATS+28, PATSTATS+29, PATSTATS+30, PATSTATS+31, PATSTATS+32, PATSTATS+34 |
FILTER | HDR+18~*, HDR+19*, HDR+20*, HDR+21*, HDR+22*, HDR+23*, HDR+24 |
GRP | SETPAT+4~ |
HDR | HDR+1~, HDR+27*, HDR+28*, HDR+29*, HDR+30 |
HLDSTS | HLDSTS+1~, HLDSTS+6*, HLDSTS+7 |
I | CCRSTS+1~, CCRSTS+3*, CCRSTS+4 |
INST | SETSORT+1~, NEXTPAT+6* |
>> IOINHI | HDR+2, HDR+3, HDR+6, HDR+8, HDR+24, HDR+33 |
>> IOINORM | HDR+2, HDR+5, HDR+6, HDR+15, HDR+24, HDR+30, HDR+33 |
>> IORVON | HDR+30, HDR+33 |
LINE1 | HDR+1~, HDR+2*, HDR+3*, HDR+4*, HDR+5*, HDR+25 |
LINE2 | HDR+1~, HDR+8*, HDR+9*, HDR+10*, HDR+11*, HDR+12*, HDR+13*, HDR+14*, HDR+15*, HDR+24* , HDR+25 |
>> LINE3 | HDR+16* |
LKBKDAYS | NEXTPAT+3~, NEXTPAT+7*, NEXTPAT+8 |
LST | CCRSTS~, CCRSTS+4 |
>> MATFLTR | HDR+17, HDR+19, SETPAT+30, ELIGSTS+14, FILTERED+3, FILTERED+4, NEXTPAT+23 |
>> MBMSITE | SETSORT+24, SETSORT+45, SETPAT+22, ELIGSTS+9, NEXTPAT+15 |
MSGDT | SETSORT+1~, SETSORT+7*, SETSORT+8*, SETSORT+9, SETSORT+16*, SETSORT+17*, SETSORT+18, SETSORT+26*, SETSORT+27*, SETSORT+28 , SETSORT+31*, SETSORT+32*, SETSORT+33, SETSORT+35, SETSORT+39*, SETSORT+40*, SETSORT+41, SETSORT+43, PATSTATS+10~, PATSTATS+12* , PATSTATS+13*, PATSTATS+14, PATSTATS+25, PATSTATS+26, NEXTPAT+3~, NEXTPAT+8*, NEXTPAT+9*, NEXTPAT+10, NEXTPAT+13 |
MSGTYPE | ELIGSTS~, ELIGSTS+6*, ELIGSTS+17, ELIGSTS+18, ELIGSTS+20 |
>> MSTPFLTR | ELIGSTS+20, FILTERED+4 |
MTYPE | SETPAT+3~, SETPAT+13*, SETPAT+17, SETPAT+19, SETPAT+33, PATSTATS+16*, PATSTATS+20, PATSTATS+34 |
NEXTPAT | NEXTPAT+3~, NEXTPAT+6*, NEXTPAT+9, NEXTPAT+10, NEXTPAT+13, NEXTPAT+28*, NEXTPAT+30*, NEXTPAT+31, NEXTPAT+32 |
PATCNT | SETSORT+2*, SETSORT+5, SETSORT+8, SETSORT+9, SETSORT+10, SETSORT+14, SETSORT+17, SETSORT+18, SETSORT+19, SETSORT+25 , SETSORT+27, SETSORT+28, SETSORT+29, SETSORT+32, SETSORT+33, SETSORT+35, SETSORT+36, SETSORT+40, SETSORT+41, SETSORT+43 , SETSORT+46, SETPAT~, SETPAT+45* |
>> PATFLTR | HDR+17, HDR+21, SETSORT+4, SETSORT+15, FILTERED+3, FILTERED+4 |
>> PATFLTR( | SETSORT+5, SETSORT+15 |
PATIEN | PATSTATS~, PATSTATS+13, PATSTATS+14, LOCK~, LOCK+5, LOCK+8, LOCK+9, LOCK+10 |
PATNAME | SETPAT+3~, SETPAT+37*, SETPAT+42 |
PATSTATS | SETPAT+3~, PATSTATS+10~, PATSTATS+12*, PATSTATS+25, PATSTATS+26*, PATSTATS+28*, PATSTATS+29*, PATSTATS+30*, PATSTATS+31*, PATSTATS+33* , PATSTATS+34*, PATSTATS+35*, PATSTATS+36 |
>> PRVFLTR | FILTERED+4 |
>> PSNPINST | SETSORT+27, SETSORT+28, SETSORT+45, SETPAT+22, NEXTPAT+15 |
>> PSOALLST | FILTERED+4 |
>> PSOCCRST | HDR+14, ELIGSTS+27, LOADSTS+4*, LOADSTS+10, LOADSTS+13 |
>> PSOCSERX | HDR+3, HDR+4, SETPAT+25, SETPAT+26, PATSTATS+22, PATSTATS+23, PATSTATS+35, NEXTPAT+25, NEXTPAT+26 |
>> PSOCSGRP | SETPAT+41 |
>> PSOCSSCH | HDR+4 |
>> PSOHDSTS | HDR+13, ELIGSTS+29, LOADSTS+4*, LOADSTS+15, LOADSTS+18 |
>> PSOLKBKD | HDR+2, SETSORT+7, SETSORT+16, SETSORT+26, SETSORT+31, SETSORT+39, PATSTATS+11*, PATSTATS+12, NEXTPAT+7 |
>> PSOMAXQS | HDR+6, SETSORT+5, SETSORT+8, SETSORT+9, SETSORT+14, SETSORT+17, SETSORT+18, SETSORT+25, SETSORT+27, SETSORT+28 , SETSORT+32, SETSORT+33, SETSORT+35, SETSORT+40, SETSORT+41, SETSORT+43 |
>> PSORDER | HDR+31 |
>> PSOSITE | PATSTATS+11, NEXTPAT+7 |
>> PSOSRTBY | HDR+32, SETPAT+37, SETPAT+38, SETPAT+40 |
>> PSOSTFLT | HDR+9, HDR+10, HDR+11, HDR+12, HDR+13, HDR+14, SETSORT+22, ELIGSTS+24, ELIGSTS+25, ELIGSTS+26 , ELIGSTS+27, ELIGSTS+29, NEXTPAT+7, NEXTPAT+27, NEXTPAT+31, LOADSTS+4*, LOADSTS+5, LOADSTS+6, LOADSTS+7, LOADSTS+8 , LOADSTS+9, LOADSTS+10, LOADSTS+14, LOADSTS+15 |
RCVDATE | SETPAT+3~ |
REACH | NEXTPAT+3~, NEXTPAT+8*, NEXTPAT+20*, NEXTPAT+21 |
>> REDTFLTR | FILTERED+4 |
SKIP | ELIGSTS+5~, ELIGSTS+22*, ELIGSTS+23, ELIGSTS+24*, ELIGSTS+25*, ELIGSTS+26*, ELIGSTS+27*, ELIGSTS+29* |
SORT | SETPAT+3~, SETPAT+35*, SETPAT+37*, SETPAT+38*, SETPAT+40*, SETPAT+42, SETPAT+43 |
SRT | SETPAT+4~ |
SRTORD | HDR+1~, HDR+31*, HDR+33 |
SRTPOS | HDR+1~, HDR+32*, HDR+33 |
SSN | SETPAT+4~, SETPAT+39*, SETPAT+42 |
STS | ELIGSTS+5~, ELIGSTS+9*, ELIGSTS+11, ELIGSTS+12, ELIGSTS+14, ELIGSTS+18, ELIGSTS+24, ELIGSTS+25, ELIGSTS+26, ELIGSTS+27 , ELIGSTS+29, NEXTPAT+3~, LOADSTS+2~, LOADSTS+6*, LOADSTS+7*, LOADSTS+8*, LOADSTS+11*, LOADSTS+12, LOADSTS+16*, LOADSTS+17 , STSIEN~, STSIEN+3, STSIEN+4 |
>> STSFLTR | ELIGSTS+20, FILTERED+4 |
STSIEN | SETSORT+1~, SETPAT+4~, SETPAT+7*, SETPAT+8, PATSTATS+10~, PATSTATS+18*, PATSTATS+19 |
STSLST | SETSORT+1~, SETSORT+23, NEXTPAT+3~, NEXTPAT+5, LOADSTS~, LOADSTS+3! |
STSLST( | SETSORT+25, SETSORT+34, NEXTPAT+12, LOADSTS+5*, LOADSTS+6*, LOADSTS+7*, LOADSTS+8*, LOADSTS+12*, LOADSTS+13*, LOADSTS+17* , LOADSTS+18* |
U | PATSTATS+28, PATSTATS+29, PATSTATS+30, PATSTATS+31, PATSTATS+33, PATSTATS+34, PATSTATS+35, HLDSTS+5, CCRSTS+4, CCRSTS+10 |
VALMHDR | HDR+25! |
VALMHDR(1 | HDR+25* |
VALMHDR(2 | HDR+25* |
>> VALMSG | LOCK+7*, LOCK+9*, LOCK+10* |
VDRGIEN | SETPAT+4~, NEXTPAT+3~, NEXTPAT+18* |
VIEW | ELIGSTS~, ELIGSTS+11, ELIGSTS+12, ELIGSTS+17, ELIGSTS+18, ELIGSTS+23, FILTERED~, FILTERED+3, FILTERED+4 |
VPATIEN | SETPAT+4~, NEXTPAT+3~, NEXTPAT+17* |
VPRVIEN | SETPAT+4~, NEXTPAT+3~, NEXTPAT+18* |
X | HLDSTS+1~, HLDSTS+5, HLDSTS+6, CCRSTS+1~, CCRSTS+10, CCRSTS+11 |
Y | HLDSTS+1~, HLDSTS+5, CCRSTS+1~, CCRSTS+10 |
Z | SETPAT+3~, SETPAT+35*, SETPAT+40, SETPAT+41, SETPAT+42 |