PSOPMP1 ;BIRM/MFR - Patient Medication Profile - Listmanager ;04/28/05
Source file <PSOPMP1.m>
| Package | Total | Call Graph | 
|---|---|---|
| Outpatient Pharmacy | 6 | $$LSTRFL^PSOBPSU1 $$RXFLDT^PSOBPSUT RE^PSODEM $$SCHED^PSONVNEW ALLERGY^PSOORUT2 FSIG^PSOUTLA | 
| Registration | 3 | (,ADD)^VADPT ($$SETSTR,INSTR)^VALM1 CNTRL^VALM10 | 
| Kernel | 2 | $$FMTE^XLFDT $$UP^XLFSTR | 
| VA Fileman | 2 | $$GET1^DIQ ^DIWP | 
| Adverse Reaction Tracking | 1 | EN1^GMRADPT | 
| CMOP | 1 | ^PSXOPUTL | 
| Package | Total | Caller Graph | 
|---|---|---|
| Outpatient Pharmacy | 2 | PSONVAVW PSOPMP0 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| STSINFO(RX) | ; Returns the Rx Status MNEMONIC^NAME ; Input: RX - Prescription IEN (#52) | |
| RV | ;reverse video for flagged pending orders | |
| CMOP(DRUG,RX) | ; Returns the CMOP indicator (">", "T", etc) | |
| GROUP(LBL,CNT,LINE) | ; Sets a group delimiter line | |
| PENHDR(DFN) | ; Sets the Header in the ^TMP("PSOHDR",$J) global for displaying individual Pending Order | |
| COPAY(RX) | ; Returns "$" is Rx has a copay and "" if not | |
| SETHDR() | ; - Displays the Header Line | |
| DAT(FMDT,SEP,Y4) | ; - Formats FM dates to MM/DD/YY (SEP: Separator:"/","-",etc...) | |
| REFREM(RX) | ; - Returns the number of refills remaining | |
| ISSDT(IEN,TYPE) | ; Returns the Rx ISSUE DATE formatted MM-DD-YY | |
| FILTER(RX) | ; - Filter Rx's that should not be displayed | |
| LSTFD(RX) | ; Returns the Rx LAST FILL DATE formatted MM-DD-YY[R], where [R] = Returned to Stock | |
| ALLERGY(LINE,DFN,POS) | ; also called from PSONVAVW & PSOPMP0 ; Input: LINE - (r) text to concatenate allergy information to ; DFN - (r) patient IEN used for ^GMRADTP ; POS - (o) position # to include text | |
| SETSIG(TYPE,RX,LINE,DFN) | ; Set the SIG line | |
| VIDEO() | ; - Changes the Video Attributes for the list | 
| Name | Field # of Occurrence | 
|---|---|
| $$GET1^DIQ | SETSIG+5, FILTER+1, FILTER+2, FILTER+3, FILTER+4, STSINFO+6, STSINFO+7, ISSDT+4, ISSDT+5, LSTFD+3 , LSTFD+5, LSTFD+8, REFREM+2 | 
| ^DIWP | SETSIG+5 | 
| EN1^GMRADPT | PENHDR+8, ALLERGY+7 | 
| $$LSTRFL^PSOBPSU1 | LSTFD+4 | 
| $$RXFLDT^PSOBPSUT | LSTFD+7 | 
| RE^PSODEM | PENHDR+5 | 
| $$SCHED^PSONVNEW | SETSIG+5 | 
| ALLERGY^PSOORUT2 | ALLERGY+9 | 
| FSIG^PSOUTLA | SETSIG+10 | 
| ^PSXOPUTL | CMOP+3 | 
| ^VADPT | PENHDR+2 | 
| ADD^VADPT | PENHDR+2 | 
| $$SETSTR^VALM1 | ALLERGY+12 | 
| INSTR^VALM1 | SETHDR+5, SETHDR+9, SETHDR+12 | 
| CNTRL^VALM10 | VIDEO+5, VIDEO+11, VIDEO+12, VIDEO+13, RV+3 | 
| $$FMTE^XLFDT | DAT+5 | 
| $$UP^XLFSTR | DAT+5 | 
| FileNo | Call Tags | 
|---|---|
| ^PSRX - [#52] | GET1^DIQ | 
| 52.1 | GET1^DIQ | 
| ^PS(52.41 - [#52.41] | GET1^DIQ | 
| 55.05 | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^PSDRUG("AQ" | CMOP+2 | 
| ^PSRX - [#52] | STSINFO+5, LSTFD+6, REFREM+3, COPAY+1 | 
| ^TMP("PSOHDR" | PENHDR+2!, PENHDR+3*, PENHDR+4*, PENHDR+6*, PENHDR+7*, PENHDR+8* | 
| ^TMP("PSOPMP0" | RV+2, RV+3, SETSIG+8*, SETSIG+13*, GROUP+5* | 
| ^UTILITY($J | SETSIG+4!, SETSIG+6, SETSIG+7 | 
| Name | Line Occurrences | 
|---|---|
| $$DAT | ISSDT+8, LSTFD+10 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| ALLERGY | ALLERGY+5~, ALLERGY+6*, ALLERGY+8*, ALLERGY+9*, ALLERGY+10*, ALLERGY+11, ALLERGY+12 | 
| CMOP | CMOP+1~, CMOP+2*, CMOP+3*, CMOP+4 | 
| CNT | GROUP~, GROUP+2 | 
| DA | CMOP+1~, CMOP+3* | 
| DFN | SETSIG~, SETSIG+5, PENHDR~, ALLERGY~ | 
| DIWL | SETSIG+1~, SETSIG+5* | 
| DIWR | SETSIG+1~, SETSIG+5* | 
| DRUG | CMOP~, CMOP+2 | 
| DT | STSINFO+7 | 
| FMDT | DAT~, DAT+4, DAT+5, DAT+6 | 
| FSIG | SETSIG+1~ | 
| FSIG( | SETSIG+11, SETSIG+12 | 
| GMRA | PENHDR+1~, PENHDR+8* | 
| >> GMRAL | PENHDR+8, ALLERGY+8 | 
| >> GRPLN | VIDEO+8 | 
| >> GRPLN( | VIDEO+9, VIDEO+10, GROUP+5* | 
| HDR | SETHDR+1~, SETHDR+4*, SETHDR+5*, SETHDR+7*, SETHDR+8*, SETHDR+9* | 
| >> HIGHLN( | VIDEO+5 | 
| HT | PENHDR+1~, PENHDR+7! | 
| >> I | VIDEO+4*, VIDEO+5, VIDEO+9* | 
| IEN | ISSDT~, ISSDT+4, ISSDT+5 | 
| >> IOINHI | VIDEO+5, VIDEO+11, VIDEO+12, VIDEO+13, SETHDR+12 | 
| >> IOINORM | VIDEO+5, VIDEO+11, VIDEO+12, VIDEO+13, SETHDR+5, SETHDR+9, SETHDR+12, ALLERGY+10 | 
| >> IORVOFF | VIDEO+12, RV+3, ALLERGY+10 | 
| >> IORVON | VIDEO+12, RV+3, SETHDR+5, SETHDR+9, SETHDR+12, ALLERGY+10 | 
| >> IOUON | VIDEO+11, VIDEO+13 | 
| ISSDT | ISSDT+3~, ISSDT+4*, ISSDT+5*, ISSDT+6*, ISSDT+8 | 
| L | SETSIG+1~, SETSIG+6*, SETSIG+7, SETSIG+11*, SETSIG+12 | 
| LBL | VIDEO+10*, VIDEO+12, VIDEO+13, GROUP~, GROUP+2*, GROUP+3, GROUP+4, GROUP+5 | 
| LINE | VIDEO+4, SETSIG~, SETSIG+8*, SETSIG+13*, GROUP~, GROUP+5*, ALLERGY~, ALLERGY+12*, ALLERGY+13 | 
| >> LN | VIDEO+9*, VIDEO+10, VIDEO+11, VIDEO+12, VIDEO+13 | 
| LSTFD | LSTFD+2~, LSTFD+3*, LSTFD+7, LSTFD+10 | 
| ORD | SETHDR+1~, SETHDR+10*, SETHDR+12 | 
| >> POERR | PENHDR+5* | 
| POS | VIDEO+10*, VIDEO+11, VIDEO+12, VIDEO+13, SETHDR+1~, SETHDR+11*, SETHDR+12, GROUP+1~, GROUP+3*, GROUP+4 , ALLERGY~, ALLERGY+11*, ALLERGY+12 | 
| PSLIST | RV+1~*, RV+2, RV+3 | 
| PSOERR | PENHDR+1~, PENHDR+5! | 
| >> PSOEXPDC | FILTER+1, FILTER+2 | 
| >> PSOHD | PENHDR+7* | 
| PSONOAL | ALLERGY+5~, ALLERGY+6*, ALLERGY+9 | 
| >> PSORDCNT | GROUP+2 | 
| >> PSORDER | SETHDR+10 | 
| >> PSOSIGDP | VIDEO+3 | 
| >> PSOSRTBY | SETHDR+11 | 
| >> PSOSTSEQ("A" | STSINFO+7 | 
| >> PSOSTSEQ("DC" | STSINFO+12 | 
| >> PSOSTSEQ("DE" | STSINFO+14 | 
| >> PSOSTSEQ("DP" | STSINFO+13 | 
| >> PSOSTSEQ("E" | STSINFO+7, STSINFO+11 | 
| >> PSOSTSEQ("H" | STSINFO+9 | 
| >> PSOSTSEQ("N" | STSINFO+8 | 
| >> PSOSTSEQ("PH" | STSINFO+15 | 
| >> PSOSTSEQ("S" | STSINFO+10 | 
| PSXZ | CMOP+1~ | 
| PSXZ( | CMOP+3 | 
| PSXZ("L" | CMOP+3 | 
| REFREM | REFREM+1~, REFREM+2*, REFREM+3*, REFREM+4 | 
| RFL | LSTFD+2~, LSTFD+6*, LSTFD+7, LSTFD+8, REFREM+1~, REFREM+3* | 
| RTSTK | LSTFD+2~, LSTFD+5*, LSTFD+8*, LSTFD+10 | 
| RX | SETSIG~, SETSIG+5, SETSIG+10, FILTER~, FILTER+1, FILTER+2, FILTER+3, FILTER+4, STSINFO~, STSINFO+5 , STSINFO+6, STSINFO+7, LSTFD~, LSTFD+3, LSTFD+4, LSTFD+5, LSTFD+6, LSTFD+7, LSTFD+8, REFREM~ , REFREM+2, REFREM+3, COPAY~, COPAY+1, CMOP~, CMOP+3 | 
| SEP | DAT~, DAT+6 | 
| STS | STSINFO+4~, STSINFO+6*, STSINFO+7, STSINFO+8, STSINFO+9, STSINFO+10, STSINFO+11, STSINFO+12, STSINFO+13, STSINFO+14 , STSINFO+15 | 
| TYPE | SETSIG~, SETSIG+3, SETSIG+10, ISSDT~, ISSDT+4, ISSDT+5 | 
| VADM | PENHDR+1~ | 
| VADM(1 | PENHDR+3 | 
| VADM(2 | PENHDR+3 | 
| VADM(3 | PENHDR+4 | 
| VADM(4 | PENHDR+4 | 
| VADM(5 | PENHDR+4 | 
| >> VALMCNT | RV+1 | 
| VM | PENHDR+7! | 
| WT | PENHDR+1~, PENHDR+6, PENHDR+7! | 
| X | SETSIG+1~, SETSIG+5*, SETSIG+7*, SETSIG+8, SETSIG+12*, SETSIG+13, GROUP+1~, GROUP+4*, GROUP+5, CMOP+1~ | 
| Y4 | DAT~, DAT+6 |