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

Package: Drug Accountability

Routine: PSARDCBA


Information

PSARDCBA ;BIRM/MFR - Return Drug Batch - ListMan ;07/01/08

Source Information

Source file <PSARDCBA.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 ^DIC  $$GET1^DID  ^DIE  ($$GET1,GETS)^DIQ  ^DIR  
Drug Accountability 3 EN^PSARDCIT  ITEM^PSARDCU1  ($$CHKEY,$$DEFCTMF,$$PHLOC,LMHDR,LOGACT,UPDINV)^PSARDCUT  
List Manager 2 EN^VALM  (FULL,INSTR)^VALM1  
Kernel 1 $$NOW^XLFDT  

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

Package Total Caller Graph
Drug Accountability 11 PSA RET DRG ADD ITEM  PSA RET DRG BATCH CREDIT UPDATE  PSA RET DRG BATCH MENU  PSA RET DRG CANCEL BATCH  PSA RET DRG COMPLETE BATCH  PSA RET DRG EDIT BATCH  PSA RET DRG PICKUP BATCH  PSA RET DRG SELECT ITEM  
PSA RET DRG VIEW/UPDATE BATCH  PSA RETURN DRUG BATCH  PSARDCBL  

Entry Points

Name Comments DBIA/ICR reference
SB ; - Single Batch View/Process
EN(PSAPHLOC,PSABATCH) ; - ListManager entry point
HDR ; - Header
SETHDR() ; - Displays the Header Line
INIT ; - Populates the Body section for ListMan
SORT ; - Sets the line to be displayed in ListMan
SETLINE ; - Sets the line to be displayed in ListMan
ADD ; - Add New Item action
CAN ; - Cancel Batch action
PKP ; - Pickup Batch action
CRE ; - Update Credit action
EDT ; - Edit Batch action
EDIT ; - Edit Batch action
LKBAT(PHLOC,BATCH) ; - Locks the batch
UNLKBAT(PHLOC,BATCH) ; - Unlocks the batch
COM ; - Complete Batch action
SEL ; - Select Item action
EXIT ;
HELP
LOAD() ; - Load Batch information
CHKCRE(PHLOC,BATCH) ; - Check if Actual Credit have been entered
LOGACT(FIELD,OLDVALUE,NEWVALUE,ITEM) ; - Log an activity for the return item
AMT(VAL) ; Returns the amount formatted

External References

Name Field # of Occurrence
^DIC SB+12, EDIT+9
$$GET1^DID LOGACT+2
^DIE CAN+27, PKP+24, CRE+36, CRE+49, EDT+24, COM+24, COM+34
$$GET1^DIQ SORT+5, SETLINE+10, ADD+5, CAN+6, CAN+10, CAN+11, CAN+33, CAN+34, CAN+35, PKP+7
CRE+3, CRE+32, CRE+33, CRE+37, CRE+38, CRE+39, CRE+40, CRE+41, CRE+42, CRE+44
CRE+46, CRE+47, EDT+6, EDT+7, EDT+10, EDT+11, EDT+12, COM+6, COM+10, COM+32
, CHKCRE+6, CHKCRE+8
GETS^DIQ SETLINE+7, LOAD+4
^DIR ADD+13, CAN+16, CAN+21, PKP+19, PKP+27, CRE+13, CRE+24, EDT+18, EDIT+16, COM+18
SEL+18, CHKCRE+17
EN^PSARDCIT SEL+24
ITEM^PSARDCU1 ADD+12
$$CHKEY^PSARDCUT SB+4
$$DEFCTMF^PSARDCUT EDIT+8
$$PHLOC^PSARDCUT SB+7
LMHDR^PSARDCUT HDR+1
LOGACT^PSARDCUT CAN+32, LOGACT+4
UPDINV^PSARDCUT CAN+36
EN^VALM EN+5
FULL^VALM1 EN+6, ADD+9, CAN+14, PKP+15, CRE+10, EDT+14, EDIT+3, COM+14, SEL+11
INSTR^VALM1 SETHDR+5, SETHDR+9
$$NOW^XLFDT CAN+26, COM+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SB+12
Function Call: WRITE
  • Prompt: !,"Please wait..."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: ADD+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+13
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: CAN+7
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: CAN+11
Function Call: WRITE
  • Prompt: !
  • Line Location: CAN+15
Function Call: WRITE
  • Prompt: !
  • Line Location: CAN+20
Function Call: WRITE
  • Prompt: !!,"Cancelling Batch..."
  • Line Location: CAN+23
Function Call: WRITE
  • Prompt: "OK"
  • Line Location: CAN+28
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: PKP+4
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: PKP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PKP+18
Function Call: WRITE
  • Prompt: !
  • Line Location: PKP+26
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: CRE+4
Function Call: WRITE
  • Prompt: !!,"Item ",ITEM,": ",^TMP("PSARDCBA",$J,ITEM,"DISP")
  • Line Location: CRE+34
Function Call: WRITE
  • Prompt: !
  • Line Location: CRE+36
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: EDT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+17
Function Call: WRITE
  • Prompt: !!,"Saving Batch..."
  • Line Location: EDT+20
Function Call: WRITE
  • Prompt: "OK"
  • Line Location: EDT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: COM+7
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: COM+11
Function Call: WRITE
  • Prompt: !
  • Line Location: COM+17
Function Call: WRITE
  • Prompt: !!,"Completing Batch..."
  • Line Location: COM+20
Function Call: WRITE
  • Prompt: "OK"
  • Line Location: COM+36
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: SEL+5
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: SEL+8
Function Call: WRITE
  • Prompt: !!,"WARNING: The following items will have their CREDIT STATUS"
  • Line Location: CHKCRE+11
Function Call: WRITE
  • Prompt: !?9,"set to DENIED because no credit amount has been"
  • Line Location: CHKCRE+12
Function Call: WRITE
  • Prompt: !?9,"entered for them:",!
  • Line Location: CHKCRE+13
Function Call: WRITE
  • Prompt: !?9,XX,!?9,"RETURN DRUG (NDC)",?49,"DISP QTY",?58,"UNIT",!?9,XX,!
  • Line Location: CHKCRE+14
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: CHKCRE+17
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKCRE+18
Routine Call
  • DIC
  • Line Location:
    • SB+12
    • EDIT+9
Routine Call
  • DIE
  • Line Location:
    • CAN+27
    • PKP+24
    • CRE+36
    • CRE+49
    • EDT+24
    • COM+24
    • COM+34
Routine Call
  • DIR
  • Line Location:
    • ADD+13
    • CAN+16
    • CAN+21
    • PKP+19
    • PKP+27
    • CRE+13
    • CRE+24
    • EDT+18
    • EDIT+16
    • COM+18
    • SEL+18
    • CHKCRE+17
Routine Call
  • VALM
  • Line Location:
    • EN+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^DIC(51.5 - [#51.5] GET1^DIQ
58.351 GET1^DIQ,  GETS^DIQ
58.3511 GET1^DID,  GET1^DIQ,  GETS^DIQ
^PSD(58.36 - [#58.36] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DILOCKTM" LKBAT+1
^PSD(58.35 - [#58.35] SORT+4, CAN+31, PKP+3, LKBAT+1, UNLKBAT+1, COM+29, COM+30, SEL+7, CHKCRE+3, CHKCRE+4
^TMP("PSARDCBA" INIT+1!, SETLINE+15*, SETLINE+16*, SETLINE+17*, SETLINE+19, SETLINE+20*, CRE+31, CRE+34, SEL+4, SEL+10
SEL+21, EXIT+1!
^TMP("PSARDCSR" INIT+1!, SORT+6*, SETLINE+4, SETLINE+5, EXIT+1!

Label References

Name Line Occurrences
$$AMT CRE+38, CRE+40
$$LKBAT ADD+2, CAN+3, PKP+11, CRE+7, EDT+3, COM+3
CHKCRE COM+14
CRE PKP+29
EDIT PKP+16, EDT+15
EN SB+15
EXIT EN+7
HDR PKP+27, CRE+51, EDT+26
INIT ADD+15, CRE+51, SEL+24
LOAD EN+3
LOGACT CRE+38, CRE+40, CRE+43, CRE+45, CRE+48, COM+32
SETHDR HDR+2
SETLINE INIT+4
SORT INIT+4
UNLKBAT ADD+7, ADD+15, CAN+8, CAN+12, CAN+16, CAN+21, CAN+37, PKP+5, PKP+9, PKP+13
PKP+16, PKP+19, PKP+27, PKP+29, CRE+5, CRE+13, CRE+24, CRE+51, EDT+8, EDT+15
EDT+18, EDT+26, COM+8, COM+12, COM+18, COM+38

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTCRD SETLINE+1~, SETLINE+11*, SETLINE+14
BATCH LKBAT~, LKBAT+1, UNLKBAT~, UNLKBAT+1, CHKCRE~, CHKCRE+3, CHKCRE+4
CNT CHKCRE+1~, CHKCRE+15*, CHKCRE+17*
COMM LOGACT+1~, LOGACT+2*, LOGACT+3*, LOGACT+4
DA SB+1~, SB+10!, CAN+24*, PKP+1~, PKP+21*, CRE+1~, CRE+27!, CRE+31*, CRE+32, CRE+33
CRE+37, CRE+38, CRE+39, CRE+40, CRE+41, CRE+42, CRE+44, CRE+46, CRE+47, EDT+1~
EDT+21*, EDIT+1~, COM+1~, COM+21*, COM+26!, COM+34*
DA(1 CAN+24*, PKP+21*, CRE+29*, CRE+32, CRE+33, CRE+37, CRE+38, CRE+39, CRE+40, CRE+41
CRE+42, CRE+44, CRE+46, CRE+47, EDT+21*, COM+21*, COM+27*
DA(2 CRE+29*, CRE+32, CRE+33, CRE+37, CRE+38, CRE+39, CRE+40, CRE+41, CRE+42, CRE+44
CRE+46, CRE+47, COM+27*
DATA SETLINE+1~, SETLINE+8!*, LOAD+1~, LOAD+5!*
DATA( SETLINE+9
DATA(12 SETLINE+11
DATA(17 SETLINE+11
DATA(3 SETLINE+9
DATA(4 LOAD+6
DATA(5 SETLINE+10, LOAD+6
DATA(6 SETLINE+9
DATA(8 SETLINE+11
DIC SB+1~, SB+10!, SB+11*, EDIT+1~, EDIT+4!, EDIT+5*
DIC("A" SB+11*, EDIT+5*
DIC("B" EDIT+7*, EDIT+8*!
DIC("S" EDIT+6*
DIC(0 SB+11*, EDIT+5*
DIE CAN+25*, PKP+21*, CRE+1~, CRE+28*, EDT+1~, EDT+21*, EDIT+1~, COM+1~, COM+22*, COM+26!
COM+33*
DIR ADD+1~, CAN+1~, PKP+1~, CRE+1~, CRE+11!, CRE+16!, EDT+1~, EDIT+1~, EDIT+12!, COM+1~
SEL+12~, CHKCRE+1~
DIR("?" CRE+18*, CRE+19*, CRE+20*, CRE+21*, CRE+22*, EDIT+15*, SEL+14*, SEL+15*, SEL+16*
DIR("??" CRE+23*, SEL+17*
DIR("A" ADD+10*, CAN+15*, CAN+20*, PKP+18*, PKP+26*, CRE+12*, CRE+17*, EDT+17*, EDIT+14*, COM+17*
SEL+13*
DIR("B" ADD+10*, CAN+20*, PKP+18*, PKP+26*, CRE+12*, EDT+17*, EDIT+13*!, COM+17*
DIR(0 ADD+10*, CAN+15*, CAN+20*, PKP+18*, PKP+26*, CRE+12*, CRE+17*, EDT+17*, EDIT+14*, COM+17*
SEL+13*, CHKCRE+17*
DIROUT CAN+1~, CAN+16, CAN+21, PKP+19, PKP+27, CRE+1~, CRE+11!, CRE+13, CRE+16!, CRE+24
EDT+1~, EDT+18, EDIT+12!, EDIT+17, COM+1~, COM+18, SEL+12~, SEL+18
DIRUT CAN+1~, CAN+16, CAN+21, PKP+19, PKP+27, CRE+1~, CRE+11!, CRE+13, CRE+16!, CRE+24
EDT+1~, EDT+18, EDIT+12!, EDIT+17, COM+1~, COM+18, SEL+12~, SEL+18, CHKCRE+1~, CHKCRE+15
, CHKCRE+16
DR CAN+26*, PKP+22*, CRE+1~, CRE+27!, CRE+35*, CRE+36*, CRE+43*, CRE+45*, CRE+48*, EDT+1~
EDT+22*, EDIT+1~, COM+1~, COM+23*, COM+26!, COM+34*
DRNAM CHKCRE+1~, CHKCRE+15*, CHKCRE+16, CHKCRE+17
DRUG SETLINE+1~, SETLINE+9*, SETLINE+13, SETLINE+17, CAN+1~, CAN+34*, CAN+36
DRUGNAM SORT+1~, SORT+5*, SORT+6, SETLINE+1~, SETLINE+3*, SETLINE+4*, SETLINE+5
DSPLN CHKCRE+1~, CHKCRE+6*, CHKCRE+7*, CHKCRE+8
DSPUNT SETLINE+1~, SETLINE+11*, SETLINE+14
DTOUT SB+10!, SB+12, EDIT+9
DUOUT SB+10!, SB+12, EDIT+9
DUQTY SETLINE+1~, SETLINE+11*, SETLINE+14
DUZ CAN+26, COM+23
FIELD LOGACT~, LOGACT+2, LOGACT+3
FLDS SETLINE+1~, LOAD+1~, LOAD+4!
FLDS( SETLINE+8, LOAD+5
HDR SETHDR+1~, SETHDR+4*, SETHDR+5*, SETHDR+7*, SETHDR+8*, SETHDR+9*
I ADD+1~, ADD+11*, CRE+1~, CRE+30*
>> IOINORM SETHDR+5, SETHDR+9
>> IORVON SETHDR+5, SETHDR+9
ITEM SORT+1~, SORT+3*, SORT+4*, SORT+5, SORT+6, SETLINE+1~, SETLINE+3*, SETLINE+5*, SETLINE+7, SETLINE+8
SETLINE+16, CAN+1~, CAN+30*, CAN+31*, CAN+32, CAN+33, CAN+34, CAN+35, CAN+36, CRE+1~
CRE+30*, CRE+31, CRE+34, SEL+1~, SEL+21*, SEL+24, LOGACT~, LOGACT+4
ITEMIEN CRE+1~, CRE+31*, CRE+38, CRE+40, CRE+43, CRE+45, CRE+48
ITM COM+1~, COM+28*, COM+29*, COM+30, COM+32, COM+34, CHKCRE+1~, CHKCRE+2*, CHKCRE+3*, CHKCRE+4
, CHKCRE+8, CHKCRE+16*, CHKCRE+17
LINE SETLINE+1~, SETLINE+13*, SETLINE+14*, SETLINE+15
NDC SETLINE+1~, SETLINE+9*, SETLINE+13, SETLINE+17
NEWVALUE LOGACT~, LOGACT+3
NOCRED CHKCRE+1~, CHKCRE+10
NOCRED( CHKCRE+8*, CHKCRE+15, CHKCRE+16, CHKCRE+17
OLDACT CRE+1~, CRE+33*, CRE+39, CRE+40
OLDEST CRE+1~, CRE+32*, CRE+37, CRE+38
OLDSTS CRE+1~, CRE+41*, CRE+43, CRE+45, CRE+47, CRE+48
OLDVALUE LOGACT~, LOGACT+3
ORDUNT SETLINE+1~, SETLINE+10*, SETLINE+13, SETLINE+17
PHLOC LKBAT~, LKBAT+1, UNLKBAT~, UNLKBAT+1, CHKCRE~, CHKCRE+3, CHKCRE+4
PSABATCH SB+1~, SB+13*, SB+15, EN~, HDR+1, SORT+4, SORT+5, SETLINE+7, SETLINE+8, ADD+2
ADD+5, ADD+7, ADD+12, ADD+15, CAN+3, CAN+6, CAN+8, CAN+10, CAN+11, CAN+12
CAN+16, CAN+21, CAN+24, CAN+31, CAN+32, CAN+33, CAN+34, CAN+35, CAN+36, CAN+37
PKP+3, PKP+5, PKP+7, PKP+9, PKP+11, PKP+13, PKP+16, PKP+19, PKP+21, PKP+27
PKP+29, CRE+3, CRE+5, CRE+7, CRE+13, CRE+23, CRE+24, CRE+28, CRE+29, CRE+51
EDT+3, EDT+6, EDT+7, EDT+8, EDT+10, EDT+11, EDT+12, EDT+15, EDT+18, EDT+21
EDT+26, COM+3, COM+6, COM+8, COM+10, COM+12, COM+14, COM+18, COM+21, COM+27
COM+29, COM+30, COM+32, COM+33, COM+38, SEL+7, SEL+17, SEL+24, LOAD+4, LOAD+5
, LOGACT+4
PSACOMM CAN+1~, CAN+17*, CAN+32
PSACTMF EN+1~, EDT+10*, EDIT+10*, LOAD+2*, LOAD+6*
PSACTMFN EN+1~, EDT+11*, EDIT+7, EDIT+10*, LOAD+2*, LOAD+6*
PSAMORE ADD+1~, ADD+10*, ADD+11, ADD+13*
PSAPHLOC SB+1~, SB+7*, SB+11, SB+15, EN~, HDR+1, SORT+4, SORT+5, SETLINE+7, SETLINE+8
ADD+2, ADD+5, ADD+7, ADD+12, ADD+15, CAN+3, CAN+6, CAN+8, CAN+10, CAN+11
CAN+12, CAN+16, CAN+21, CAN+24, CAN+25, CAN+31, CAN+32, CAN+33, CAN+34, CAN+35
CAN+36, CAN+37, PKP+3, PKP+5, PKP+7, PKP+9, PKP+11, PKP+13, PKP+16, PKP+19
PKP+21, PKP+27, PKP+29, CRE+3, CRE+5, CRE+7, CRE+13, CRE+23, CRE+24, CRE+28
CRE+29, CRE+51, EDT+3, EDT+6, EDT+7, EDT+8, EDT+10, EDT+11, EDT+12, EDT+15
EDT+18, EDT+21, EDT+26, COM+3, COM+6, COM+8, COM+10, COM+12, COM+14, COM+18
COM+21, COM+22, COM+27, COM+29, COM+30, COM+32, COM+33, COM+38, SEL+7, SEL+17
SEL+24, LOAD+4, LOAD+5, LOGACT+4
PSAQUIT EN+1~, ADD+1~, ADD+10*, ADD+11, ADD+12, PKP+16, EDT+15, EDIT+3*, EDIT+9*, EDIT+17*
PSAREF EN+1~, EDT+12*, EDIT+13, EDIT+16*, EDIT+18*, LOAD+2*, LOAD+6*
PSASEL SEL+1~, SEL+3*, SEL+4, SEL+10, SEL+19*, SEL+21
QTY SETLINE+1~, SETLINE+9*, SETLINE+13, SETLINE+17, CAN+1~, CAN+35*, CAN+36
SEQ SORT+3*, SETLINE+1~, SETLINE+3*, SETLINE+6*, SETLINE+13, SETLINE+15, SETLINE+16, SETLINE+17
SEQS CRE+1~, CRE+25*, CRE+30
TYPE CRE+1~, CRE+14*, CRE+35
VAL AMT~, AMT+1, AMT+2
>> VALMBCK ADD+3*, ADD+6*, ADD+16*, CAN+4*, CAN+7*, CAN+11*, CAN+16*, CAN+21*, PKP+4*, PKP+8*
PKP+12*, PKP+19*, PKP+27*, PKP+30*, CRE+4*, CRE+8*, CRE+13*, CRE+24*, CRE+52*, EDT+4*
EDT+7*, EDT+18*, EDT+27*, EDIT+9*, EDIT+16*, EDIT+17*, COM+4*, COM+7*, COM+11*, COM+18*
SEL+5*, SEL+8*, SEL+10*, SEL+18*, SEL+26*
>> VALMCNT INIT+3*, SETLINE+15*, SETLINE+21*, CRE+17, SEL+13
>> VALMSG INIT+5*, ADD+3*, ADD+6*, CAN+4*, CAN+7*, CAN+11*, PKP+4*, PKP+8*, PKP+12*, CRE+4*
CRE+8*, EDT+4*, EDT+7*, COM+4*, COM+7*, COM+11*, SEL+5*, SEL+8*
X SB+1~, SB+10!, SB+12, CAN+17, PKP+1~, CRE+1~, CRE+11!, CRE+16!, EDT+1~, EDIT+1~
EDIT+4!, EDIT+9, EDIT+16, EDIT+17, EDIT+18, COM+1~, SEL+12~, CHKCRE+1~
XQORM SEL+23~
XX CHKCRE+1~, CHKCRE+13*, CHKCRE+14
Y SB+1~, SB+10!, SB+13, ADD+1~, ADD+13, CAN+21, PKP+1~, PKP+19, PKP+27, CRE+1~
CRE+11!, CRE+14, CRE+16!, CRE+24, CRE+25, EDT+1~, EDT+18, EDIT+1~, EDIT+4!, EDIT+10
COM+1~, COM+18, SEL+12~, SEL+18, SEL+19, CHKCRE+1~
Y(1 SEL+3
Z COM+1~, COM+30*, COM+31, CHKCRE+1~, CHKCRE+4*, CHKCRE+5, CHKCRE+6, CHKCRE+7, CHKCRE+8
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