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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSNSTCK

Package: National Drug File

Routine: PSNSTCK


Information

PSNSTCK ;BIR/CCH&WRT-size and type check ; 02/01/99 7:29

Source Information

Source file <PSNSTCK.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
National Drug File 3 $$PSPT^PSNAPIS  (ASK1,SZ1)^PSNHELP  (PKSIZE,PKTYPE)^PSNOUT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
National Drug File 2 PSNCOMP  PSNHIT  

Entry Points

Name Comments DBIA/ICR reference
PACKAGE
SIZE ; Pick Size & Type Combo
ASK
ARR0
ARR1

External References

Name Field # of Occurrence
$$PSPT^PSNAPIS PACKAGE+1
ASK1^PSNHELP ASK+7
SZ1^PSNHELP SIZE+2
PKSIZE^PSNOUT ASK
PKTYPE^PSNOUT ASK

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !?10
  • Prompt: "Enter Package Size & Type Combination: "
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: SIZE+1
Function Call: WRITE
  • Prompt: !,"Invalid Answer"
  • Line Location: SIZE+4
Function Call: WRITE
  • Prompt: !!,"Local drug ",$P(^PSDRUG(PSNB,0),"^",1),!,"matches ",?11,PSNFORM,!,"PACKAGE SIZE: ",PSNSZE,!,"PACKAGE TYPE: ",PSNTPE
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"< Enter ""Y"" for yes >"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"< Enter ""N"" for no >"
  • Line Location: ASK+2
Function Call: READ
  • Prompt: "OK? : "
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: ?50
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: ?60,"Drug not matched"
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,"CHOOSE FROM: "
  • Line Location: ARR0+0
Function Call: WRITE
  • Prompt: !?2,PSNARY," ",PP," ",QQ
  • Line Location: ARR1+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.608 - [#50.608] PSNSTCK+5, SIZE+3
^PS(50.609 - [#50.609] PSNSTCK+5, SIZE+3
^PSDRUG - [#50] ASK
^PSNDF(50.68 - [#50.68] PACKAGE
^TMP($J PSNSTCK+5!, PACKAGE+1*, SIZE+4, SIZE+5, ARR0, ARR1*

Label References

Name Line Occurrences
@( ASK+5
ARR0 PSNSTCK+5
ARR1 ARR0
ASK SIZE+3, ASK+7
PACKAGE PSNSTCK+5
SIZE PSNSTCK+5, SIZE+2, SIZE+4, SIZE+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS SIZE+1*, SIZE+2!, SIZE+3, SIZE+4, SIZE+5, ASK+4*, ASK+5, ASK+6, ASK+7
DDD PSNSTCK+5*, PSNSTCK+6!, PACKAGE+1
DTIME SIZE+1, ASK+4
EEE PSNSTCK+5*, PSNSTCK+6!, PACKAGE+1
FFF PSNSTCK+6!, SIZE+5*
GGG PSNSTCK+6!, SIZE+5*
>> K PACKAGE+1*
LIST PSNSTCK+5!, PACKAGE+1
LIST( PACKAGE+1
>> PP ARR0*, ARR1
>> PSNARY PSNSTCK+5*, ARR1*
>> PSNB ASK
>> PSNFL SIZE+1*, ASK+4*, ASK+6*
>> PSNFNM PACKAGE, PACKAGE+1
>> PSNFORM PACKAGE*, ASK
>> PSNSIZE SIZE+3*, SIZE+5*
>> PSNSZ SIZE+5*
>> PSNSZE ASK
>> PSNTPE ASK
>> PSNTYP SIZE+5*
>> PSNTYPE SIZE+3*, SIZE+5*
>> PSNVAR ASK+5
>> PTPS PACKAGE+1*
>> QQ ARR0*, ARR1
>> RR ARR0*, ARR1
>> ST PACKAGE+1*
>> X PACKAGE+1*
>> XX PACKAGE+1*
>> Z9 ASK+3, ASK+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All