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

Package: IHS Changes To Pharmacy

Routine: APSQDISP


Information

APSQDISP ;IHS/ASDS/ENM/POC - LOOK UP

Source Information

Source file <APSQDISP.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Registration 2 TERM^VALM0  ($$SETSTR,FULL)^VALM1  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
FILE2 ;FIX IDX
SUB1 ;S APSQSEQ=APSQSEQ+1
LIST ;LIST ENTRIES SELECTED
HANG ;
BACK ;GO BACK
EN1 ;EP
EN2 ;LOOK UP [ 12/06/98 7:08 PM ]
FILE ;
SWT ;SWITH APSQKILL BACK AND FORTH BETWEEN 1 AND 0
SELECT ;SELECT ENTITIES

External References

Name Field # of Occurrence
^DIR SELECT+8, HANG+1
TERM^VALM0 BACK+1
$$SETSTR^VALM1 EN1+4, EN1+8, EN1+12, SUB1+2, SUB1+3, SUB1+8, SUB1+9, SUB1+13, SUB1+14
FULL^VALM1 SELECT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Nothing selected."
  • Line Location: SELECT+2
Function Call: WRITE
  • Prompt: !,"NO SELECTIONS-BYE"
  • Line Location: SELECT+9
Function Call: WRITE
  • Prompt: !,"NO SUCH CRITTER ",APSQGOT," SO ITEM DELETED!"
  • Line Location: SELECT+13
Function Call: WRITE
  • Prompt: !,$S($D(APSQARR("GOT")):"",1:"NO ")," ENTRIES SELECTED:"
  • Line Location: LIST+1
Routine Call
  • DIR
  • Line Location:
    • SELECT+8
    • HANG+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APSQFAST( EN1+7, EN1+10, EN1+11, SUB1+7, SUB1+11, SUB1+12, LIST+4
^APSQFAST("S" EN1+3, EN1+5, EN2+3, SUB1+5
^PSDRUG - [#50] EN1+11, SUB1+12

Label References

Name Line Occurrences
BACK SELECT+16
EN2 SELECT+16
FILE EN2+7, EN2+8
HANG SELECT+16
LIST SELECT+16
SUB1 EN2+4
SWT EN2+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APSQ("GOT" SUB1+1, SELECT+15*
APSQARR EN1+1!, EN2+1!
APSQARR( EN1+13*, FILE+3*
APSQARR("DIR" SWT+3*, SELECT+4, SELECT+5, SELECT+12
APSQARR("GOT" SELECT+15*, LIST+1, LIST+2, LIST+3
APSQARR("IDX" EN1+15*, FILE2+5*
APSQARR("TMP" FILE+7*, FILE+9*, FILE2+1, FILE2+5
>> APSQBEG SELECT+5*, SELECT+7
>> APSQBM FILE2+4*, FILE2+5
>> APSQCNT EN1+2*, EN1+14*, EN1+15, EN2+2*, FILE+1*, FILE+3, FILE+7, FILE+9
>> APSQEND SELECT+5*, SELECT+7
>> APSQGOT SELECT+11*, SELECT+12, SELECT+13, SELECT+15
>> APSQGOTT SELECT+12*, SELECT+13, SELECT+15
>> APSQIEN EN1+5*, EN1+6, EN1+7, EN1+10, EN1+11, EN1+15, SUB1+5*, SUB1+6, SUB1+7, SUB1+11
, SUB1+12, SWT+3
>> APSQKILL EN2+2*, EN2+7, EN2+8, SUB1+2, SUB1+3, SUB1+8, SUB1+9, SUB1+13, SUB1+14, SWT+4*
, SWT+5*
>> APSQLAST EN2+2*, EN2+8*, FILE+7*
>> APSQLIS1 LIST+3*, LIST+4
>> APSQLIST LIST+2*, LIST+3
>> APSQLKUP EN1+2*, EN1+4*, EN1+8*, EN1+12*, EN1+13, EN1+16*, EN2+2*, SUB1+2*, SUB1+3*, SUB1+8*
, SUB1+9*, SUB1+13*, SUB1+14*, FILE+3, FILE+4*
>> APSQNAME EN1+7*, EN1+8, SUB1+7*, SUB1+8, SUB1+9
>> APSQSEC EN1+10*, EN1+11*, EN1+12, SUB1+11*, SUB1+12*, SUB1+13, SUB1+14
>> APSQSEQ EN1+3*, EN1+4, EN1+5, EN1+13, EN1+15, EN2+3*, SUB1+1, SUB1+2, SUB1+3, SUB1+5
, SWT+3
APSQSTAR SUB1+1*, SUB1+2, SUB1+3, SUB1+4!
>> APSQY SELECT+10*, SELECT+11
DIR SELECT+6!, HANG+1!, BACK+4!
DIR("A" HANG+1*
DIR(0 SELECT+7*, HANG+1*
>> I FILE2+1*, FILE2+2*, FILE2+5, FILE2+6*, SELECT+11*
>> IDX FILE2+1*, FILE2+5
U EN1+7, EN1+11, SUB1+7, SUB1+12, LIST+4
>> VALM("BM" FILE2+4, FILE2+6
>> VALMBCK BACK+2*
>> Y SELECT+9
>> Y( SELECT+10, SELECT+11
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All