Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSARDCBL

Package: Drug Accountability

Routine: PSARDCBL


Information

PSARDCBL ;BIRM/MHA - Return Drug Batch Work List - ListMan ;07/01/08

Source Information

Source file <PSARDCBL.m>

Entry Points

Name Comments DBIA/ICR reference
ST ; Entry point
EN(PSAPHLOC,PSADT,PSASTA) ;- ListManager entry point
LST ; - ListManager entry point
HDR ; - Header
INIT ; - Populates the Body section for ListMan
SORT ; - Sort according to the status to be displayed in ListMan
SETLINE ; - Sets the line to be displayed in ListMan
; - Resetting list to NORMAL video attributes
RV ;
NIT ;
ADD ; - Add New Batch
ADDQ
CMF ; - Add/Edit Contractor
CMFQ
SEL ; - Select Item action
CBAT ; Complete Batch
EXIT ;
HELP
DELCMF(DA) ; check if cmf has entries tied to it

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"**** The File is Being Edited by Another User - Try Later ****",!
  • Line Location: ADD+7
Function Call: WRITE
  • Prompt: !!," New Batch #: "_PSABAT
  • Line Location: ADD+11
Function Call: WRITE
  • Prompt: !!,"Batch not created - contracter/mfr not entered!",!
  • Line Location: ADD+17
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+19
Function Call: WRITE
  • Prompt: $C(7),!!,"**** The File is Being Edited by Another User - Try Later ****",!
  • Line Location: CMF+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CMF+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CMF+4
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: SEL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CBAT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: CBAT+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.35 - [#58.35] Classic Fileman Calls
58.351 EXTERNAL^DILFD,  GET1^DIQ,  GETS^DIQ
^PSD(58.36 - [#58.36] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call