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

Package: IHS Changes To Pharmacy

Routine: APSQDI1


Information

APSQDI1 ;IHS/ASDS/ENM/POC - LOOK UP CONTINUED FM APSQDI[ 05/25/2001 4:05 PM ]

Source Information

Source file <APSQDI1.m>

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Pharmacy 1 APSQDI  

Entry Points

Name Comments DBIA/ICR reference
FILE2 ;FIX IDX
SET ;SET UP FOR NEXT PART
WIPE ;DELEETE ENTRIES FROM DRUG ARRAY USING APSQARR("GOT")
SUB1 ;S APSQSEQ=APSQSEQ+1
LIST ;LIST ENTRIES SELECTED
HANG ;
ADD ;SELECT ENTITIES
BACK ;GO BACK
EN1 ;
EN2 ;LOOK UP
DEL ;DELETE ENTITIES
FILE ;
SWT ;SWITH APSQKILL BACK AND FORTH BETWEEN 1 AND 0

External References

Name Field # of Occurrence
^DIR DEL+7, ADD+8, HANG+2
TERM^VALM0 BACK+1
$$SETSTR^VALM1 EN1+7, EN1+12, EN1+16, SUB1+3, SUB1+5, SUB1+11, SUB1+12, SUB1+16, SUB1+17
FULL^VALM1 DEL+2, ADD+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"YOU DONT HAVE ANY ENTRIES TO DELETE-BYE"
  • Line Location: DEL+3
Function Call: WRITE
  • Prompt: !,"NO SELECTIONS-BYE"
  • Line Location: DEL+8
Function Call: WRITE
  • Prompt: !,"NO SUCH CRITTER ",APSQGOT
  • Line Location: DEL+12
Function Call: WRITE
  • Prompt: !,"Nothing selected."
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: !,"NO SELECTIONS-BYE"
  • Line Location: ADD+9
Function Call: WRITE
  • Prompt: !,"NO SUCH CRITTER ",APSQGOT," SO ITEM DELETED!"
  • Line Location: ADD+13
Function Call: WRITE
  • Prompt: !,$S($D(APSQARR("GOT")):"",1:"NO ")," ENTRIES SELECTED:"
  • Line Location: LIST+1
Routine Call
  • DIR
  • Line Location:
    • DEL+7
    • ADD+8
    • HANG+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APSQFA - [#9009035.3] EN1+11, EN1+14, EN1+15, SUB1+10, SUB1+14, SUB1+15, LIST+4, SET+3, SET+4, SET+5
, SET+10, WIPE+3, WIPE+4, WIPE+5, WIPE+9
^APSQFA("SD" EN1+5, EN1+6, EN1+9, EN2+5, EN2+6, SUB1+8
^PS(59 - [#59] EN1+4, EN2+4
^PSDRUG - [#50] EN1+15, SUB1+15

Label References

Name Line Occurrences
BACK DEL+3, DEL+18, ADD+18
EN2 DEL+18, ADD+18
FILE EN2+13, EN2+14
HANG DEL+18, ADD+18
LIST DEL+18, ADD+18
SET ADD+18
SUB1 EN2+10
SWT EN2+11
WIPE DEL+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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