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
Print Page as PDF
Routine: PSOPOST

Package: Outpatient Pharmacy

Routine: PSOPOST


Information

PSOPOST ;BIR/SAB-post init for v7 ;07/29/96 9:17 AM

Source Information

Source file <PSOPOST.m>

Entry Points

Name Comments DBIA/ICR reference
SETUP1 ;
POST ;
RESTART ;
CLOZ ;
PCLO
AGF ;PSO*7*73 - AG x-ref fix
BEG
W
AGC ;
EN0
EN1
EN2
SND
MSG ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"DUZ and DUZ(0) must be defined as an active user.",!!
  • Line Location: RESTART+2
Function Call: WRITE
  • Prompt: !,"Background Job queued to run.",!
  • Line Location: RESTART+4
Function Call: WRITE
  • Prompt: !,"Background Job queued to run.",!
  • Line Location: PCLO+1
Function Call: WRITE
  • Prompt: !!,"Use the entry point BEG^PSOPOST to restart - quitting "
  • Line Location: AGF+1
Function Call: WRITE
  • Prompt: !!,?10,"*** 'AG' CROSS-REFERENCE CLEANUP PROCESS ***",!
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !!,"DUZ NOT DEFINED - QUITTING",!!
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !,"Outpatient Pharmacy V. 7.0 not installed"
  • Line Location: BEG+8
Function Call: WRITE
  • Prompt: !,"Cleanup will start from "_$E(IDT,4,5)_"-"_$E(IDT,6,7)_"-"_$E(IDT,2,3)_" (Outpatient Pharmacy V. 7.0 installed date)."
  • Line Location: BEG+9
Function Call: WRITE
  • Prompt: !!!?10,"Cleanup job not queued.."
  • Line Location: BEG+17
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,"A mail message will be sent to the installer upon completion of this job.",!
  • Line Location: W+0
Info |  Source |  Entry Points |  Interaction Calls