PSORLST2 ;BIRM/MFR - List of Patients/Prescriptions for Recall Notice ;Oct 20, 2022@16
Source file <PSORLST2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PROCESS | ; Use input search criteria to find matching orders, store in TMP global.
|
|
PATIENT(RXND0,RXND2) | ; Build patient information (HEADER), store in ^TMP
; RXND0 - Prescription File (#52) zero node (^PSRX(RX,0)) ; RXND2 - Prescription File (#52) two node (^PSRX(RX,2)) ; Ouptput: RX #^DRUG NAME^PATIENT NAME^SSN^ADDRESS 1^ADDRESS 2^ADDRESS 3^CITY^STATE^ZIP^ ; PHONE (HOME)^PHONE (WORK)^PHONE (CELL)^DECEASED? |
|
ORIGINAL(RXND0,RXND2) | ; Build output for specific original RX, store in ^TMP
; RXND0 - Prescription File (#52) zero node (^PSRX(RX,0)) ; RXND2 - Prescription File (#52) two node (^PSRX(RX,2)) ; Output: 0(Original)^ISSUE DATE^FILL DATE^RELEASED DATE/TIME^^LOT #^NDC^DIVISION (###)^ ; PHARMACIST^PROVIDER^^QTY^DAYS SUPPLY^# OF REFILLS^MAIL/WINDOW^^ |
|
REFILL(RX,REF,RXND0,RXND2) | ; Build output for specific Refill, store in ^TMP
; REF - Refill Number ; RXND0 - Prescription File (#52) zero node (^PSRX(RX,0)) ; RXND2 - Prescription File (#52) two node (^PSRX(RX,2)) ; Output: FILL #^ISSUE DATE^FILL DATE^RELEASED DATE/TIME^^LOT #^NDC^DIVISION(###)^ ; PHARMACIST^PROVIDER^^QTY^DAYS SUPPLY^# OF REFILLS^MAIL/WINDOW^^ |
|
PARTIAL(RX,PAR,RXND0,RXND2) | ; Build output for specific partial fill, store in ^TMP
; SEQ - Integer representing a specific Partial node from the Prescription file (#52) ; RXND0 - Prescription File (#52) zero node (^PSRX(RX,0)) ; RXND2 - Prescription File (#52) two node (^PSRX(RX,2)) ; Output: FILL #^ISSUE DATE^FILL DATE^RELEASED DATE/TIME^^LOT #^NDC^DIVISION(###)^ ; PHARMACIST^PROVIDER^^QTY^DAYS SUPPLY^# OF REFILLS^MAIL/WINDOW^CMOP?^REMARKS |
|
CMOP(RX,FILL) | ; Build output for CMOP fields
; RX - Prescription file (#52) IEN ; FILL - Fill # (0 - Original, 1 - Refill #1, 2 - Refill #2, etc...) ; Output: TRANSMISSION NUMBER^SEQUENCE #^CMOP NDC^DATE SHIPPED^CARRIER^PACKAGE ID |
|
LOT(RX,FILL) | ; Returns the LOT# for a specific Fill
; Input: (r) RX - Rx IEN (#52) ; (r) FILL - Refill #/Partial # (note: Partials contain a "P", e.g. "1P") ; Output: LOT - Rx Drug Lot # |
|
RAWNDC(NDC) | ; Returns NDC without dashes ('-') or spaces (' ')
|
|
UPPER(PSOUCS) | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^PSDRUG - [#50] | GET1^DIQ |
^PSRX - [#52] | GET1^DIQ |
52.1 | GET1^DIQ |
52.2 | GET1^DIQ |