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

Package: CMOP

Routine: PSXRPPL1


Information

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

Source Information

Source file <PSXRPPL1.m>

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.
  • ICR #7351
    • Status: Active
    • Usage: Controlled Subscription

    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

    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
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call