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

Package: Outpatient Pharmacy

Routine: PSOARCSV


Information

PSOARCSV ;BIR/SAB/LGH-archiving save option ;07/07/92

Source Information

Source file <PSOARCSV.m>

Entry Points

Name Comments DBIA/ICR reference
AC
EN01
PDV
PDV1
TDV
RST ;Invoked from ^PSOARCCO
FILE1
END1
PDVQ
ARC
RX
ARCRX ;Mark Rx as archived in 52 by setting field 36
GAT
HD
HD1 ;Invoked from ^PSOARCRR,PSOARCR1
HDT
DEVICE
TAP0 ;prints index to tape
TAP1 ;print "name-rx list"
EX
EX1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,$C(7),"Archiving is currently in progress on another terminal!...",!!!
  • Line Location: AC+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: TDV+0
Function Call: WRITE
  • Prompt: !,"Must select a MAGTAPE device"
  • Line Location: TDV+2
Function Call: WRITE
  • Prompt: "!",@%MT("WEL")
  • Line Location: FILE1+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: RX+0
Function Call: WRITE
  • Prompt: !,NM_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_") - "
  • Line Location: GAT+3
Function Call: WRITE
  • Prompt: !?($L(NM)+3)
  • Condition for execution: ($X+$L(ZII)+1)>(PSOACPM-5)
  • Line Location: GAT+4
Function Call: WRITE
  • Prompt: $P(^PSRX(ZII,0),"^"),","
  • Line Location: GAT+4
Function Call: WRITE
  • Prompt: @PSOACPF,!!?58,"Archiving Index",?120,"Page "_PG,!,?62,$E(DT,4,5),"/",$E(DT,6,7),"/",$E(DT,2,3),!!
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: @PSOACPF,?(66-($L(PSOACDS)\2)),PSOACDS,?112,$E(DT,4,5),"/",$E(DT,6,7),"/",$E(DT,2,3),?122,"Page "_PSOAPG
  • Line Location: HD1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HD1+1
Function Call: WRITE
  • Prompt: "&^NEW"
  • Line Location: HDT+0
Function Call: WRITE
  • Prompt: !!,?10,"Device not available, try again later!"
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: VAR1,!
  • Line Location: TAP0+2
Function Call: WRITE
  • Prompt: VAR1,!
  • Line Location: TAP1+2
Function Call: WRITE
  • Prompt: !!,"THE "_$P(^PSOARC(0),"^",1)_" file is empty. Archiving will not be done."
  • Line Location: EX+0

FileMan Files Accessed Via FileMan Db Call

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