Routine: PSOSPMU1

Information

PSOSPMU1 ;BIRM/MFR - State Prescription Monitoring Program Utilities ;10/07/12

Name	Comments	DBIA/ICR reference
GATHER(STATE,BEGDTTM,ENDDTTM,RECTYPE,RTSONLY,LIST)	; Gathers all CS prescriptions for Data Range
BLDBAT(EXPTYPE,BEGRLDT,ENDRLDT)	; 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/(ZR) Zero Report ; (o) BEGRLDT - Begin Release Date (FM Format) (Required for M and S batches) ; (o) ENDRLDT - End Release Date (FM Format) (Required for M and S batches) ; (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
LOADRTS(RXIEN,FILL,ARRAY)	; Load ARRAY with Return To Stock Information
GETNDC(RXIEN,FILL)	; Get the SENT NDC for the Return To Stock (VOID) record
PREPFILE(STATE,DATETIME,RTSONLY,DEBUG)	; Prepare Files (FTP Script and Output Data files)
FTPFILE(STATEIP,STATEUSR,LOCDIR,FTPFILE,EXPFILE,INPTFILE,LOGFILE,FTPPORT,DEBUG)	; Issue the Secure FTP command
DELFILES(LOCDIR,EXPFILE,INPTFILE,FTPFILE,LOGFILE)	; Delete Files
PAUSE	; Pauses screen until user hits Return
XVMSDIR(VMSDIR)	; Converts a VMS directory ; Input: VMSDIR - OpenVMS directory name (e.g., "USER$:[SPMP]")
SAVEKEYS(STATE,LOCDIR)	; Saves Key, converts SSH2 to OpenSSH when running on Linux
LINUXDIR()	; Returns the Linux Directory for SPMP sFTP
DIREXIST(DIR)	; Returns whether the Linux Directory for SPMP sFTP already exists
MAKEDIR(DIR)	; Create a new directory
SETLN(NSPC,TEXT,REV,UND,HIG)	; Sets a line to be displayed in the Body section

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Creating Batch #",DINUM," for ",$$GET1^DIQ(58.41,STATE,.01),"..." Line Location: BLDBAT+15
Function Call: WRITE	Prompt: "Done." Line Location: BLDBAT+36
Function Call: WRITE	Prompt: "put "_$S(PSOOS["UNIX":LOCDIR,1:"")_EXPFILE,! Line Location: PREPFILE+32
Function Call: WRITE	Prompt: "exit",! Line Location: PREPFILE+37
Function Call: WRITE	Prompt: "$ SET VERIFY=(PROCEDURE,IMAGE)",! Line Location: PREPFILE+47
Function Call: WRITE	Prompt: "$ SET DEFAULT "_LOCDIR,! Line Location: PREPFILE+48
Function Call: WRITE	Prompt: "$ sftp"_$S($G(DEBUG):" -""D3""",1:"")_$S(FTPPORT:" -oPort="_FTPPORT,1:"")_" -oIdentityFile="""_$$XVMSDIR(LOCDIR)_"VMSSSHID."" -""B"" "_INPTFILE_" -oUser="_FTPUSR_" "_FTPIP,! Line Location: PREPFILE+49
Function Call: WRITE	Prompt: "$ exit",! Line Location: PREPFILE+50
Function Call: WRITE	Prompt: "IDKEY "_$$XVMSDIR(LOCDIR)_"VMSSSHKEY" Line Location: PREPFILE+56
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Function Call: WRITE	Prompt: $$DECRYP^XUSRB1(^PS(58.41,STATE,"PRVKEY",WLINE,0)),! Line Location: SAVEKEYS+9
Function Call: WRITE	Prompt: $$DECRYP^XUSRB1(^PS(58.41,STATE,"PUBKEY",WLINE,0)),! Line Location: SAVEKEYS+17
Function Call: WRITE	Prompt: $$DECRYP^XUSRB1(^PS(58.41,STATE,"PRVKEY",WLINE,0)),! Line Location: SAVEKEYS+30