Routine: PSORLST2

Information

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

Package	Total	Call Graph
Kernel	2	^%ZISC ($$FMADD,$$FMTE)^XLFDT
Outpatient Pharmacy	2	($$RXRLDT,$$RXSITE)^PSOBPSUT $$GETNDC^PSONDCUT
Registration	1	(ADD,DEM)^VADPT
VA FileMan	1	$$GET1^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSORLST

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

External References

Name	Field # of Occurrence
^%ZISC	PROCESS+73
$$GET1^DIQ	PROCESS+23, PROCESS+37, PROCESS+38, PROCESS+41, PATIENT+10, LOT+8, LOT+9, LOT+10
$$RXRLDT^PSOBPSUT	PROCESS+18
$$RXSITE^PSOBPSUT	PROCESS+19
$$GETNDC^PSONDCUT	PROCESS+20, REFILL+16, PARTIAL+12
ADD^VADPT	PATIENT+8
DEM^VADPT	PATIENT+8
$$FMADD^XLFDT	PROCESS+7, PROCESS+26
$$FMTE^XLFDT	PROCESS+53, PROCESS+54, ORIGINAL+8, ORIGINAL+9, REFILL+11, REFILL+12, PARTIAL+9, PARTIAL+10, CMOP+15

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

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^PSDRUG - [#50]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ
52.1	GET1^DIQ
52.2	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PROCESS+13, PROCESS+32, PATIENT+9, PATIENT+12
^PS(53 - [#53]	PROCESS+55
^PS(59 - [#59]	ORIGINAL+14, REFILL+18, PARTIAL+16
^PSRX - [#52]	PROCESS+11, PROCESS+30, PROCESS+52, REFILL+9, REFILL+10, PARTIAL+8, CMOP+8, CMOP+10, CMOP+11, CMOP+14 , LOT+5, LOT+6
^PSRX("AL"	PROCESS+8, PROCESS+10, PROCESS+17
^PSRX("AM"	PROCESS+27, PROCESS+29, PROCESS+36
^TMP(	PROCESS+5!
^TMP($J	PROCESS+23, PROCESS+41, PROCESS+43, PROCESS+50, PROCESS+51, PROCESS+57, PROCESS+73!
^VA(200 - [#200]	ORIGINAL+15, ORIGINAL+16, REFILL+19, REFILL+20, PARTIAL+17, PARTIAL+18

Label References

Name	Line Occurrences
$$CMOP	PROCESS+59, PROCESS+61
$$LOT	PROCESS+21, PROCESS+39, ORIGINAL+11, REFILL+13, PARTIAL+11
$$ORIGINAL	PROCESS+59
$$PARTIAL	PROCESS+63
$$PATIENT	PROCESS+59, PROCESS+61, PROCESS+63
$$RAWNDC	PROCESS+20, PROCESS+38
$$REFILL	PROCESS+61
$$UPPER	PROCESS+22, PROCESS+40

Naked Globals

Name	Field # of Occurrence
^(0	LOT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CELL	PATIENT+6~, PATIENT+12*, PATIENT+13
CMOP	CMOP+5~, CMOP+7, CMOP+8, CMOP+13, CMOP+15*, CMOP+17
CMOPSEQ	CMOP+5~, CMOP+10*, CMOP+11, CMOP+14
DAYS	ORIGINAL+6~, ORIGINAL+17, ORIGINAL+20, REFILL+7~, REFILL+15, REFILL+23, PARTIAL+7~, PARTIAL+14*, PARTIAL+22
DEAD	PATIENT+6~, PATIENT+9*, PATIENT+13
DFN	PATIENT+6~, PATIENT+8*, PATIENT+9, PATIENT+12
DIV	ORIGINAL+6~, ORIGINAL+13, ORIGINAL+14, REFILL+7~, REFILL+17, REFILL+18, PARTIAL+7~, PARTIAL+15*, PARTIAL+16
DIVNAM	ORIGINAL+6~, ORIGINAL+13, ORIGINAL+14, ORIGINAL+19, REFILL+7~, REFILL+18, REFILL+22, PARTIAL+7~, PARTIAL+16, PARTIAL+21
DIVNUM	ORIGINAL+6~, ORIGINAL+14, ORIGINAL+19, REFILL+7~, REFILL+18, REFILL+22, PARTIAL+7~, PARTIAL+16*, PARTIAL+21
EXPDT	PROCESS+2~, PROCESS+54*, PROCESS+65
FILL	PROCESS+2~, PROCESS+49, PROCESS+57, PROCESS+58, PROCESS+60, PROCESS+61, PROCESS+63, ORIGINAL+11, CMOP~, CMOP+12 , LOT~, LOT+6, LOT+8, LOT+9
FILLDT	ORIGINAL+6~, ORIGINAL+8*, ORIGINAL+19
I	LOT+4~, LOT+5, LOT+6
ISSDT	PROCESS+2~, PROCESS+53*, PROCESS+64
J	LOT+4~, LOT+6, LOT+7
LOT	PROCESS+2~, PROCESS+21, PROCESS+22, PROCESS+39, PROCESS+40, ORIGINAL+6~, ORIGINAL+11, ORIGINAL+19, REFILL+7~, REFILL+13 , REFILL+22, PARTIAL+7~, PARTIAL+11, PARTIAL+21, LOT+4~, LOT+6, LOT+7, LOT+8, LOT+9, LOT+10 , LOT+11
LOTFLG	PROCESS+2~, PROCESS+21, PROCESS+22, PROCESS+39, PROCESS+40
LOTLP	PROCESS+2~, PROCESS+22, PROCESS+40
MW	ORIGINAL+6~, ORIGINAL+18, ORIGINAL+20, REFILL+7~, REFILL+21, REFILL+23, PARTIAL+7~, PARTIAL+19*, PARTIAL+22
NDC	PROCESS+2~, PROCESS+20, PROCESS+38, ORIGINAL+6~, ORIGINAL+12, ORIGINAL+19, REFILL+7~, REFILL+16, REFILL+22, PARTIAL+7~ , PARTIAL+12*, PARTIAL+21, RAWNDC~, RAWNDC+1
ORIGINAL	ORIGINAL+6~, ORIGINAL+19, ORIGINAL+20, ORIGINAL+21
OUTPUT	PROCESS+2~, PROCESS+49, PROCESS+59, PROCESS+61, PROCESS+63, PROCESS+64, PROCESS+65, PROCESS+66, PROCESS+67, PROCESS+68* , PROCESS+69
PAR	PARTIAL~, PARTIAL+8, PARTIAL+11, PARTIAL+21
PARTDT	PARTIAL+7~, PARTIAL+9*, PARTIAL+21
PARTIAL	PARTIAL+7~, PARTIAL+21, PARTIAL+22, PARTIAL+23
PAT	PROCESS+2~, PROCESS+49, PROCESS+50, PROCESS+51, PROCESS+57
PATIENT	PATIENT+6~, PATIENT+10, PATIENT+11, PATIENT+13*, PATIENT+14
PHARM	ORIGINAL+6~, ORIGINAL+15, ORIGINAL+20, REFILL+7~, REFILL+19, REFILL+23, PARTIAL+7~, PARTIAL+17*, PARTIAL+22
PHONES	PATIENT+6~, PATIENT+12*
PROV	ORIGINAL+6~, ORIGINAL+16, ORIGINAL+20, REFILL+7~, REFILL+20, REFILL+23, PARTIAL+7~, PARTIAL+18*, PARTIAL+22
>> PSODDRG(	PROCESS+15, PROCESS+22, PROCESS+34, PROCESS+40
PSODEAD	PROCESS+2~, PROCESS+13, PROCESS+32
>> PSODTRNG	PROCESS+6
PSOFILL	PROCESS+1~, PROCESS+16, PROCESS+17, PROCESS+18, PROCESS+19, PROCESS+20, PROCESS+21, PROCESS+23, PROCESS+35, PROCESS+36 , PROCESS+37, PROCESS+38, PROCESS+39, PROCESS+41
PSOFRMDT	PROCESS+1~, PROCESS+6*, PROCESS+7, PROCESS+26
>> PSOMED	PROCESS+15, PROCESS+20, PROCESS+21, PROCESS+34, PROCESS+38, PROCESS+39
>> PSONDC(	PROCESS+20, PROCESS+38
PSOPAT	PROCESS+1~, PROCESS+12, PROCESS+13, PROCESS+23, PROCESS+31, PROCESS+32, PROCESS+41
PSORDT	PROCESS+1~, PROCESS+7, PROCESS+8, PROCESS+10, PROCESS+17, PROCESS+26, PROCESS+27, PROCESS+29, PROCESS+36
PSORX	PROCESS+1~, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+17, PROCESS+18, PROCESS+19, PROCESS+20, PROCESS+21, PROCESS+23 , PROCESS+28, PROCESS+29, PROCESS+30, PROCESS+36, PROCESS+37, PROCESS+38, PROCESS+39, PROCESS+41
PSORXDRG	PROCESS+2~, PROCESS+14, PROCESS+15, PROCESS+22, PROCESS+33, PROCESS+34, PROCESS+40
>> PSOSDIV(	PROCESS+19, PROCESS+37
PSOTODT	PROCESS+1~, PROCESS+6*, PROCESS+8, PROCESS+27
PSOUCS	UPPER~, UPPER+1
>> PSOXDED	PROCESS+13, PROCESS+32
PT0	PARTIAL+7~, PARTIAL+8*, PARTIAL+9, PARTIAL+10, PARTIAL+12, PARTIAL+13, PARTIAL+14, PARTIAL+15, PARTIAL+17, PARTIAL+18 , PARTIAL+19, PARTIAL+20
PTSTAT	PROCESS+2~, PROCESS+55*, PROCESS+66
QTY	ORIGINAL+6~, ORIGINAL+17, ORIGINAL+20, REFILL+7~, REFILL+14, REFILL+23, PARTIAL+7~, PARTIAL+13*, PARTIAL+22
REF	REFILL~, REFILL+9, REFILL+10, REFILL+13, REFILL+16, REFILL+22
REFILL	REFILL+7~, REFILL+22, REFILL+23, REFILL+24
REFILLS	PROCESS+1~, PROCESS+56*, PROCESS+67
RELDT	ORIGINAL+6~, ORIGINAL+9*, ORIGINAL+19
RESID	PATIENT+6~, PATIENT+12*, PATIENT+13
RF0	REFILL+7~, REFILL+9*, REFILL+11, REFILL+12, REFILL+14, REFILL+15, REFILL+17, REFILL+19, REFILL+20, REFILL+21
RF1	REFILL+7~, REFILL+10*
RFILDT	REFILL+7~, REFILL+11*, REFILL+22
RLSDT	REFILL+7~, REFILL+12, REFILL+22, PARTIAL+7~, PARTIAL+10, PARTIAL+21
RMRKS	PARTIAL+7~, PARTIAL+20*, PARTIAL+22
RX	PROCESS+2~, PROCESS+49, PROCESS+51, PROCESS+52, PROCESS+57, PROCESS+59, PROCESS+61, PROCESS+63, ORIGINAL+11, REFILL~ , REFILL+9, REFILL+10, REFILL+13, REFILL+16, PARTIAL~, PARTIAL+8, PARTIAL+11, PARTIAL+12, CMOP~, CMOP+8 , CMOP+10, CMOP+11, CMOP+14, LOT~, LOT+5, LOT+6, LOT+8, LOT+9, LOT+10
RXND0	PROCESS+1~, PROCESS+11, PROCESS+12, PROCESS+14, PROCESS+30, PROCESS+31, PROCESS+33, PROCESS+52*, PROCESS+53, PROCESS+55 , PROCESS+56, PROCESS+59, PROCESS+61, PROCESS+63, PATIENT~, PATIENT+8, PATIENT+10, ORIGINAL~, ORIGINAL+16, ORIGINAL+17 , ORIGINAL+18, REFILL~, REFILL+20, PARTIAL~, PARTIAL+18
RXND2	PROCESS+1~, PROCESS+11, PROCESS+30, PROCESS+38, PROCESS+52*, PROCESS+54, PROCESS+59, PROCESS+61, PROCESS+63, PATIENT~ , ORIGINAL~, ORIGINAL+8, ORIGINAL+9, ORIGINAL+12, ORIGINAL+13, ORIGINAL+15, REFILL~, REFILL+17, REFILL+19, PARTIAL~ , PARTIAL+15, PARTIAL+17
RXNDP	PARTIAL+7~
TMPLOT	LOT+6~*
VADM	PATIENT+6~
VADM(1	PATIENT+10
VADM(2	PATIENT+10
VAPA	PATIENT+6~
VAPA(1	PATIENT+11
VAPA(2	PATIENT+11
VAPA(3	PATIENT+11
VAPA(4	PATIENT+11
VAPA(5	PATIENT+11
VAPA(6	PATIENT+11
WORK	PATIENT+6~, PATIENT+12*, PATIENT+13
Z	ORIGINAL+6~, ORIGINAL+14, REFILL+7~, REFILL+18, PARTIAL+7~, PARTIAL+16*
Z0	CMOP+5~, CMOP+11*, CMOP+12, CMOP+13
Z1	CMOP+5~, CMOP+14*, CMOP+15
>> ZTQUEUED	PROCESS+73
>> ZTREQ	PROCESS+73*

Customize PDF page

Package: Outpatient Pharmacy