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

Package Total Call Graph
CMOP 6 $$XMIT^PSXBPSUT  GRP1^PSXNOTE  ($$DSH,$$DUR,$$ECMESTAT)^PSXRPPL2  ASK^PSXRSUS  PSXSTAT^PSXRSYU  ^PSXSRST  
Outpatient Pharmacy 5 ($$LSTRFL,ECMESND)^PSOBPSU1  ($$RETRX,$$STATUS)^PSOBPSUT  $$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

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

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
SDT ;the following subroutines go through the PS(52.5 global and pull the
RESET ;resets the Queued/Printed flags to Queued and not Printed
BEGIN ;confirms CMOP processing, if Yes, checks for active site and status
ASK1
EXIT ;
PRINT ;
PSXTRANS ;
START ;initializes local variables
DFN ;
SBTECME(PSXTP,PSXDV,THRDT,PULLDT) ; - Sumitting prescriptions to EMCE (3rd Party Billing)
PRTERR ; auto error trap for prt cmop local
REC ;
ASK ;gets date for the resets
QRY ;initial message and option menu
CHECK ;
DOUBLE(RX,RFL) ; Checks if previous fill is still being worked on by CMOP

External References

Name Field # of Occurrence
^%DT ASK1, ASK1+1, ASK1+2
NOW^%DTC PRTERR+4
$$EC^%ZOSV PRTERR+1
^%ZTER PRTERR+18
UNWIND^%ZTER PRTERR+23
LOG^BPSOSL SBTECME+29
$$IEN59^BPSOSRX SBTECME+29
$$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
^DIR QRY+4, BEGIN+5, PSXTRANS+2, PRINT+2
$$LSTRFL^PSOBPSU1 SBTECME+16
ECMESND^PSOBPSU1 SBTECME+27
$$RETRX^PSOBPSUT SBTECME+20, SBTECME+23
$$STATUS^PSOBPSUT SBTECME+25, DOUBLE+7
$$TRISTA^PSOREJU3 SBTECME+31
$$FIND^PSOREJUT SBTECME+22
START^PSOSURST QRY+7
PSOUL^PSSLOCK SBTECME+35
$$XMIT^PSXBPSUT SBTECME+17
GRP1^PSXNOTE PRTERR+8
$$DSH^PSXRPPL2 SBTECME+25, SBTECME+26
$$DUR^PSXRPPL2 SBTECME+24
$$ECMESTAT^PSXRPPL2 SBTECME+23
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+24, SBTECME+25, SBTECME+26, SBTECME+31

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
^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
^PSX(550 - [#550] BEGIN+6
^PSX(550.1 - [#550.1] PRTERR+6
^TMP("PSXEPHDFN" SBTECME+10!, SBTECME+18, SBTECME+34*, SBTECME+36!
^TMP("PSXEPHNB" SBTECME+31*
^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
ASK1 ASK1+3
BEGIN QRY+5, QRY+6
CHECK REC+1
DFN SDT+2
EXIT QRY+4, BEGIN+5, BEGIN+6, ASK1, ASK1+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+35
>> 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!
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!
>> 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+25, SBTECME+26, EXIT+1!
REPLY QRY+4*, QRY+5, QRY+6, QRY+7, QRY+8!, EXIT+1!
RESP SBTECME+7~, SBTECME+27, SBTECME+29, SBTECME+31, SBTECME+33
RFL SBTECME+7~, SBTECME+16*, SBTECME+20, SBTECME+21, SBTECME+22, SBTECME+23, SBTECME+24, SBTECME+25, SBTECME+26, SBTECME+27
, SBTECME+29, SBTECME+31, DOUBLE~, DOUBLE+6, DOUBLE+7, DOUBLE+10
RX SBTECME+7~, SBTECME+15*, SBTECME+16, SBTECME+20, SBTECME+21, SBTECME+22, SBTECME+23, SBTECME+24, SBTECME+25, SBTECME+27
, SBTECME+29, SBTECME+31, 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+33*, SBTECME+37
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, ASK1, ASK1+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+34
>> XMSUB PRTERR+7*
>> XMTEXT PRTERR+10*
>> XXERR PRTERR+1*, PRTERR+5, PRTERR+14
XXF CHECK+2*, CHECK+7!
Y QRY+4!, BEGIN+5!, ASK1, ASK1+1, ASK1+2, PSXTRANS+2!, PRINT+2!, EXIT+1!
ZDIV REC+2!, CHECK+3*

Marked Items

Name Field # of Occurrence
$T( SBTECME+29
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