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 |  Local Variables |  All
Print Page as PDF
Routine: PSOARCF4

Package: Outpatient Pharmacy

Routine: PSOARCF4


Information

PSOARCF4 ;BIR/SAB/LGH/LC-ARCHIVING SAVE OPTION ;07/07/92

Source Information

Source file <PSOARCF4.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Outpatient Pharmacy 6 EXIT^PSOARCCO  ^PSOARCCV  (,TAPE1)^PSOARCF5  TAPE^PSOARCF6  ^PSOARCTG  ^PSOARX  
Kernel 2 ^%ZIS  ^%ZISC  
VA Fileman 2 ^DIE  ^DIR  
Pharmacy Data Management 1 (PSOL,PSOUL)^PSSLOCK  
Registration 1 KVA^VADPT  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Outpatient Pharmacy 4 PSO ARCHIVE FILE SAVE  PSOARC  PSOARCF2  PSOARCF3  

Entry Points

Name Comments DBIA/ICR reference
END1
TAP0 ; PRINTS INDEX TO FILE
AC
PDVQ
GAT
HD1 ;Invoked from ^PSOARCF3,PSOARCF2
PDV
TAP1 ;PRINT "NAME-RX LIST"
PDV1
EN01
FILE1
DEVICE
ARC
HDT
EX
EX1
RST ;Invoked from ^PSOARCCO
ARCRX ;Mark Rx as archived in 52 by setting field 36
TDV
HD
RX

External References

Name Field # of Occurrence
^%ZIS PDV+1, TDV, TDV+1
^%ZISC TDV+2, DEVICE+1
^DIE ARCRX+3
^DIR AC+2, EN01, PDV1+1, END1, PDVQ
EXIT^PSOARCCO END1, DEVICE+1
^PSOARCCV RX+1
^PSOARCF5 FILE1+3
TAPE1^PSOARCF5 ARC
TAPE^PSOARCF6 RX+1
^PSOARCTG ARC
^PSOARX RX
PSOL^PSSLOCK ARCRX+2
PSOUL^PSSLOCK ARCRX+3
KVA^VADPT EX1+1

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 HFS device"
  • Line Location: TDV+2
Function Call: WRITE
  • Prompt: "!"
  • 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
Routine Call
  • DIE
  • Line Location:
    • ARCRX+3
Routine Call
  • DIR
  • Line Location:
    • AC+2
    • EN01
    • PDV1+1
    • END1
    • PDVQ
Routine Call
  • %ZIS
  • Line Location:
    • PDV+1
    • TDV
    • TDV+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DILOCKTM" AC
^DPT("SSN" ARC
^PSOARC - [#52.8] AC, EX1+2
^PSOARC("B" RST+1, FILE1, ARC, GAT+1
^PSOARC(0 AC+1, AC+2, EX
^PSRX - [#52] RX, GAT+4, TAP1+1, TAP1+2
^TMP($J GAT+1!*, GAT+4, TAP0+1

Label References

Name Line Occurrences
ARC FILE1
ARCRX ARC
EN01 END1
END1 PDV+2, PDV1
EX AC+1
EX1 AC+2, EN01, PDV+1, PDV1, TDV+1
GAT RST+1
HD RST+1, GAT+3
HD1 RX
HDT RST+1
PDVQ PDV+2
RX ARC
TAP0 GAT+5
TAP1 TAP0+1
TDV EN01, TDV+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%MT EX1!
%ZIS PDV+1!*, TDV!, TDV+1!
%ZIS("A" PDV+1*, TDV*!
%ZIS("B" TDV*
%ZIS("HFSMODE" TDV*
DA FILE1+2!, ARC*, RX*, ARCRX+1~, ARCRX+2*, EX1!
DFN FILE1+2!, EX1!
DIE ARCRX+1~, ARCRX+2*, ARCRX+3!
DIR AC+2!, EN01!, PDV1+1!, END1!, PDVQ!, EX1!
DIR("?" PDV1+1*
DIR("A" AC+2*, EN01*, PDV1+1*, END1*, PDVQ*
DIR("B" AC+2*, EN01*
DIR(0 AC+2*, EN01*, PDV1+1*, END1*, PDVQ*
DIRUT AC+2, EN01, END1, PDVQ, EX1!
DR ARCRX+1~, ARCRX+2*
DT HD, HD1+1
DTOUT PDV1, EX1!
DUOUT PDV1, EX1!
I FILE1+2!, EX1!
I1 FILE1+2!, EX1!
IO PDV+2, TDV+3
IO(0 RX
>> IOBS TDV+3
IOF PDV+2, TDV+3
IOM PDV+2, TDV+3
ION AC+1
IOP PDV+1!*, TDV+1*!
>> IOPAR TDV+3
IOSL PDV+2
IOST PDV+2
>> IOT TDV+2, TDV+3
J FILE1*, EX1!
JJ ARC*, EX1!
KK GAT+1*, GAT+4*, TAP0+1*, EX1!
LL GAT*, GAT+1*, GAT+3, EX1!
LMI FILE1+2!, EX1!
NM GAT*, GAT+3, GAT+4, TAP0+1, EX1!
PG AC+1*, HD*, EX1!
POP PDV+1!, TDV+1!
PSOABS TDV+3*, FILE1+2!, EX1!
PSOACDS PDV1+1*, HD1+1, EX1!
PSOACEOT EX1!
PSOACPF PDV!, PDV+2*, HD, HD1+1, EX1!
PSOACPL PDV!, PDV+2*, RX, GAT+3, EX1!
PSOACPM PDV!, PDV+2*, GAT+4, EX1!
PSOACRS AC+1*, EX1!
PSOAEOT FILE1+2!
PSOAF TDV+3*, EX1!
PSOAIO TDV+3*, EX1+1!
PSOAIOT TDV+3*, EX1+1!
PSOAM TDV+3*, EX1+1!
PSOAP PDV!, PDV+2*, PDV1, RST+1, RX, GAT+2, GAT+3, HD, EX1+1!
PSOAPAR TDV+3*, EX1+1!
PSOAPG AC+1*, HD1+1*, EX1!
PSOARCDA ARCRX+2*!
PSOARCRX ARCRX+2*!, ARCRX+3!
PSOAT TDV+3*, RST+1, ARC, RX+1, GAT+5, HDT, TAP0+1, TAP0+2, TAP1+2, EX1+1!
PSOATNM PDV!, PDV+2*, TDV+3*, EX1+1!
PSOION AC+1*, PDV+1!, TDV+1, EX1+1!
PSOK RST+1*, FILE1*, FILE1+2!, EX1+1!
PSOMSG ARCRX+2!, ARCRX+3!
RX0 FILE1+2!, RX*, ARCRX+2, EX1+1!
SS GAT*, TAP0+1, EX1+1!
SSN RST+1*, FILE1*, ARC, GAT, GAT+1, GAT+3, EX1+1!
STOP PDV*, PDV+2, END1*, PDVQ*, EX1+1!
TA FILE1+2!, EX1+1!
VAR1 FILE1+2!, TAP0+1*, TAP0+2, TAP1+1*, TAP1+2*, EX1+1!
X PDV1+1!, EX1+1!
XAR1 FILE1+2!, TAP0+3*, EX1+1!
XTYPE FILE1+2!, EX1+1!
Y AC+2, EN01, END1, PDVQ, EX1+1!
ZI RST+1*, FILE1*, ARC, GAT, GAT+1, EX1+1!
ZII ARC*, RX, GAT*, GAT+1*, GAT+3*, GAT+4*, TAP0+1*, TAP1+1, TAP1+2, EX1+1!
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 |  Local Variables |  All