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

Package: Outpatient Pharmacy

Routine: PSOSPML4


Information

PSOSPML4 ;BIRM/MFR - Single Prescription ASAP Data Listman Driver ;09/01/12

Source Information

Source file <PSOSPML4.m>

Entry Points

Name Comments DBIA/ICR reference
RX ; - Prescription prompt
EN(RXIEN,FILLNUM,RECTYPE) ; Entry point
HDR ; - Builds the Header section
INIT ; Builds the Body section
SETSEG(ARRNAM) ; Sets list body with ASAP (non-1995) info (Uses Recurisivity - Call itself)
ERROR ; Error Trap Handling to catch errors on user-entered M expression
SETSEG95(LSTSUB,RECORD) ; Sets list body with ASAP 1995 info
ASAPDEF ; - Invokes Listman for ASAP Definitions
EXPORT ; - Export Rx
VIEW ; - Rx View Action
; Most of these variables most be NEWed because they are being killed by PSORXVW
MP ; - Patient Medication Profile
EXIT ; Listman Exit
HELP ; Listman Help
RXLKP(RXNUM) ; - Peforms Lookup on the PRESCRIPTION file
VRECMSG(X,RXIEN,FILLNUM,PSOSECK) ; Inform user if VOID selected without PSO SPMP ADMIN key

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: RX+2
Function Call: WRITE
  • Prompt: !?5,"The ECME# must be 7 digits long!",$C(7)
  • Line Location: RX+6
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: RX+7
Function Call: WRITE
  • Prompt: !!?1,$S($P(SCREEN,"^",3)="E":"ERROR",1:"WARNING"),": ",$P(SCREEN,"^",2),$C(7)
  • Line Location: RX+13
Function Call: WRITE
  • Prompt: !!?1,"Only prescription fills dispensed on or after Feb 11, 2013 can be exported.",$C(7)
  • Line Location: RX+17
Function Call: WRITE
  • Prompt: !
  • Line Location: ASAPDEF+4
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: EXPORT+7
Function Call: WRITE
  • Prompt: !!,"WARNING: ",$P(SCREEN,"^",2)
  • Line Location: EXPORT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EXPORT+31
Function Call: WRITE
  • Prompt: ?40,"Please wait..."
  • Line Location: EXPORT+36
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: EXPORT+49
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: EXPORT+51
Function Call: WRITE
  • Prompt: !!!,VALMSG,"...NO BATCH SENT!",!
  • Line Location: EXPORT+52
Function Call: WRITE
  • Prompt: !
  • Line Location: EXPORT+58
Function Call: WRITE
  • Prompt: !
  • Line Location: EXPORT+59
Function Call: WRITE
  • Prompt: !
  • Line Location: MP+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] Classic Fileman Calls,  GET1^DIQ
^PS(58.41 - [#58.41] GET1^DIQ
^PS(58.42 - [#58.42] Classic Fileman Calls,  GET1^DIQ
^PS(59 - [#59] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call