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

Package: Outpatient Pharmacy

Routine: PSOSPMSP


Information

PSOSPMSP ;BIRM/MFR - State Prescription Monitoring Program - State Parameters ;09/04/12

Source Information

Source file <PSOSPMSP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - Menu option entry point
ASAPVER ; - ASAP Version
TRXRTS ; - Auto Transmit Returns (ASAP 1995 only)
ZEROVER ; - Zero Report ASAP Version
INCNVET ; Include Non-Veteran Patients
REPFRQ ; Reporting Frequency
VMSLDIR ; - Open VMS Local Directory
UNXLDIR ; - Unix/Linux Local Directory
FILEPFIX ; - File name Prefix
FILEEXT ; File Extension
RENAME ; Rename File after upload?
FTPIP ; - State Server FTP IP Address
FTPUSER ; - State Server FTP Username
FTPPORT ; - State Server FTP Password
FTPDIR ; - State Server FTP Remote Directory
TRXMODE ; - Transmission Mode (A - Automatic / M - Manual)
SNDPRMT ; - Send Export State Parameter
ZERODIV ; - Zero Report MbM default division P696
EXIT ; Exit
END
DISPLAY(STATE) ; - Displays the current Parameters
GOTO(INPUT,HOME) ; - Directed up-arrow
; Input: INPUT - User input (e.g., "@", "^STATE", etc...)
; HOME - Prompt where the user typed the input
LOAD(STATE) ; Loading Factory/Division/User preferences
CHANGED(STATE,FIELD,VALUE) ; - If field was change Automatically Invokes SAVE
SAVE(STATE,FIELD,VALUE) ; - Saves preferences by State

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"The security key PSO SPMP ADMIN is required for editing the Parameters."
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !,"Invalid Frequency"
  • Line Location: REPFRQ+4
Function Call: WRITE
  • Prompt: !
  • Line Location: UNXLDIR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: UNXLDIR+14
Function Call: WRITE
  • Prompt: !
  • Line Location: UNXLDIR+15
Function Call: WRITE
  • Prompt: !!,"Warning: "_$S($G(NEWDIR):"The directory could not be created.",1:"The directory could not be found."),!,$C(7)
  • Line Location: UNXLDIR+17
Function Call: WRITE
  • Prompt: ?40,"No spaces allowed.",$C(7)
  • Line Location: FILEPFIX+4
Function Call: WRITE
  • Prompt: !,"NOTE: You have selected a parameter that includes sending to state of patient"
  • Line Location: SNDPRMT+6
Function Call: WRITE
  • Prompt: !,"delivery. Only states that have been setup in your SPMP state parameters"
  • Line Location: SNDPRMT+7
Function Call: WRITE
  • Prompt: !,"will receive data. Enter a help desk ticket if you have questions"
  • Line Location: SNDPRMT+8
Function Call: WRITE
  • Prompt: !,"or need assistance.",!
  • Line Location: SNDPRMT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !?5,"ASAP VERSION : ",$P(ZNODE,"^",2)
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !?5,"TRANSMIT RETURN TO STOCK : ",$S($P(ZNODE,"^",5):"YES",1:"NO")
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: !?5,"ZERO REPORT ASAP VERSION : ",$P(ONENODE,"^",1)
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: !?5,"INCLUDE NON-VETERAN PATIENTS: ",$S($P(ZNODE,"^",3):"YES",1:"NO")
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: !?5,"REPORTING FREQUENCY IN DAYS : ",$P(ZNODE,"^",4)
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: !?5,"OPEN VMS LOCAL DIRECTORY : ",$P(FNODE,"^",1)
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: !?5,"UNIX/LINUX LOCAL DIRECTORY : ",$P(F1NODE,"^",1)
  • Line Location: DISPLAY+13
Function Call: WRITE
  • Prompt: !?5,"FILE NAME PREFIX : ",$P(FNODE,"^",2)
  • Line Location: DISPLAY+14
Function Call: WRITE
  • Prompt: !?5,"FILE EXTENSION : ",$P(FNODE,"^",3)
  • Line Location: DISPLAY+15
Function Call: WRITE
  • Prompt: !?5,"RENAME FILE AFTER UPLOAD : ",$S($P(ZNODE,"^",7):"YES",1:"NO")
  • Line Location: DISPLAY+16
Function Call: WRITE
  • Prompt: !?5,"STATE SFTP SERVER IP ADDRESS: ",$P(FNODE,"^",4)
  • Line Location: DISPLAY+17
Function Call: WRITE
  • Prompt: !?5,"STATE SFTP SERVER USERNAME : ",$P(FNODE,"^",5)
  • Line Location: DISPLAY+18
Function Call: WRITE
  • Prompt: !?5,"STATE SFTP SERVER PORT # : ",$P(FNODE,"^",6)
  • Line Location: DISPLAY+19
Function Call: WRITE
  • Prompt: !?5,"STATE SFTP SERVER DIRECTORY : ",$P(FNODE,"^",7)
  • Line Location: DISPLAY+20
Function Call: WRITE
  • Prompt: !?5,"SFTP TRANSMISSION MODE : ",$$GET1^DIQ(58.41,STATE,13)
  • Line Location: DISPLAY+21
Function Call: WRITE
  • Prompt: !?5,"SEND EXPORT STATE PARAMETER : ",$$GET1^DIQ(58.41,STATE,21)
  • Line Location: DISPLAY+22
Function Call: WRITE
  • Prompt: !?5,"ZERO REPORT DEFAULT DIVISION: ",$$GET1^DIQ(59,$P(ONENODE,"^",2),.06)
  • Line Location: DISPLAY+23
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+24
Function Call: WRITE
  • Prompt: !
  • Line Location: GOTO+6
Function Call: WRITE
  • Prompt: !
  • Line Location: GOTO+7
Function Call: WRITE
  • Prompt: " Cannot delete field",$C(7)
  • Line Location: GOTO+12

FileMan Files Accessed Via FileMan Db Call

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