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 |  Local Variables  | All
Print Page as PDF
Routine: PSOSPMV

Package: Outpatient Pharmacy

Routine: PSOSPMV


Information

PSOSPMV ;BIRM/MFR - Multiple Individual Prescription ASAP Data Listman Driver ;09/29/2020

Source Information

Source file <PSOSPMV.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Outpatient Pharmacy 7 $$NUMERIC^PSOASAP0  $$RXNUM^PSOBPSU2  ($$RXRLDT,$$RXSITE,$$RXSTATE)^PSOBPSUT  $$GETNDC^PSONDCUT  ($$GETNDC,PAUSE)^PSOSPMU1  $$RXFILL^PSOSPMU2  ($$PREIEN,$$RPHIEN,$$SCREEN,$$SPOK,SETNAME)^PSOSPMUT  
VA FileMan 4 (IX,LIST)^DIC  FILE^DICN  $$GET1^DIQ  ^DIR  
Kernel 2 ($$FMADD,$$NOW)^XLFDT  $$UP^XLFSTR  
List Manager 2 EN^VALM  FULL^VALM1  
Registration 1 (ADD,DEM)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO SPMP VOID RX VIEW/EXPORT  

Entry Points

Name Comments DBIA/ICR reference
MULTI ; Entry Point
EN(STATE,PSOFROM,PSOTO) ; Entry point
RXLOOP(PSODONE) ; - Prompt for Rx, Fill, Record Type
ONEFILL(RXIEN,FILLNUM) ; Get All Fills for on RX#
RECTYP(RXIEN,FILLNUM,RECTYPE) ; Get Record Type
GETDATA(RXIEN,FILLNUM,RECTYPE,PSORXOK) ; Entry point
BLDBAT(EXPTYPE,PSOBATLST) ; Given a list of Rx's builds a new Export Batch
; Input: (r) EXPTYPE - Export Type ((MA)naul/(SC)heduled/(RX) Single Rx)/(VD) Void Only
; (r) List of Rx's: ^TMP("PSOSPMRX",$J,STATE,RXIEN,RXFILL)=Record Type ((N)ew/(R)evise/(V)oid)
; Note: This ^TMP global will be cleaned up at the end
RXLKP(RXNUM) ; - Peforms Lookup on the PRESCRIPTION file
VDRXBAT(BATIEN) ; Check for VOIDs in RX batch

External References

Name Field # of Occurrence
IX^DIC RXLKP+3
LIST^DIC VDRXBAT+4
FILE^DICN BLDBAT+17, BLDBAT+33
$$GET1^DIQ RXLOOP+12, RXLOOP+13, RXLOOP+15, RECTYP+2, GETDATA+5, GETDATA+7, GETDATA+9, BLDBAT+13, BLDBAT+21, BLDBAT+29
, BLDBAT+30, VDRXBAT+3
^DIR RXLOOP+3, RECTYP+18
$$NUMERIC^PSOASAP0 BLDBAT+29
$$RXNUM^PSOBPSU2 RXLOOP+9
$$RXRLDT^PSOBPSUT ONEFILL+4, RECTYP+8
$$RXSITE^PSOBPSUT RXLOOP+15, GETDATA+6
$$RXSTATE^PSOBPSUT RXLOOP+11, RECTYP+1, GETDATA+4
$$GETNDC^PSONDCUT BLDBAT+31
$$GETNDC^PSOSPMU1 BLDBAT+27
PAUSE^PSOSPMU1 RXLOOP+23
$$RXFILL^PSOSPMU2 ONEFILL+1
$$PREIEN^PSOSPMUT GETDATA+12
$$RPHIEN^PSOSPMUT GETDATA+13
$$SCREEN^PSOSPMUT RXLOOP+21
$$SPOK^PSOSPMUT RXLOOP+17, BLDBAT+10
SETNAME^PSOSPMUT GETDATA+8
ADD^VADPT GETDATA+8
DEM^VADPT GETDATA+8
EN^VALM EN+2
FULL^VALM1 EN+3
$$FMADD^XLFDT MULTI+3, MULTI+8
$$NOW^XLFDT MULTI+3, MULTI+8, BLDBAT+14
$$UP^XLFSTR RXLOOP+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"The ECME# must be 7 digits long!",$C(7)
  • Line Location: RXLOOP+8
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: RXLOOP+9
Function Call: WRITE
  • Prompt: !?5,RXERMSG
  • Line Location: RXLOOP+16
Function Call: WRITE
  • Prompt: !?5,$P(RXERMSG,"^",2)
  • Line Location: RXLOOP+18
Function Call: WRITE
  • Prompt: !
  • Line Location: RXLOOP+20
Function Call: WRITE
  • Prompt: !!?1,$S($P(SCREEN,"^",3)="E":"ERROR",1:"WARNING"),": ",$P(SCREEN,"^",2),$C(7)
  • Line Location: RXLOOP+23
Function Call: WRITE
  • Prompt: !!?1,"Only prescription fills dispensed on or after Feb 11, 2013 can be exported.",$C(7)
  • Line Location: ONEFILL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: RECTYP+18
Function Call: WRITE
  • Prompt: !!,"Creating Batch #",DINUM," for ",$$GET1^DIQ(58.41,STATE,.01),"..."
  • Line Location: BLDBAT+13
Function Call: WRITE
  • Prompt: "Done."
  • Line Location: BLDBAT+34
Routine Call
  • DIC
  • Line Location:
    • RXLKP+3
Routine Call
  • DIC
  • Line Location:
    • VDRXBAT+4
Routine Call
  • DIR
  • Line Location:
    • RXLOOP+3
    • RECTYP+18
Routine Call
  • VALM
  • Line Location:
    • EN+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] Classic Fileman Calls,  GET1^DIQ
^PS(58.41 - [#58.41] GET1^DIQ
^PS(58.42 - [#58.42] Classic Fileman Calls,  GET1^DIQ
58.42001 LIST^DIC
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DILOCKTM" BLDBAT+11
^PS(58.42 - [#58.42] BLDBAT+11, BLDBAT+12, BLDBAT+18
^TMP("PSOSPMRX" GETDATA+14*, BLDBAT+6, BLDBAT+9, BLDBAT+20, BLDBAT+22, BLDBAT+25, BLDBAT+35!

Label References

Name Line Occurrences
$$BLDBAT MULTI+5
$$RXLKP RXLOOP+5
EN MULTI+10
GETDATA RXLOOP+25
ONEFILL RXLOOP+20
RECTYP RXLOOP+24
RXLOOP MULTI+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% BLDBAT+5~
ASAP GETDATA+1~
BATCHIEN BLDBAT+5~, BLDBAT+9, BLDBAT+10*, BLDBAT+12*, BLDBAT+19*, BLDBAT+23, BLDBAT+24, BLDBAT+36
BATIEN MULTI+1~, MULTI+5*, VDRXBAT~, VDRXBAT+3, VDRXBAT+4
>> BEGRLDT BLDBAT+15, BLDBAT+16
D RXLKP+1~, RXLKP+2*
DA BLDBAT+5~, BLDBAT+24!
DA(1 BLDBAT+24*
DD BLDBAT+5~, BLDBAT+17!, BLDBAT+33!
DFN MULTI+1~, GETDATA+7*, GETDATA+8
DIC BLDBAT+5~, BLDBAT+14*, BLDBAT+24!*, RXLKP+1~, RXLKP+2*
DIC("DR" BLDBAT+14*, BLDBAT+16*, BLDBAT+32*
DIC(0 BLDBAT+14*, BLDBAT+24*, RXLKP+2*
DINUM BLDBAT+5~, BLDBAT+12*, BLDBAT+13, BLDBAT+14, BLDBAT+24!
DIR MULTI+1~, RXLOOP+2!, RXLOOP+20!, RECTYP+4!
DIR("?" RXLOOP+2*
DIR("??" RXLOOP+2*, RECTYP+7*
DIR("A" RXLOOP+2*, RECTYP+4*
DIR("B" RECTYP+13*, RECTYP+17*
DIR("L" RECTYP+5*, RECTYP+6*, RECTYP+10*, RECTYP+11*, RECTYP+12*, RECTYP+16*
DIR(0 RXLOOP+2*, RECTYP+9*, RECTYP+15*
DIRUT MULTI+1~, RXLOOP+3, RXLOOP+20!, RECTYP+18
DLAYGO BLDBAT+5~, BLDBAT+17*, BLDBAT+33*
DO BLDBAT+5~, BLDBAT+17!, BLDBAT+33!
DR BLDBAT+5~
DRUGIEN GETDATA+1~, GETDATA+9*, BLDBAT+5~, BLDBAT+21*, BLDBAT+29, BLDBAT+30
DTOUT RXLOOP+24!
DUOUT RXLOOP+20!, RXLOOP+24, RECTYP+18
DUTOUT RXLOOP+24!
DUZ BLDBAT+14
>> ENDRLDT BLDBAT+16
EXPTYP VDRXBAT+1~, VDRXBAT+3*
EXPTYPE BLDBAT~, BLDBAT+13, BLDBAT+14, BLDBAT+34
FILL BLDBAT+5~, BLDBAT+8*, BLDBAT+22*, BLDBAT+25, BLDBAT+27, BLDBAT+31, BLDBAT+32
FILLIEN GETDATA+1~, GETDATA+10*
FILLNUM RXLOOP+1~, RXLOOP+20, RXLOOP+21, RXLOOP+24, RXLOOP+25, ONEFILL~, ONEFILL+1*, ONEFILL+4, ONEFILL+6*, RECTYP~
, RECTYP+8, GETDATA~, GETDATA+3*, GETDATA+10, GETDATA+12, GETDATA+13, GETDATA+14
NDC BLDBAT+5~, BLDBAT+27*, BLDBAT+30*, BLDBAT+31*, BLDBAT+32
PATIEN GETDATA+1~, GETDATA+7*
PREIEN GETDATA+1~, GETDATA+12*
>> PSOASVER RXLOOP+12*, RECTYP+2*, GETDATA+5*
PSOBATLST MULTI+2~, MULTI+5, BLDBAT~
PSOBATLST( MULTI+10, BLDBAT+23*
PSOBATLST(0 MULTI+6
PSODONE MULTI+2~, MULTI+3*, MULTI+4, RXLOOP~, RXLOOP+3*
PSOFROM MULTI+2~, MULTI+3*, MULTI+10, EN~
PSOLSTLN MULTI+1~
PSONAME GETDATA+1~
PSOQUIT MULTI+1~, RXLOOP+4*, RXLOOP+7, RXLOOP+8*, RXLOOP+9*
PSORXOK RXLOOP+25, GETDATA~
PSOTO MULTI+2~, MULTI+8*, MULTI+10, EN~
PSOTPCNT MULTI+1~
PSOTTCNT MULTI+1~
>> PSOTXRTS MULTI+7*, RXLOOP+13*
REC VDRXBAT+1~, VDRXBAT+5*
RECTYP VDRXBAT+1~
RECTYPAR VDRXBAT+1~
RECTYPAR("DILIST" VDRXBAT+5
RECTYPE RXLOOP+1~, RXLOOP+24, RXLOOP+25, RECTYP~, RECTYP+20*, GETDATA~, GETDATA+12, GETDATA+13, GETDATA+14, BLDBAT+5~
, BLDBAT+25*, BLDBAT+26, BLDBAT+32
RPHIEN GETDATA+1~, GETDATA+13*
RSTREC GETDATA+1~
RTSDATA GETDATA+1~
RTSREC GETDATA+1~
RX BLDBAT+5~, BLDBAT+8*, BLDBAT+20*, BLDBAT+21, BLDBAT+22, BLDBAT+25, BLDBAT+27, BLDBAT+31, BLDBAT+32
RXERMSG RXLOOP+1~, RXLOOP+15*, RXLOOP+16, RXLOOP+17*, RXLOOP+18
RXIEN MULTI+1~, RXLOOP+1~, RXLOOP+5*, RXLOOP+9*, RXLOOP+11, RXLOOP+15, RXLOOP+20, RXLOOP+21, RXLOOP+24, RXLOOP+25
, ONEFILL~, ONEFILL+1, ONEFILL+4, RECTYP~, RECTYP+1, RECTYP+8, GETDATA~, GETDATA+4, GETDATA+6, GETDATA+7
, GETDATA+9, GETDATA+12, GETDATA+13, GETDATA+14
RXNUM RXLKP~, RXLKP+2
SCREEN MULTI+1~, RXLOOP+1~, RXLOOP+21*, RXLOOP+22, RXLOOP+23
SITEIEN GETDATA+1~, GETDATA+6*
SPOK BLDBAT+5~
STATE EN~, EN+1, BLDBAT+5~, BLDBAT+8*, BLDBAT+9*, BLDBAT+10, BLDBAT+13, BLDBAT+14, BLDBAT+20, BLDBAT+22
, BLDBAT+23, BLDBAT+25
STATEIEN MULTI+1~, MULTI+3*, MULTI+10*, EN+1~*, RXLOOP+11*, RXLOOP+12, RXLOOP+13, RXLOOP+14, RXLOOP+17, RECTYP+1*
, RECTYP+2, GETDATA+4*, GETDATA+5, GETDATA+14
TRXTYPE GETDATA+1~, GETDATA+11*
VALM MULTI+1~
VALMBCK MULTI+1~
VALMCNT MULTI+1~
VALMHDR MULTI+1~
VALMSG MULTI+1~
>> VDRXBAT VDRXBAT+2*, VDRXBAT+3, VDRXBAT+5*, VDRXBAT+6
X MULTI+1~, RXLOOP+3, RXLOOP+4*, RXLOOP+5, RXLOOP+7, RXLOOP+8, RXLOOP+9, BLDBAT+5~, BLDBAT+14*, BLDBAT+32*
, RXLKP+1~, RXLKP+2*
XX BLDBAT+5~, BLDBAT+10*
Y RECTYP+20, BLDBAT+5~, BLDBAT+19, RXLKP+1~, RXLKP+4
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 |  Local Variables  | All