PSOERSE3 ;ALB/RM - PSO ERX SINGLE ERX DISPLAY INIT section continuation ;Jan 30, 2024@12:43:34
Source file <PSOERSE3.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 15 | (DEANOTE,EN,HDR,INIT,REF)^PSOERSE1 $$NEXTERX^PSOERSE3 $$VARXPI^PSOERUT (ADDITEM,EDIT)^PSOERX1A ACVAL^PSOERX1B SETUP^PSOERX1F $$PRESOLV^PSOERXA1 (EN,HDR,INIT,TXT2ARY)^PSOERXD1 DIAG^PSOERXU1 DIAG2017^PSOERXU5 PDUEDATA^PSOERXU9 $$VADRSCH^PSOERXUT (ALLERGY,REMOTE)^PSOORUT2 ^PSOORUT3 $$LSIG^PSOQUTIL |
| List Manager | 2 | FULL^VALM1 (CNTRL,SET)^VALM10 |
| VA FileMan | 2 | $$GET1^DIQ ^DIR |
| Adverse Reaction Tracking | 1 | EN1^GMRADPT |
| Kernel | 1 | $$FMADD^XLFDT |
| 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 |
| Package | Total | Caller Graph |
|---|---|---|
| Outpatient Pharmacy | 8 | PSO ERX ACCEPT ERX PSO ERX DRUG EDIT FROM SINGLE ERX VIEW PSO ERX SINGLE PATIENT NEXT DRUG PSOERSE1 PSOERSE2 PSOERSE3 PSOERSE4 PSOERX1D |
| Kernel | 1 | ^ORD(101 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DISPRX | ;continuation of PSOERSE2 routine
|
|
| ALG(LINE) | ;
|
|
| DSPLYDUE(ERXIEN,LINE,DSPLYTO,TMPGBL) | ;Display the Prescriber Drug Use Evaluation
|
|
| ACCEPT | ; Validate All Matches (Patient/Provider/Drug) & Accept eRx
|
|
| NEXTDRUG | ||
| NEXTERX(ERXPAT,ERXIEN) | ; Returns the next Actionable eRx for the Patient
; Input:(r) ERXPAT - Pointer to the ERX EXTERNAL PATIENT file (#52.46) ; (r) ERXIEN - Current eRx - Pointer to the ERX HOLDING QUEUE file (#52.49) |
|
| EDITDRUG | ; Edit Drug fields from Single eRx View/Display
|
|
| MISSINGPI(ERXIEN) | ; Returns whether it is likely the eRx should have Patient Instructions entered or not
; Input: (r) ERXIEN - Pointer to the ERX HOLDING QUEUE file (#52.49) |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^PS(52.45 - [#52.45] | GET1^DIQ |
| ^PS(52.49 - [#52.49] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(52.49 - [#52.49] | DISPRX+19, DISPRX+20, DISPRX+21, NEXTERX+6, NEXTERX+7, EDITDRUG+5, MISSINGPI+5 |
| ^PSDRUG - [#50] | DISPRX+5 |
| ^TMP("PSOPI" | ALG+7*, ALG+8*, ALG+9*, ALG+11*, ALG+13, ALG+14, ALG+21! |
| Name | Line Occurrences |
|---|---|
| ALG | DISPRX+47 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACK | DSPLYDUE+6~, DSPLYDUE+18!, DSPLYDUE+24*, DSPLYDUE+30, DSPLYDUE+37 |
| ALGINFO | ALG+1~ |
| ALGLINE | ALG+1~, ALG+2* |
| BEGDATE | NEXTERX+4~, NEXTERX+5* |
| COAGENT | DSPLYDUE+6~, DSPLYDUE+18!, DSPLYDUE+19*, DSPLYDUE+27, DSPLYDUE+34 |
| COM | DISPRX+1~, DISPRX+42*, DISPRX+43, DISPRX+44, DISPRX+45 |
| COMARY | DISPRX+1~, DISPRX+41 |
| COMARY( | DISPRX+42, DISPRX+43, DISPRX+44, DISPRX+45 |
| CURPAGE | EDITDRUG+1~, EDITDRUG+2*, EDITDRUG+9 |
| DDOT | DSPLYDUE+6~, DSPLYDUE+16*, DSPLYDUE+31, DSPLYDUE+38 |
| DFN | ALG+1~, ALG+3* |
| DIR | ACCEPT+1~, ACCEPT+6!, ACCEPT+11!, ACCEPT+18~ |
| DIR(0 | ACCEPT+6*, ACCEPT+11* |
| DRMANVAL | DISPRX+1~, DISPRX+8*, DISPRX+9, DISPRX+10 |
| DSPLYTO | DSPLYDUE~, DSPLYDUE+7*, DSPLYDUE+11, DSPLYDUE+26, DSPLYDUE+39 |
| DT | NEXTERX+5 |
| DUECNT | DSPLYDUE+6~, DSPLYDUE+17*, DSPLYDUE+19, DSPLYDUE+20, DSPLYDUE+22, DSPLYDUE+24, DSPLYDUE+31, DSPLYDUE+38 |
| ENDDATE | NEXTERX+4~, NEXTERX+5*, NEXTERX+6 |
| >> EPATIEN | NEXTDRUG+3*, NEXTDRUG+6, NEXTDRUG+7 |
| ERX | NEXTERX+4~, NEXTERX+5*, NEXTERX+7*, NEXTERX+8, NEXTERX+9, NEXTERX+11 |
| ERXCOMM | DISPRX+1~, DISPRX+40*, DISPRX+41 |
| >> ERXDSUB | DISPRX+24*, DISPRX+25*, DISPRX+26, DISPRX+27 |
| ERXIEN | DSPLYDUE~, DSPLYDUE+8, ACCEPT+2, ACCEPT+3, ACCEPT+9, ACCEPT+10, ACCEPT+12, ACCEPT+13, ACCEPT+14, ACCEPT+15 , ACCEPT+17, ACCEPT+20, NEXTDRUG+8*, NEXTERX~, NEXTERX+8, MISSINGPI~, MISSINGPI+5, MISSINGPI+6, MISSINGPI+7, MISSINGPI+8 , MISSINGPI+9, MISSINGPI+10 |
| ERXPAT | NEXTERX~, NEXTERX+6, NEXTERX+7 |
| ERXSTS | ACCEPT+1~, ACCEPT+3*, ACCEPT+4 |
| FROMLIST | NEXTDRUG+1~, NEXTDRUG+4*, NEXTDRUG+11, NEXTDRUG+13 |
| FSSIG | DISPRX+1~, DISPRX+23*, DISPRX+28, DISPRX+29 |
| FSVPIN | DISPRX+1~, DISPRX+35*, DISPRX+36, DISPRX+37 |
| GMRAL | ALG+1~, ALG+6, ALG+7, ALG+8, ALG+12 |
| IEN | ALG+1~, ALG+5*, ALG+7*, ALG+8, ALG+9*, ALG+11* |
| II | ALG+1~ |
| >> IOINHI | DISPRX+10, DISPRX+15, DISPRX+16, DISPRX+17, DISPRX+27, DISPRX+29, DISPRX+31, DISPRX+37, DISPRX+39, DISPRX+44 , DISPRX+45, ALG+20, DSPLYDUE+11, DSPLYDUE+27, DSPLYDUE+28, DSPLYDUE+29, DSPLYDUE+30 |
| >> IOINORM | DISPRX+10, DISPRX+15, DISPRX+16, DISPRX+17, DISPRX+27, DISPRX+29, DISPRX+31, DISPRX+37, DISPRX+39, DISPRX+44 , DISPRX+45, ALG+20, DSPLYDUE+11, DSPLYDUE+27, DSPLYDUE+28, DSPLYDUE+29, DSPLYDUE+30 |
| LDAT | ALG+1~, ALG+14*, ALG+15, ALG+17, ALG+18, ALG+19*, ALG+20 |
| LDATA | ALG+1~ |
| LINE | DISPRX+4*, DISPRX+6*, DISPRX+9, DISPRX+10, DISPRX+14*, DISPRX+15, DISPRX+16, DISPRX+17, DISPRX+26*, DISPRX+27 , DISPRX+28*, DISPRX+29, DISPRX+31*, DISPRX+36*, DISPRX+37, DISPRX+39*, DISPRX+43*, DISPRX+44, DISPRX+45, DISPRX+47 , DISPRX+49, DISPRX+51, DISPRX+53, ALG~, ALG+16*, ALG+17, ALG+20, DSPLYDUE~, DSPLYDUE+10*, DSPLYDUE+11 , DSPLYDUE+12, DSPLYDUE+27*, DSPLYDUE+28*, DSPLYDUE+29*, DSPLYDUE+30*, DSPLYDUE+31*, DSPLYDUE+34*, DSPLYDUE+35*, DSPLYDUE+36*, DSPLYDUE+37* , DSPLYDUE+38*, DSPLYDUE+39* |
| >> LINETXT | DISPRX+11, DISPRX+12, DISPRX+13, DISPRX+14* |
| >> MBMSITE | ACCEPT+10, ACCEPT+11, ACCEPT+21, ACCEPT+22 |
| >> MEDIEN | DISPRX+51 |
| MSGDT | NEXTERX+4~, NEXTERX+5*, NEXTERX+6*, NEXTERX+7 |
| MSGTYPE | MISSINGPI+4~ |
| >> MTYPE | DISPRX+2, DISPRX+3 |
| NEXTERX | NEXTDRUG+1~, NEXTDRUG+6*, NEXTDRUG+7*, NEXTDRUG+8, NEXTERX+4~, NEXTERX+5*, NEXTERX+6, NEXTERX+7, NEXTERX+11*, NEXTERX+12 |
| PASSTRHU | ACCEPT+1~, ACCEPT+2*, ACCEPT+8, ACCEPT+9, ACCEPT+17 |
| PDRGDUE | DSPLYDUE+6~, DSPLYDUE+8, DSPLYDUE+9, DSPLYDUE+14 |
| PDRGDUE( | DSPLYDUE+17, DSPLYDUE+19, DSPLYDUE+20, DSPLYDUE+22, DSPLYDUE+24 |
| PDRGDUE("" | DSPLYDUE+15 |
| PDUEHDR | DSPLYDUE+6~, DSPLYDUE+9*, DSPLYDUE+11, DSPLYDUE+12 |
| PDUETOTAL | DSPLYDUE+6~, DSPLYDUE+15*, DSPLYDUE+31, DSPLYDUE+38 |
| >> PRINTFLG | NEXTDRUG+9 |
| >> PSNF | DISPRX+5*, DISPRX+7 |
| PSOIEN | DISPRX+3, DISPRX+8, DISPRX+19, DISPRX+20, DISPRX+21, DISPRX+24, DISPRX+32, DISPRX+40, DISPRX+46, DISPRX+49 , DISPRX+51, DISPRX+52, ALG+3, ACCEPT+18~, ACCEPT+20*, NEXTDRUG+3, NEXTDRUG+4, NEXTDRUG+6, NEXTDRUG+8*, NEXTDRUG+11 , NEXTDRUG+13!, EDITDRUG+5 |
| >> PSOLKBKD | NEXTERX+5 |
| PSONOAL | ALG+1~, ALG+8*! |
| REASON | DSPLYDUE+6~, DSPLYDUE+18!, DSPLYDUE+20*, DSPLYDUE+21*, DSPLYDUE+28, DSPLYDUE+35 |
| RESULT | DSPLYDUE+6~, DSPLYDUE+18!, DSPLYDUE+22*, DSPLYDUE+23*, DSPLYDUE+29, DSPLYDUE+36 |
| >> S2017 | DISPRX+48, DISPRX+50 |
| SLOOP | DISPRX+1~, DISPRX+19*, DISPRX+20, DISPRX+21, DISPRX+30*, DISPRX+31 |
| STATUS | NEXTERX+4~, NEXTERX+9*, NEXTERX+10 |
| SUGRXIEN | MISSINGPI+4~, MISSINGPI+10*, MISSINGPI+11 |
| TMPGBL | DSPLYDUE~, DSPLYDUE+12, DSPLYDUE+34, DSPLYDUE+35, DSPLYDUE+36, DSPLYDUE+37, DSPLYDUE+38, DSPLYDUE+39 |
| >> VADAYS | DISPRX+13, DISPRX+17 |
| >> VADRG | DISPRX+7 |
| >> VADRGIEN | DISPRX+5, DISPRX+7 |
| VADRGNME | DISPRX+1~, DISPRX+7*, DISPRX+9, DISPRX+10 |
| >> VALMBCK | ACCEPT+1*, ACCEPT+22*, NEXTDRUG+4*, NEXTDRUG+10*, EDITDRUG+2*, EDITDRUG+5* |
| >> VALMBG | EDITDRUG+2, EDITDRUG+9* |
| >> VALMSG | EDITDRUG+6* |
| VAPIARY | DISPRX+1~, DISPRX+34 |
| VAPIARY( | DISPRX+36, DISPRX+37, DISPRX+38, DISPRX+39 |
| VAPIARY(0 | DISPRX+35 |
| >> VAQTY | DISPRX+11, DISPRX+15 |
| >> VAREF | DISPRX+12, DISPRX+16 |
| VASARY | DISPRX+1~, DISPRX+22 |
| VASARY( | DISPRX+28, DISPRX+29, DISPRX+30, DISPRX+31 |
| VASARY(0 | DISPRX+23 |
| VASIG | DISPRX+1~, DISPRX+18*, DISPRX+20*, DISPRX+21*, DISPRX+22 |
| VLOOP | DISPRX+1~, DISPRX+38*, DISPRX+39 |
| >> VPATINST | DISPRX+32*, DISPRX+33*, DISPRX+34 |
| XQORM | EDITDRUG+1~ |
| >> XQORNOD(0 | EDITDRUG+3 |
| XX | ALG+1~, ALG+13*, ALG+14 |
| Y | EDITDRUG+1~, EDITDRUG+3*, EDITDRUG+5, EDITDRUG+8 |