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

Package: Outpatient Pharmacy

Routine: PSOPI136

Information

PSOPI136 ;BHM/MFR,BI - Patient Merge Clean-up ;07/10/03

Source Information

Source file <PSOPI136.m>

Entry Points

Name	Comments	DBIA/ICR reference
REPEAT
OUT
EN
END
FIX(OLDDFN,NEWDFN)	; Fix problems caused by Patient Merge
EXP	; Sets CPRS order status to EXPIRED
DSC	; Sets CPRS order status to DISCONTINUED
MAIL	; Send mail about the Clean-up

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The Environment Check Routine is designed",!,"to run during the installation step only.",! Line Location: PSOPI136+10
Function Call: WRITE	Prompt: !,"This patch queues a job to perform Patient Merge Clean-up",! Line Location: PSOPI136+11
Function Call: WRITE	Prompt: "It should be queued to run when there are no users processing outpatient prescriptions." Line Location: REPEAT+0
Function Call: WRITE	Prompt: !,"The program did not run, the patch will not install.",! Line Location: REPEAT+2
Function Call: WRITE	Prompt: !,"The program did not run, the patch will not install..",! Line Location: REPEAT+3
Function Call: WRITE	Prompt: !,"MUST BE IN THE FUTURE",! Line Location: REPEAT+4
Function Call: WRITE	Prompt: ! Line Location: REPEAT+6
Function Call: WRITE	Prompt: !!,"JOB QUEUED AS ",$G(ZTSK),".",! Line Location: REPEAT+7
Function Call: WRITE	Prompt: "Job is already running",! Line Location: EN+2
Function Call: WRITE	Prompt: "." Line Location: DSC+20

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^OR(100 - [#100]	GET1^DIQ
^DPT - [#2]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ

Info | Source | Entry Points | Interaction Calls | FileMan Files Accessed Via FileMan Db Call