Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSORLST2

Package: Outpatient Pharmacy

Routine: PSORLST2


Information

PSORLST2 ;BIRM/MFR - List of Patients/Prescriptions for Recall Notice ;Oct 20, 2022@16

Source Information

Source file <PSORLST2.m>

Entry Points

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) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"\\FILL TYPE\^RX #^DRUG NAME^PATIENT NAME^SSN^ADDRESS 1^ADDRESS 2^ADDRESS 3^"
  • Line Location: PROCESS+44
Function Call: WRITE
  • Prompt: "CITY^STATE^ZIP^PHONE (HOME)^PHONE (WORK)^PHONE (CELL)^DECEASED?^FILL #^ISSUE DATE^"
  • Line Location: PROCESS+45
Function Call: WRITE
  • Prompt: "FILL DATE^RELEASED DATE/TIME^EXPIRATION DATE^LOT #^NDC^DIVISION^PHARMACIST^PROVIDER^"
  • Line Location: PROCESS+46
Function Call: WRITE
  • Prompt: "PATIENT STATUS^QTY^DAYS SUPPLY^# OF REFILLS^MAIL/WINDOW^CMOP?^PARTIAL REMARKS^"
  • Line Location: PROCESS+47
Function Call: WRITE
  • Prompt: "TRANSMISSION NUMBER^SEQUENCE #^CMOP NDC^DATE SHIPPED^CARRIER^PACKAGE ID^/*EOR*/"
  • Line Location: PROCESS+48
Function Call: WRITE
  • Prompt: !,OUTPUT
  • Line Location: PROCESS+69
Function Call: WRITE
  • Prompt: !!!?15,"*** NO RECORDS TO PRINT ***",!!!!
  • Line Location: PROCESS+71

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ
52.1 GET1^DIQ
52.2 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call