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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: APSPORXE

Package: IHS Changes To Pharmacy

Routine: APSPORXE


Information

APSPORXE ;IHS/TUCSON/LAB - enter outside rx [ 02/20/2001 1:51 PM ];09-Oct-2008 11:25;SM

Source Information

Source file <APSPORXE.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 3 DD^%DT  ^DIE  ^DIR  
IHS Changes To Pharmacy 1 (GETDATE,GETPAT,INIT)^APSPORXA  
IHS Patient 1 KILL^AUPNPAT  
Kernel 1 ENDR^%ZISS  
Patient Care Component 1 ^APCDVDLT  
Patient Care Component Reports 1 $$START1^APCLDF  

Entry Points

Name Comments DBIA/ICR reference
DISP ;display outside rx
BEGIN ;
E ;
HDR ;write header
TEXT ;
START ;EP - called from option
EXIT ;cleanup and exit
FIND ;find all rx's on that date
D ;delete

External References

Name Field # of Occurrence
DD^%DT FIND+6, DISP+1
ENDR^%ZISS HDR+6
^APCDVDLT D+17
$$START1^APCLDF FIND+3
GETDATE^APSPORXA BEGIN+7
GETPAT^APSPORXA BEGIN+5
INIT^APSPORXA BEGIN+3
KILL^AUPNPAT EXIT+3
^DIE E+8, E+11, E+12, D+12
^DIR E+5, D+5, D+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?80-$L(X)\2,X
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?80-$L(X)\2,IOBON,X,IOBOFF
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"TYPE OF ACTION MISSING"
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"TYPE OF ACTION MISSING"
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !!,"ERROR in finding outside rx's - data fetcher error!!"
  • Line Location: FIND+4
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"No OUTSIDE Rx's recorded for ",$P(^DPT(DFN,0),U)," on "
  • Line Location: FIND+6
Function Call: WRITE
  • Prompt: Y,".",!
  • Line Location: FIND+6
Function Call: WRITE
  • Prompt: !,"Okay, not deleted."
  • Line Location: D+11
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,"Outside Rx's for ",$P(^DPT(DFN,0),U)," on "
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: Y,":",!
  • Line Location: DISP+1
Routine Call
  • DIE
  • Line Location:
    • E+8
    • E+11
    • E+12
    • D+12
Routine Call
  • DIR
  • Line Location:
    • E+5
    • D+5
    • D+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVSIT - [#9000010] Classic Fileman Calls
^AUPNVMED - [#9000010.14] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVMED - [#9000010.14] E+11, E+12, DISP+3, DISP+5
^AUPNVSIT - [#9000010] FIND+5, D+17, DISP+4
^DPT - [#2] FIND+6, DISP+1
^PSDRUG - [#50] DISP+3

Label References

Name Line Occurrences
@( BEGIN+9
D D+19
DISP E+4, D+4
E E+14
EXIT BEGIN+1, BEGIN+2, BEGIN+4, BEGIN+6, BEGIN+8, BEGIN+10
FIND E+1, D+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EXIT+2!
A EXIT+2!
APCDPAT EXIT+3!
APCDVDLT EXIT+2!, D+17*!
APCDVLDT EXIT+2!
APSPC EXIT+1!, E+3!, D+3!
APSPC( E+3*, E+8, D+3*, D+8, DISP+2
APSPDATE BEGIN+8, EXIT+1!, FIND+3, FIND+6, DISP+1
APSPDIEN EXIT+1!
APSPDRUG EXIT+1!
APSPER EXIT+1!, FIND+3*, FIND+4
APSPHIGH EXIT+1!, E+5, D+5, DISP+2*
APSPOIEN EXIT+1!
APSPOL EXIT+1!
APSPQUIT BEGIN+4, EXIT+1!
APSPRX EXIT+1!, FIND+3!, FIND+4!, FIND+6, E+2, D+2
APSPRX( FIND+5!, E+3, E+8, E+11, D+3, D+12, D+17, DISP+2, DISP+4
APSPSEL EXIT+1!, E+8*, D+8*
APSPTYPE BEGIN+1, BEGIN+2, BEGIN+9, EXIT+1!
APSPX EXIT+1!, E+8*, E+11, D+8*, D+12, D+17
APSPY EXIT+1!, DISP+2*, DISP+3
APSQDRUG E+12*!
B EXIT+2!
C EXIT+2!, E+3*, D+3*
D EXIT+2!
D0 EXIT+2!
DA EXIT+2!, E+8*!, E+11*, E+12, D+12*!
DD EXIT+2!
DFN BEGIN+6, EXIT+3!, FIND+3, FIND+6, DISP+1
DI EXIT+2!
DIC EXIT+2!
DIE EXIT+2!, E+8*!, E+11*!, E+12*!, D+12*!
DIQ EXIT+2!
DIR EXIT+2!, E+5!, D+5!, D+9!
DIR("A" E+5*, D+5*, D+9*
DIR("B" D+9*
DIR(0 E+5*, D+5*, D+9*
DIRUT EXIT+2!, E+5*, E+6, D+5*, D+6, D+9*, D+10
DIU E+8!, E+11!, E+12!, D+12!
DIV EXIT+2!, E+8!, E+11!, E+12!, D+12!
DIW EXIT+2!, E+8!, E+11!, E+12!, D+12!
DIY EXIT+2!, E+8!, E+11!, E+12!, D+12!
DQ EXIT+2!
DR EXIT+2!, E+8*!, E+11*!, E+12*!, D+12*!
DTOUT EXIT+2!
DUOUT EXIT+2!, E+5, D+5, D+9
>> IOBOFF HDR+8
>> IOBON HDR+8
IOF HDR+1, DISP+1
J HDR+2*, HDR+3!
M EXIT+2!, FIND+5*, DISP+2*, DISP+3, DISP+5
P EXIT+2!, DISP+2*, DISP+4
U FIND+5, FIND+6, E+8, E+11, D+12, D+17, DISP+1, DISP+2, DISP+3, DISP+4
, DISP+5
V EXIT+2!, FIND+5*, D+17*
X HDR+2*, HDR+3!, HDR+6*, HDR+7*, HDR+8, EXIT+2!, FIND+3*, FIND+5*, E+3*, D+3*
, DISP+2*
Y EXIT+2!, FIND+3*, FIND+6*, E+7, E+8, D+7, D+8, D+11, DISP+1*

Marked Items

Name Field # of Occurrence
$T(TEXT+J HDR+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All