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

Package: CMOP

Routine: PSXHSYS


Information

PSXHSYS ;BIR/WPB/PDW-Displays System Status at CMOP Host Site ;MAR 1,2002@16:11:17

Source Information

Source file <PSXHSYS.m>

Entry Points

Name Comments DBIA/ICR reference
STATUS ;display CMOP status for entry action on RX menu
ASK
ASK1
RPT
EXIT
EDIT ;Enter/Edit site parameters on the CMOP host facility system.
QRI
QLR
RAS
DRCSTMIS ;edit 554 parameter for "CMOP DRUG Cost Missing" report
EXIT1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: STATUS+2
Function Call: READ
  • Formatting: !
  • Prompt: "Enter ""^"" to quit"
  • Variable: END
  • Timeout: 30
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,?((IOM\2)-($L(PSXTXT)\2)),PSXTXT
  • Line Location: RPT+1
Function Call: WRITE
  • Prompt: !!," Interface",?23,": ",$S(PSXSTAT="R":"RUNNING",1:"STOPPED")
  • Line Location: RPT+2
Function Call: WRITE
  • Prompt: !!," Last Order Processed ",?23,": ",$G(PSX1),$G(SP),$G(SITE),$G(SP1),$G(ACKTM)
  • Line Location: RPT+5
Function Call: WRITE
  • Prompt: !!," Last Query Completed",?23,": #",$S($G(QFLG)=0:$G(QRY),$G(QFLG)=1:$G(QRY)-1,1:""),$G(SP2),$G(TRX),$G(SP5),$G(QTM)
  • Line Location: RPT+6
Function Call: WRITE
  • Prompt: !!," Background Process",?43,"Last Ran",?66,"Scheduled For"
  • Line Location: RPT+10
Function Call: WRITE
  • Prompt: !!," Release Data Filed in Master Database.....",?43,$G(LRF),SP4,$S($G(RFNS)=1:"Not Scheduled",1:$G(RFNXT))
  • Line Location: RPT+11
Function Call: WRITE
  • Prompt: !," Database Purge............................",?43,$G(DBF),SP4,$S($G(DBNS)=1:"Not Scheduled",1:$G(DBNXT))
  • Line Location: RPT+12
Function Call: WRITE
  • Prompt: !," Release File Purge........................",?43,$G(LRFP),SP4,$S($G(RFPNS)=1:"Not Scheduled",1:$G(RFPNXT))
  • Line Location: RPT+13
Function Call: WRITE
  • Prompt: !," Release Acknowledgement File Purge........",?43,$G(ARF),SP4,$S($G(AFNS)=1:"Not Scheduled",1:$G(AFNXT))
  • Line Location: RPT+14
Function Call: WRITE
  • Prompt: !!,"Query Request Interval: ",$G(QRI),"// "
  • Line Location: QRI+0
Function Call: WRITE
  • Prompt: !!,"This is the minimum time interval between query requests.",!,"Enter the number in hour(s) and/or fractions of an hour interval.",!,"Example: 1.25 = 12 hr 25 min, .30 = 30 min, 1 = 1 hr.",!
  • Line Location: QRI+7
Function Call: WRITE
  • Prompt: !,"Query Limit Request: ",$G(QLR)," Rx's// "
  • Line Location: QLR+0
Function Call: WRITE
  • Prompt: !!,"This is the maximum number of Rx's that will be accepted during a query request.",!
  • Line Location: QLR+2
Function Call: WRITE
  • Prompt: !,"Enter a numeric value between 1 and 99999."
  • Line Location: QLR+4
Function Call: WRITE
  • Prompt: !,"Enter a numeric value between 1 and 99999."
  • Line Location: QLR+5
Function Call: WRITE
  • Prompt: !,"Days to Retain Release Summary: ",$G(RAS)," days// "
  • Line Location: RAS+0
Function Call: WRITE
  • Prompt: !!,"This is the number of days of Release Acknowledgements that will be retained in",!,"the file system. Maximum number of days is 10, minimum number of days is 0.",!
  • Line Location: RAS+2
Function Call: WRITE
  • Prompt: !,"Enter a number value between 1 and 10."
  • Line Location: RAS+4
Function Call: WRITE
  • Prompt: !,"Maximum number of days to keep is 10."
  • Line Location: RAS+5
Function Call: WRITE
  • Prompt: !,"Minimum number of days to keep is 1."
  • Line Location: RAS+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSX(553 - [#553] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call