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

Package: CMOP

Routine: PSXSRST


Information

PSXSRST ;BIR/WPB-Reset Suspense and Print Again ;30 JAN 1998 12:57 PM

Source Information

Source file <PSXSRST.m>

Entry Points

Name Comments DBIA/ICR reference
START
BEG
TRANS
TRANS1
LOCK52
LOCK525
END
LIST
HEAD
HEADONE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Select a date range to see all CMOP batches that have printed from suspense",!,"within that date range."
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !!,"Gathering batches, please wait...",!
  • Line Location: BEG+2
Function Call: WRITE
  • Prompt: $C(7),!!,"There are no CMOP printed batches found for that date range!",!
  • Line Location: BEG+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEG+6
Function Call: WRITE
  • Prompt: !?1,"BATCH",?10,"PRINTED ON:",?40,"PRINTED BY:",?56,$E($P($G(^PS(59,PSOSITE,0)),"^"),1,23),!
  • Line Location: BEG+6
Function Call: WRITE
  • Prompt: !?1,"BATCH",?10,"PRINTED ON:",?40,"PRINTED BY:",?56,$E($P($G(^PS(59,PSOSITE,0)),"^"),1,23),!
  • Line Location: BEG+6
Function Call: WRITE
  • Prompt: !?2,AAA,?10,PSXDT,?40,PSXU
  • Line Location: BEG+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEG+9
Function Call: WRITE
  • Prompt: !?1,"BATCH",?10,"PRINTED ON:",?40,"PRINTED BY:",?56,$E($P($G(^PS(59,PSOSITE,0)),"^"),1,23),!
  • Line Location: BEG+9
Function Call: WRITE
  • Prompt: !?1,"BATCH",?10,"PRINTED ON:",?40,"PRINTED BY:",?56,$E($P($G(^PS(59,PSOSITE,0)),"^"),1,23),!
  • Line Location: BEG+9
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+11
Function Call: WRITE
  • Prompt: !!?3,$S($G(PSXFLAG)=1:"Nothing to Reset!",1:"Nothing queued to print!"),!
  • Line Location: BEG+12
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+19
Function Call: WRITE
  • Prompt: !!?3,$S($G(PSXFLAG)=1:"Nothing to Reset!",1:"Nothing queued to print!"),!
  • Line Location: BEG+20
Function Call: WRITE
  • Prompt: !!,"Nothing Reset for Transmission!",!
  • Line Location: TRANS+0
Function Call: WRITE
  • Prompt: !,"Next auto transmission scheduled for "_$G(ATM)
  • Line Location: TRANS+7
Function Call: WRITE
  • Prompt: !,"To transmit now use the Print from Suspense option, Initiate a CMOP Transmission"
  • Line Location: TRANS+8
Function Call: WRITE
  • Prompt: !,"Batch ",$G(BCT)," Reset by ",$P(^VA(200,DUZ,0),"^")," on ",$G(RSDT)
  • Line Location: LOCK525+6
Function Call: WRITE
  • Prompt: !,"END OF LIST"
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,"RX #",?20,"PATIENT NAME",?60,"BATCH ",LLL,!
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,"RX #",?20,"PATIENT NAME",?60,"BATCH ",LLL,!
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADONE+1
Function Call: WRITE
  • Prompt: !,"RX #",?20,"PATIENT NAME",?60,"BATCH ",LLL,!
  • Line Location: HEADONE+1
Function Call: WRITE
  • Prompt: !,"RX #",?20,"PATIENT NAME",?60,"BATCH ",LLL,!
  • Line Location: HEADONE+1

FileMan Files Accessed Via FileMan Db Call

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