Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSORLST2

Package: Outpatient Pharmacy

Routine: PSORLST2


Information

PSORLST2 ;BIRM/MFR - List of Patients/Prescriptions for Recall Notice ;12/30/09

Source Information

Source file <PSORLST2.m>

Call Graph

Call Graph

Call Graph Total: 6

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:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

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.
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^^
RAWNDC(NDC) ; Returns NDC without dashes ('-') or spaces (' ')
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
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 #
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?
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
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^^

External References

Name Field # of Occurrence
^%ZISC PROCESS+71
$$GET1^DIQ PROCESS+22, PROCESS+36, PROCESS+37, PROCESS+39, 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+25
$$FMTE^XLFDT PROCESS+51, PROCESS+52, 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+42
Function Call: WRITE
  • Prompt: "CITY^STATE^ZIP^PHONE (HOME)^PHONE (WORK)^PHONE (CELL)^DECEASED?^FILL #^ISSUE DATE^"
  • Line Location: PROCESS+43
Function Call: WRITE
  • Prompt: "FILL DATE^RELEASED DATE/TIME^EXPIRATION DATE^LOT #^NDC^DIVISION^PHARMACIST^PROVIDER^"
  • Line Location: PROCESS+44
Function Call: WRITE
  • Prompt: "PATIENT STATUS^QTY^DAYS SUPPLY^# OF REFILLS^MAIL/WINDOW^CMOP?^PARTIAL REMARKS^"
  • Line Location: PROCESS+45
Function Call: WRITE
  • Prompt: "TRANSMISSION NUMBER^SEQUENCE #^CMOP NDC^DATE SHIPPED^CARRIER^PACKAGE ID^/*EOR*/"
  • Line Location: PROCESS+46
Function Call: WRITE
  • Prompt: !,OUTPUT
  • Line Location: PROCESS+67
Function Call: WRITE
  • Prompt: !!!?15,"*** NO RECORDS TO PRINT ***",!!!!
  • Line Location: PROCESS+69

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PROCESS+13, PROCESS+31, PATIENT+9, PATIENT+12
^PS(53 - [#53] PROCESS+53
^PS(59 - [#59] ORIGINAL+14, REFILL+18, PARTIAL+16
^PSRX - [#52] PROCESS+11, PROCESS+29, PROCESS+50, 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+26, PROCESS+28, PROCESS+35
^TMP( PROCESS+5!
^TMP($J PROCESS+22*, PROCESS+39*, PROCESS+41, PROCESS+48, PROCESS+49, PROCESS+55, PROCESS+71!
^VA(200 - [#200] ORIGINAL+15, ORIGINAL+16, REFILL+19, REFILL+20, PARTIAL+17, PARTIAL+18

Label References

Name Line Occurrences
$$CMOP PROCESS+57, PROCESS+59
$$LOT PROCESS+21, PROCESS+38, ORIGINAL+11, REFILL+13, PARTIAL+11
$$ORIGINAL PROCESS+57
$$PARTIAL PROCESS+61
$$PATIENT PROCESS+57, PROCESS+59, PROCESS+61
$$RAWNDC PROCESS+20, PROCESS+37
$$REFILL PROCESS+59

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+52*, PROCESS+63
FILL PROCESS+2~, PROCESS+47*, PROCESS+55*, PROCESS+56, PROCESS+58, PROCESS+59, PROCESS+61, 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+51*, PROCESS+62
J LOT+4~*, LOT+6*, LOT+7
LOT PROCESS+2~, PROCESS+21*, PROCESS+38*, ORIGINAL+6~, ORIGINAL+11*, ORIGINAL+19, REFILL+7~, REFILL+13*, REFILL+22, PARTIAL+7~
, PARTIAL+11*, PARTIAL+21, LOT+4~*, LOT+5, LOT+6*, LOT+7, LOT+8*, LOT+9*, LOT+10*, LOT+11
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+37*, 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+47*, PROCESS+57*, PROCESS+59*, PROCESS+61*, PROCESS+62*, PROCESS+63*, PROCESS+64*, PROCESS+65*, PROCESS+66*
, PROCESS+67
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+47*, PROCESS+48*, PROCESS+49, PROCESS+55
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+21, PROCESS+33, PROCESS+38
PSODEAD PROCESS+2~, PROCESS+13*, PROCESS+31*
>> PSODTRNG PROCESS+6
PSOFILL PROCESS+1~, PROCESS+16*, PROCESS+17*, PROCESS+18, PROCESS+19, PROCESS+20, PROCESS+21, PROCESS+22, PROCESS+34*, PROCESS+35*
, PROCESS+36, PROCESS+37, PROCESS+38, PROCESS+39
PSOFRMDT PROCESS+1~, PROCESS+6*, PROCESS+7, PROCESS+25
>> PSOMED PROCESS+15, PROCESS+20, PROCESS+21, PROCESS+33, PROCESS+37, PROCESS+38
>> PSONDC( PROCESS+20, PROCESS+37
PSOPAT PROCESS+1~, PROCESS+12*, PROCESS+13, PROCESS+22, PROCESS+30*, PROCESS+31, PROCESS+39
PSORDT PROCESS+1~, PROCESS+7*, PROCESS+8*, PROCESS+10, PROCESS+17, PROCESS+25*, PROCESS+26*, PROCESS+28, PROCESS+35
PSORX PROCESS+1~, PROCESS+9*, PROCESS+10*, PROCESS+11, PROCESS+17, PROCESS+18, PROCESS+19, PROCESS+20, PROCESS+21, PROCESS+22
, PROCESS+27*, PROCESS+28*, PROCESS+29, PROCESS+35, PROCESS+36, PROCESS+37, PROCESS+38, PROCESS+39
PSORXDRG PROCESS+2~, PROCESS+14*, PROCESS+15, PROCESS+21, PROCESS+32*, PROCESS+33, PROCESS+38
>> PSOSDIV( PROCESS+19, PROCESS+36
PSOTODT PROCESS+1~, PROCESS+6*, PROCESS+8, PROCESS+26
>> PSOXDED PROCESS+13, PROCESS+31
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+53*, PROCESS+64
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+54*, PROCESS+65
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+47*, PROCESS+49*, PROCESS+50, PROCESS+55, PROCESS+57, PROCESS+59, PROCESS+61, 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+29*, PROCESS+30, PROCESS+32, PROCESS+50*, PROCESS+51, PROCESS+53
, PROCESS+54, PROCESS+57, PROCESS+59, PROCESS+61, PATIENT~, PATIENT+8, PATIENT+10, ORIGINAL~, ORIGINAL+16, ORIGINAL+17
, ORIGINAL+18, REFILL~, REFILL+20, PARTIAL~, PARTIAL+18
RXND2 PROCESS+1~, PROCESS+11*, PROCESS+29*, PROCESS+37, PROCESS+50*, PROCESS+52, PROCESS+57, PROCESS+59, PROCESS+61, 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~
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+71
>> ZTREQ PROCESS+71*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All