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: 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>

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
VOIDST(RXIEN,FILL) ; Determine the state to send the void
; Make sure the void is sent to the state that received the most recent fill

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: !
  • Line Location: RXLOOP+11
Function Call: WRITE
  • Prompt: !!?1,$S($P(SCREEN,"^",3)="E":"ERROR",1:"WARNING"),": ",$P(SCREEN,"^",2),$C(7)
  • Line Location: RXLOOP+14
Function Call: WRITE
  • Prompt: !?5,RXERMSG
  • Line Location: RXLOOP+29
Function Call: WRITE
  • Prompt: !?5,$P(RXERMSG,"^",2)
  • Line Location: RXLOOP+31
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+17
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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call