Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 ISQED^%ZTLOAD  ($$FMTE,$$HTE,$$HTFM)^XLFDT  
VA Fileman 2 ^DIE  ^DIR  
CMOP 1 EDITDOD^PSXHSYS1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
CMOP 2 PSXSTRT  PSXYSTRT  

Entry Points

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

External References

Name Field # of Occurrence
ISQED^%ZTLOAD STATUS+26, STATUS+30, STATUS+34, STATUS+38
^DIE QRI+10, DRCSTMIS+2
^DIR ASK1
EDITDOD^PSXHSYS1 EDIT+1
$$FMTE^XLFDT STATUS+11, STATUS+13, STATUS+17, STATUS+26, STATUS+30, STATUS+34, STATUS+38
$$HTE^XLFDT STATUS+16
$$HTFM^XLFDT STATUS+26, STATUS+30, STATUS+34, STATUS+38

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: STATUS+2
Function Call: READ
  • Prompt: "Enter ""^"" to quit"
  • Formatting: !
  • Timeout: 30
  • Variable: END
  • 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
Routine Call
  • DIE
  • Line Location:
    • QRI+10
    • DRCSTMIS+2
Routine Call
  • DIR
  • Line Location:
    • ASK1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSX(552.1 STATUS+14, STATUS+17, STATUS+18, STATUS+19, STATUS+20, STATUS+21, STATUS+22
^PSX(552.2 STATUS+14, STATUS+16, RPT+8, RPT+9
^PSX(553 STATUS+6, STATUS+14, EDIT+2, QRI+10, QRI+11, QLR+6*
^PSX(553.1 STATUS+9, STATUS+10, STATUS+11, STATUS+12, STATUS+13, STATUS+23
^PSX(554 STATUS+24, STATUS+26, STATUS+28, STATUS+30, STATUS+32, STATUS+34, STATUS+36, STATUS+38, RPT+7, RPT+9
, EDIT+6, RAS+8*, DRCSTMIS+2, DRCSTMIS+3
^XUSEC("PSXDOD" EDIT+1

Label References

Name Line Occurrences
ASK STATUS+51
ASK1 STATUS+51
EXIT STATUS+1, STATUS+52, ASK, ASK1
EXIT1 QRI+1, QLR+1, QLR+7, RAS+1
QLR QLR+2, QLR+4, QLR+5
QRI QRI+7, QRI+11
RAS RAS+2, RAS+4, RAS+5, RAS+6
RPT STATUS+51
STATUS ASK

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACKSUM RAS*, RAS+1, RAS+2, RAS+3*, RAS+4, RAS+5, RAS+6, RAS+8, EXIT1!
ACKT STATUS+3!, EXIT!
ACKTM STATUS+3!, STATUS+16*, STATUS+17*, RPT+5, EXIT!
AF STATUS+4!, STATUS+36*, STATUS+38*, STATUS+39, EXIT+1!
AFNS STATUS+4!, STATUS+36*, STATUS+37, RPT+14, EXIT+1!
AFNXT STATUS+4!, STATUS+39*, RPT+14, EXIT+1!
ANXT STATUS+4!, STATUS+38*, STATUS+39, EXIT+1!
ARF STATUS+4!, STATUS+39*, RPT+14, EXIT+1!
ATM STATUS+4!, STATUS+16*, STATUS+17*, EXIT+1!
BCNT STATUS+3!, STATUS+8*, STATUS+19*, STATUS+40, RPT+3, RPT+4, EXIT!
CNT STATUS+3!, STATUS+8*, STATUS+18*, STATUS+20*, RPT+3, EXIT!
CQRY STATUS+4!, STATUS+23*, EXIT+1!
DA QRI+9*, QRI+10!, DRCSTMIS+1!, DRCSTMIS+2*, DRCSTMIS+3!
DB STATUS+4!, STATUS+28*, STATUS+30*, STATUS+31, EXIT+1!
DBF STATUS+4!, STATUS+31*, RPT+12, EXIT+1!
DBNS STATUS+4!, STATUS+28*, STATUS+29, RPT+12, EXIT+1!
DBNXT STATUS+4!, STATUS+31*, RPT+12, EXIT+1!
DIE QRI+9*, QRI+10!, DRCSTMIS+1!, DRCSTMIS+2*, DRCSTMIS+3!
>> DIR(0 ASK1*
>> DIROUT ASK1
>> DIRUT ASK1
DNXT STATUS+4!, STATUS+30*, STATUS+31, EXIT+1!
DORD STATUS+3!, STATUS+8*, STATUS+22*, EXIT!
DOWN STATUS+3!, STATUS+8*, STATUS+22*, EXIT!
DQRY STATUS+3!, STATUS+8*, STATUS+23*, EXIT!
DR QRI+9*, QRI+10!, DRCSTMIS+1!, DRCSTMIS+2*, DRCSTMIS+3!
DRX STATUS+3!, STATUS+8*, STATUS+22*, EXIT!
DT STATUS+21, STATUS+23
DTIME QRI, QLR, RAS
>> DTOUT ASK1
DTQRY STATUS+3!, STATUS+8*, STATUS+23*, EXIT!
>> DUOUT ASK1
DUZ EDIT+1
END STATUS+1, STATUS+3!, STATUS+50*, ASK*!, EXIT!
HR EDIT+4*, EDIT+5, QRI+4*, QRI+5, EXIT1!
I STATUS+41*, STATUS+49!
IEN512 STATUS+4!, STATUS+14*, STATUS+16, EXIT+1!
IN5521 STATUS+4!, STATUS+14*, STATUS+17, EXIT+1!
IOF STATUS+2
IOM RPT+1, RPT+7, RPT+8
J STATUS+42*, STATUS+49!
K STATUS+43*, STATUS+49!
L STATUS+45*, STATUS+49!
LEN EDIT+3*, QRI+3*, EXIT1!
LFP STATUS+4!, STATUS+34*, STATUS+35, EXIT+1!
LR STATUS+4!, STATUS+26*, STATUS+27, EXIT+1!
LRF STATUS+4!, STATUS+27*, RPT+11, EXIT+1!
LRFP STATUS+4!, STATUS+35*, RPT+13, EXIT+1!
M STATUS+44*, STATUS+49!
MIN EDIT+4*, EDIT+5, QRI+4*, QRI+5, EXIT1!
N STATUS+46*, STATUS+49!
O STATUS+4!, STATUS+47*, STATUS+49!, EXIT+1!
OCNT STATUS+3!, STATUS+8*, STATUS+20*, RPT+3, EXIT!
>> PSX(553 QRI+10
PSX1 STATUS+3!, STATUS+8~, STATUS+14*, STATUS+15*, STATUS+40, RPT+5, EXIT!
PSX2 STATUS+8~
PSXIN STATUS+51, EXIT!
PSXSTAT STATUS+3!, STATUS+5~, STATUS+6*, STATUS+7, RPT+2, EXIT!
PSXTXT STATUS+3!, STATUS+5~, RPT*, RPT+1, EXIT!
PSXTXT1 STATUS+3!, STATUS+48*, RPT+7, EXIT!
PSXTXT2 STATUS+48*, RPT+8, EXIT!
PSXTXT3 STATUS+3!, STATUS+47*, RPT+9, EXIT!
QA EDIT+2*, QRI+8, EXIT1!
QFLG STATUS+4!, STATUS+8*, STATUS+12*, STATUS+40, RPT+6, EXIT+1!
QI EDIT+2*, EDIT+3*, EDIT+4, EDIT+5, QRI+2, EXIT1!
QIA QRI+2*, QRI+3*, QRI+4, QRI+5, EXIT1!
QLIM QLR*, QLR+1, QLR+2, QLR+3*, QLR+4, QLR+5, QLR+6, EXIT1!
QLR EDIT+2*, QLR, QLR+3, EXIT1!
QRI EDIT+5*, QRI, EXIT1!
QRIB QRI+5*, QRI+6, EXIT1!
QRY STATUS+3!, STATUS+9*, STATUS+10, STATUS+11*, STATUS+12, STATUS+13, STATUS+23, STATUS+40, RPT+6, EXIT!
, EXIT1!
QRYA EXIT1!
QRYINT QRI*, QRI+1, QRI+2, QRI+7, QRI+8*, QRI+9, QRI+11, EXIT1!
QT STATUS+3!, STATUS+11*, STATUS+13*, EXIT!
QTM STATUS+4!, STATUS+11*, STATUS+13*, RPT+6, EXIT+1!
RAS EDIT+6*, QLR+7, RAS, RAS+3, EXIT1!
REC EDIT+6*, RAS+8*, EXIT1!
RF STATUS+4!, STATUS+24*, STATUS+26, EXIT+1!
RFANXT STATUS+4!, STATUS+34*, STATUS+35, EXIT+1!
RFNS STATUS+4!, STATUS+24*, STATUS+25, RPT+11, EXIT+1!
RFNXT STATUS+4!, STATUS+27*, RPT+11, EXIT+1!
RFP STATUS+4!, STATUS+32*, STATUS+34, EXIT+1!
RFPNS STATUS+4!, STATUS+32*, STATUS+33, RPT+13, EXIT+1!
RFPNXT STATUS+4!, STATUS+35*, RPT+13, EXIT+1!
RNXT STATUS+4!, STATUS+26*, STATUS+27, EXIT+1!
SITE STATUS+3!, STATUS+14*, STATUS+40, RPT+5, EXIT!
SP STATUS+3!, STATUS+41*, RPT+5, EXIT!
SP1 STATUS+3!, STATUS+42*, RPT+5, EXIT!
SP2 STATUS+3!, STATUS+43*, RPT+6, EXIT!
SP3 STATUS+3!, STATUS+44*, EXIT!
SP4 STATUS+3!, STATUS+48*, RPT+11, RPT+12, RPT+13, RPT+14, EXIT!
SP5 STATUS+3!, STATUS+45*, RPT+6, EXIT!
SP6 STATUS+3!, STATUS+46*, RPT+3, EXIT!
SQRY STATUS+4!, STATUS+23*, EXIT+1!
ST STATUS+3!, EXIT!
ST1 STATUS+3!, EXIT!
ST2 STATUS+3!, EXIT!
STAT STATUS+4!, STATUS+10*, STATUS+11, STATUS+12, STATUS+13, EXIT+1!
STRT STATUS+4!, STATUS+21*, EXIT+1!
TQRY STATUS+3!, EXIT!
TRANS STATUS+4!, STATUS+14*, EXIT+1!
TRX STATUS+3!, STATUS+8*, STATUS+11*, STATUS+12*, STATUS+13*, STATUS+40*, RPT+6, EXIT!
TTRX STATUS+4!, STATUS+8*, STATUS+12*, EXIT+1!
X1 STATUS+3!, STATUS+40*, STATUS+41, EXIT!
X2 STATUS+3!, STATUS+40*, STATUS+42, EXIT!
X3 STATUS+3!, STATUS+40*, STATUS+43, EXIT!
X4 STATUS+3!, STATUS+40*, STATUS+44, EXIT!
X5 STATUS+3!, STATUS+40*, STATUS+45, EXIT!
X6 STATUS+3!, STATUS+40*, STATUS+46, EXIT!
XBAT STATUS+4!, STATUS+21*, EXIT+1!
XREC STATUS+4!, STATUS+21*, STATUS+22, EXIT+1!
XXX STATUS+3!, STATUS+19*, EXIT!
>> Y ASK1
YYY STATUS+3!, STATUS+19*, EXIT!
ZTSK STATUS+4!, STATUS+26*, STATUS+30*, STATUS+34*, STATUS+38*, EXIT+1!
ZTSK("D" STATUS+26, STATUS+30, STATUS+34, STATUS+38
ZTSK(0 STATUS+26, STATUS+30, STATUS+34, STATUS+38
ZZZ STATUS+3!, STATUS+4!, STATUS+19*, STATUS+20, EXIT!, EXIT+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All