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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PSXRPPL1

Package: CMOP

Routine: PSXRPPL1


Information

PSXRPPL1 ;BIR/WPB - Resets Suspense to Print/Transmit ;10/02/97

Source Information

Source file <PSXRPPL1.m>

Call Graph

Call Graph

Call Graph Total: 26

Package Total Call Graph
CMOP 6 $$XMIT^PSXBPSUT  GRP1^PSXNOTE  ($$DSH,$$DUR,$$ECMESTAT)^PSXRPPL2  ASK^PSXRSUS  PSXSTAT^PSXRSYU  ^PSXSRST  
Outpatient Pharmacy 6 ($$LSTRFL,ECMESND)^PSOBPSU1  ($$RETRX,$$STATUS)^PSOBPSUT  $$TRIC^PSOREJP1  $$TRISTA^PSOREJU3  $$FIND^PSOREJUT  START^PSOSURST  
VA FileMan 5 ^%DT  NOW^%DTC  ^DIE  $$GET1^DIQ  ^DIR  
Kernel 4 $$EC^%ZOSV  (,UNWIND)^%ZTER  $$FMADD^XLFDT  $$PATCH^XPDUTL  
E Claims Management Engine 3 LOG^BPSOSL  $$IEN59^BPSOSRX  ($$CMOPON,$$ECMEON)^BPSUTIL  
MailMan 1 ^XMD  
Pharmacy Data Management 1 PSOUL^PSSLOCK  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
CMOP 2 PSXRPPL  PSXRPPL2  
Outpatient Pharmacy 1 PSOSURST  

Entry Points

Name Comments DBIA/ICR reference
START ;initializes local variables
QRY ;initial message and option menu
BEGIN ;confirms CMOP processing, if Yes, checks for active site and status
ASK ;gets date for the resets
ASK1
PSXTRANS ;
PRINT ;
SDT ;the following subroutines go through the PS(52.5 global and pull the
DFN ;
REC ;
CHECK ;
RESET ;resets the Queued/Printed flags to Queued and not Printed
PRTERR ; auto error trap for prt cmop local
SBTECME(PSXTP,PSXDV,THRDT,PULLDT) ;
DOUBLE(RX,RFL) ; Checks if previous fill is still being worked on by CMOP
EXIT ;
TRICVANB(PSXRX,PSXRFL) ; Check for TRI/CVA non-billable w/closed eT/eC.
; Return: 1 if this is a TRICARE or CHAMPVA non-billable Rx
; which already has a closed eT/eC reject for this fill.
; 0 if other.

External References

Name Field # of Occurrence
^%DT ASK1ASK1+1, ASK1+2
NOW^%DTC PRTERR+4
$$EC^%ZOSV PRTERR+1
^%ZTER PRTERR+18
UNWIND^%ZTER PRTERR+23
LOG^BPSOSL SBTECME+28, SBTECME+39
$$IEN59^BPSOSRX SBTECME+28, SBTECME+39
$$CMOPON^BPSUTIL SBTECME+9
$$ECMEON^BPSUTIL SBTECME+9
^DIE RESET+2, PRTERR+22
$$GET1^DIQ PRTERR+2, PRTERR+7, PRTERR+13, SBTECME+15, SBTECME+16, DOUBLE+10, DOUBLE+11, TRICVANB+22, TRICVANB+31
^DIR QRY+4, BEGIN+5, PSXTRANS+2, PRINT+2
$$LSTRFL^PSOBPSU1 SBTECME+16
ECMESND^PSOBPSU1 SBTECME+37
$$RETRX^PSOBPSUT SBTECME+20, SBTECME+30
$$STATUS^PSOBPSUT SBTECME+32, DOUBLE+7
$$TRIC^PSOREJP1 TRICVANB+9
$$TRISTA^PSOREJU3 SBTECME+41
$$FIND^PSOREJUT SBTECME+22
START^PSOSURST QRY+7
PSOUL^PSSLOCK SBTECME+45
$$XMIT^PSXBPSUT SBTECME+17
GRP1^PSXNOTE PRTERR+8
$$DSH^PSXRPPL2 SBTECME+32, SBTECME+33
$$DUR^PSXRPPL2 SBTECME+31
$$ECMESTAT^PSXRPPL2 SBTECME+30
ASK^PSXRSUS PSXTRANS+3, PRINT+3
PSXSTAT^PSXRSYU ASK1+8, PSXTRANS+3, PRINT+3
^PSXSRST QRY+5, QRY+6
$$FMADD^XLFDT PRTERR+5
^XMD PRTERR+19
$$PATCH^XPDUTL SBTECME+19, SBTECME+31, SBTECME+32, SBTECME+33, SBTECME+41

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You are not authorized to use this option!"
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,"You are not authorized to use this option!"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !
  • Line Location: QRY+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !,"There is another job in process, please try again later."
  • Line Location: BEGIN+6
Function Call: WRITE
  • Prompt: !!,?10,$S($G(SWITCH)=1:"RESET and TRANSMIT CMOP DATA",$G(SWITCH)=2:"RESET and REPRINT CMOP LABELS",1:""),!!!,"**** Date Selection ****",!!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK1+2
Function Call: WRITE
  • Prompt: !,"Begin Date must be before Ending Date!"
  • Line Location: ASK1+3
Function Call: WRITE
  • Prompt: !!,$S(SWITCH=1:"Nothing to Transmit.",SWITCH=2:"Nothing to Reprint.",1:0)
  • Line Location: ASK1+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: PSXTRANS+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+1
Routine Call
  • DIE
  • Line Location:
    • RESET+2
    • PRTERR+22
Routine Call
  • DIR
  • Line Location:
    • QRY+4
    • BEGIN+5
    • PSXTRANS+2
    • PRINT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
52.01 GET1^DIQ
52.25 GET1^DIQ
^PS(52.5 - [#52.5] Classic Fileman Calls,  GET1^DIQ
^PSX(550.2 - [#550.2] Classic Fileman Calls,  GET1^DIQ
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.5 - [#52.5] ASK1+4, SDT+2, DFN+1, REC+1, CHECK+1, RESET+1, RESET+2, RESET+3!, SBTECME+12, SBTECME+13
, SBTECME+14
^PSRX - [#52] CHECK+2, CHECK+3, CHECK+4, CHECK+5, RESET+3*, DOUBLE+6, DOUBLE+9, TRICVANB+21
^PSX(550 - [#550] BEGIN+6
^PSX(550.1 - [#550.1] PRTERR+6
^TMP("PSXEPHDFN" SBTECME+10!, SBTECME+18, SBTECME+44*, SBTECME+46!
^TMP("PSXEPHNB" SBTECME+41*
^TMP($J START+4!
^XTMP("PSXERR " PRTERR+5*, PRTERR+6*
^XUSEC("PSX XMIT" START+2
^XUSEC("PSXCMOPMGR" START+1

Label References

Name Line Occurrences
$$DOUBLE SBTECME+21
$$TRICVANB SBTECME+27
ASK1 ASK1+3
BEGIN QRY+5, QRY+6
CHECK REC+1
DFN SDT+2
EXIT QRY+4, BEGIN+5, BEGIN+6, ASK1ASK1+1, ASK1+4, ASK1+9
PRINT ASK1+7
PSXTRANS ASK1+6
REC DFN+1
RESET CHECK+6
SDT ASK1+5

Naked Globals

Name Field # of Occurrence
^(0 ASK1+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRTERR+4
%DT ASK1*!, ASK1+1*!, ASK1+2*!
%DT("A" ASK1*!, ASK1+1*!, ASK1+2*!
ANSWER EXIT+1!
BEGDATE ASK+1!
CMP DOUBLE+4~, DOUBLE+8*, DOUBLE+9*, DOUBLE+10, DOUBLE+11
DA RESET+2*!, PRTERR+21~*
DFN SDT+2*, DFN+1*, REC+1, RESET+3, EXIT+1!
DIE RESET+2*!, PRTERR+21~*
DIR QRY+4!, BEGIN+5!, PSXTRANS+2!, PRINT+2!, EXIT+2!
DIR("?" QRY+4*, BEGIN+4*, BEGIN+5*, PSXTRANS+2*, PRINT+2*
DIR("??" QRY+4*
DIR("A" QRY+2*, QRY+3*, BEGIN+4*, PSXTRANS+2*, PRINT+2*
DIR("B" BEGIN+4*, PSXTRANS+2*, PRINT+2*
DIR(0 QRY+2*, BEGIN+4*, PSXTRANS+2*, PRINT+2*
DIROUT EXIT+2!
DIRUT QRY+4, BEGIN+5, PSXTRANS+2, PRINT+2, EXIT+2!
DOUBLE DOUBLE+4~, DOUBLE+8*, DOUBLE+9, DOUBLE+12*, DOUBLE+13
DR RESET+2*!, PRTERR+21~*
DT PRTERR+5, SBTECME+20
DTIME RESET+1
DTOUT EXIT+2!
>> DTTM PRTERR+4*, PRTERR+5, PRTERR+6, PRTERR+17
DUOUT EXIT+2!
DUZ START+1, START+2
ENDDATE ASK+1!
GONE CHECK+4*, CHECK+5*, CHECK+6, CHECK+7!
PRINT CHECK+1*, CHECK+6, EXIT+1!
>> PRTDT ASK1*, ASK1+1*, ASK1+3, ASK1+4, SDT+2
PSOLRX SBTECME+7~, SBTECME+15*, SBTECME+45
>> PSOSITE CHECK+3, PRTERR+2
>> PSXBAT PRTERR+7, PRTERR+13, PRTERR+20, PRTERR+21
>> PSXCS PRTERR+11, PRTERR+13
PSXDAYS EXIT+1!
>> PSXDIVNM PRTERR+2*, PRTERR+7, PRTERR+12
PSXDTRG ASK1+2*, ASK1+3, ASK1+4, SDT+2, EXIT+1!
PSXDV SBTECME~, SBTECME+9, SBTECME+12, SBTECME+13, SBTECME+14
>> PSXERFLG ASK1+5*
PSXFLAG QRY+5*, QRY+6*, EXIT+1!
>> PSXFLG QRY+7*
PSXPTR CHECK+1*, CHECK+2, CHECK+3, CHECK+4, CHECK+5, RESET+3, EXIT+1!
PSXQUIT TRICVANB+5~, TRICVANB+19*, TRICVANB+21, TRICVANB+22*
PSXREJ TRICVANB+5~, TRICVANB+20*, TRICVANB+21*, TRICVANB+22, TRICVANB+27, TRICVANB+31
PSXREJCODE TRICVANB+5~, TRICVANB+14*, TRICVANB+15*, TRICVANB+21
PSXRFL TRICVANB~, TRICVANB+9, TRICVANB+22
PSXRX TRICVANB~, TRICVANB+9, TRICVANB+21, TRICVANB+22, TRICVANB+31
PSXSTAT ASK1+8*, PSXTRANS+3*, PRINT+3*, EXIT+1!
>> PSXSYS BEGIN+6
PSXTP SBTECME~, SBTECME+12, SBTECME+13, SBTECME+14
PSXTRANS QRY+5*, QRY+6*, EXIT+1!
PSXTRICVA TRICVANB+5~, TRICVANB+9*, TRICVANB+10, TRICVANB+14
>> PSXVER QRY+4, QRY+5, QRY+6, RESET+3
PULLDT SBTECME~, SBTECME+12
REC DFN+1*, REC+1*, CHECK+1, RESET+1, RESET+2, RESET+3, SBTECME+7~, SBTECME+13*, SBTECME+14*, SBTECME+15
, SBTECME+16, SBTECME+17, SBTECME+32, SBTECME+33, EXIT+1!
REPLY QRY+4*, QRY+5, QRY+6, QRY+7, QRY+8!, EXIT+1!
RESP SBTECME+7~, SBTECME+37, SBTECME+39, SBTECME+41, SBTECME+43
RFL SBTECME+7~, SBTECME+16*, SBTECME+20, SBTECME+21, SBTECME+22, SBTECME+27, SBTECME+28, SBTECME+30, SBTECME+31, SBTECME+32
, SBTECME+33, SBTECME+37, SBTECME+39, SBTECME+41, DOUBLE~, DOUBLE+6, DOUBLE+7, DOUBLE+10
RX SBTECME+7~, SBTECME+15*, SBTECME+16, SBTECME+20, SBTECME+21, SBTECME+22, SBTECME+27, SBTECME+28, SBTECME+30, SBTECME+31
, SBTECME+32, SBTECME+37, SBTECME+39, SBTECME+41, DOUBLE~, DOUBLE+6, DOUBLE+7, DOUBLE+9, DOUBLE+10, DOUBLE+11
RXF CHECK+2*, CHECK+3, CHECK+4, CHECK+5, CHECK+7!
SBTECME SBTECME+7~, SBTECME+11*, SBTECME+43*, SBTECME+47
SDT SDT+2*, DFN+1, REC+1, RESET+3, SBTECME+7~, SBTECME+11*, SBTECME+12*, SBTECME+13, SBTECME+14, SBTECME+18
, SBTECME+20, EXIT+1!
STAT CHECK+1*, CHECK+6, EXIT+1!
STATUS BEGIN+6*, EXIT+1!
STS DOUBLE+4~, DOUBLE+11*, DOUBLE+12
SWITCH START+3*, QRY+5*, QRY+6*, BEGIN+5, ASK+1, ASK1ASK1+1, ASK1+4, ASK1+6, ASK1+7
EXIT+1!
>> TEXT(1 PRTERR+11*
>> TEXT(2 PRTERR+12*
>> TEXT(3 PRTERR+13*
>> TEXT(4 PRTERR+14*
>> TEXT(5 PRTERR+15*
>> TEXT(6 PRTERR+16*
>> TEXT(7 PRTERR+17*
THRDT SBTECME~, SBTECME+18
U CHECK+1, CHECK+3, CHECK+4, CHECK+5, RESET+3, PRTERR+5
X QRY+4!, PRTERR+5*, EXIT+1!
X1 EXIT+1!
X2 EXIT+1!
XDFN SBTECME+7~, SBTECME+12*, SBTECME+13*, SBTECME+14, SBTECME+18, SBTECME+44
>> XMSUB PRTERR+7*
>> XMTEXT PRTERR+10*
>> XXERR PRTERR+1*, PRTERR+5, PRTERR+14
XXF CHECK+2*, CHECK+7!
Y QRY+4!, BEGIN+5!, ASK1ASK1+1, ASK1+2, PSXTRANS+2!, PRINT+2!, EXIT+1!
ZDIV REC+2!, CHECK+3*

Marked Items

Name Field # of Occurrence
$T( SBTECME+28, SBTECME+39
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All