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

Package: Drug Accountability

Routine: PSARDCU1


Information

PSARDCU1 ;BIRM/MFR - Return Drug - Utilities (Cont.) ;07/01/08

Source Information

Source file <PSARDCU1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 6 ^DIC  FILE^DICN  $$GET1^DID  ^DIE  ($$GET1,GETS)^DIQ  ^DIR  
Drug Accountability 2 NDCEDT^PSANDCUT  (LOGACT,UPDINV)^PSARDCUT  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  $$UP^XLFSTR  

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
Drug Accountability 2 PSARDCBA  PSARDCIT  

Entry Points

Name Comments DBIA/ICR reference
ITEM(PHARMLOC,BATCH,ITEM,QUIT) ; - Add/Edit Item
DRUG ; - Drug
MFR ; - Manufacturer
NDC ; - NDC
ORDUNT ; - Order Unit
DSPUNT ; - Dispense Unit
DUOU ; - Number of Dispense Units per Order Unit
NUMOU ; - Number of Order Units Returned
NUMDU ; - Number of Dispense Units Returned
UPC ; - UPC
EXPDT ; - Expiration Date
REASON ; - Return Reason
UPDINV ; - Update Inventory?
CONF ; - Confirm?
END
GOTO(INPUT,HOME) ; - Directed up-arrow
LOAD() ; - Load existing item information
CHKREQ() ; - Checking for required fields
SAVE() ; - Saves Item
AUDIT() ; - Activity Log/Inventory Update
LOGACT(FIELD,OLDVALUE,NEWVALUE,TYPE,COMM) ; - Log an activity for the return item

External References

Name Field # of Occurrence
^DIC DRUG+4, ORDUNT+7
FILE^DICN SAVE+10
$$GET1^DID LOGACT+2
^DIE SAVE+19
$$GET1^DIQ DRUG+8, DRUG+9, DRUG+10, DRUG+11, DRUG+13, ORDUNT+2, ORDUNT+3, ORDUNT+4, DSPUNT+2, DSPUNT+3
, DUOU+1, DUOU+5, LOAD+16
GETS^DIQ LOAD+7, AUDIT+2
^DIR MFR+5, DSPUNT+8, DUOU+9, NUMOU+6, NUMDU+8, UPC+5, EXPDT+6, REASON+3, UPDINV+5, CONF+2
NDCEDT^PSANDCUT NDC+2
LOGACT^PSARDCUT LOGACT+4
UPDINV^PSARDCUT SAVE+20, AUDIT+10, AUDIT+11, AUDIT+15, AUDIT+16, AUDIT+20
$$FMTE^XLFDT EXPDT+4
$$NOW^XLFDT SAVE+9
$$UP^XLFSTR EXPDT+4, GOTO+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This is a required response. Enter '^' to exit"
  • Line Location: DRUG+6
Function Call: WRITE
  • Prompt: " Deleted!"
  • Line Location: MFR+6
Function Call: WRITE
  • Prompt: !,"ORDER UNIT: ",PSAOUNAM
  • Line Location: ORDUNT+4
Function Call: WRITE
  • Prompt: !,"This is a required response. Enter '^' to exit"
  • Line Location: ORDUNT+8
Function Call: WRITE
  • Prompt: !,"DISPENSE UNIT: ",PSADSPUN
  • Line Location: DSPUNT+3
Function Call: WRITE
  • Prompt: " Deleted!"
  • Line Location: DSPUNT+8
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: DSPUNT+11
Function Call: WRITE
  • Prompt: !,"NUMBER OF "_PSADUNAM_"(S) PER "_PRPT_": ",PSADUOU
  • Line Location: DUOU+5
Function Call: WRITE
  • Prompt: !!,"CURRENT DISPENSE QUANTITY ON FILE: ",PSAQTYDU," ",PRPT_"(S)",!
  • Line Location: NUMDU+4
Function Call: WRITE
  • Prompt: " Deleted!"
  • Line Location: UPC+5
Function Call: WRITE
  • Prompt: " Deleted!"
  • Line Location: EXPDT+6
Function Call: WRITE
  • Prompt: !,"This is a required response. Enter '^' to exit"
  • Line Location: REASON+4
Function Call: WRITE
  • Prompt: !!?5,"Cannot update inventory. There is no inventory"
  • Line Location: UPDINV+7
Function Call: WRITE
  • Prompt: !?5,"information for this Drug/Pharmacy Location.",!,$C(7)
  • Line Location: UPDINV+8
Function Call: WRITE
  • Prompt: !
  • Line Location: CONF+1
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: GOTO+21
Function Call: WRITE
  • Prompt: !!?5,"The following required field(s) are missing:",$C(7),!
  • Line Location: CHKREQ+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKREQ+7
Function Call: WRITE
  • Prompt: !!,"Saving..."
  • Line Location: SAVE+3
Function Call: WRITE
  • Prompt: "OK"
  • Line Location: SAVE+19
Routine Call
  • DIC
  • Line Location:
    • DRUG+4
    • ORDUNT+7
Routine Call
  • DIE
  • Line Location:
    • SAVE+19
Routine Call
  • DIR
  • Line Location:
    • MFR+5
    • DSPUNT+8
    • DUOU+9
    • NUMOU+6
    • NUMDU+8
    • UPC+5
    • EXPDT+6
    • REASON+3
    • UPDINV+5
    • CONF+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] UPDINV+6

Label References

Name Line Occurrences
$$CHKREQ CONF+4
$$GOTO DRUG+7, MFR+5, NDC+3, ORDUNT+7, DSPUNT+9, DUOU+9, NUMOU+6, NUMDU+8, UPC+6, EXPDT+7
, REASON+3, UPDINV+5, CONF+2, CONF+4
@( DRUG+7, MFR+5, NDC+3, ORDUNT+7, DSPUNT+9, DUOU+9, NUMOU+6, NUMDU+8, UPC+6, EXPDT+7
, REASON+3, UPDINV+5, CONF+2, CONF+4
AUDIT CONF+6
DRUG DRUG+5
DSPUNT ORDUNT+4, DSPUNT+8, DSPUNT+11
DUOU DSPUNT+3, DSPUNT+10
END DRUG+4
EXPDT UPC+7, EXPDT+6
LOAD ITEM+5
LOGACT AUDIT+7
MFR MFR+6
NDC MFR+7
NUMDU NUMOU+7
NUMOU DUOU+5
ORDUNT ORDUNT+8
REASON EXPDT+8, REASON+4
SAVE CONF+6
UPC UPC+5
UPDINV UPDINV+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EXPDT+2~
BATCH ITEM~, LOAD+7, LOAD+8, SAVE+5, SAVE+8, SAVE+18, SAVE+20, AUDIT+2, AUDIT+3, AUDIT+10
, AUDIT+11, AUDIT+15, AUDIT+16, AUDIT+20, LOGACT+4
COMM LOGACT~, LOGACT+1, LOGACT+2*, LOGACT+3*, LOGACT+4
DA SAVE+1~, SAVE+18*
DA(1 SAVE+5*
DA(2 SAVE+5*
DATA ITEM+3~, LOAD+7!, AUDIT+2!
DATA( LOAD+8, AUDIT+3
DD SAVE+7~, SAVE+10!
DEFQTY NUMDU+1!, NUMDU+2*, NUMDU+4, NUMDU+6
DIC ITEM+3~, DRUG+1!, DRUG+2*, ORDUNT+1!, ORDUNT+5*, SAVE+7~, SAVE+8*
DIC("A" DRUG+2*, ORDUNT+5*
DIC("B" DRUG+3*!, ORDUNT+6*!
DIC("DR" SAVE+9*
DIC(0 DRUG+2*, ORDUNT+5*, SAVE+8*
DIE SAVE+1~, SAVE+18*
DINUM SAVE+7~
DIR ITEM+3~, MFR+1!, DSPUNT+4!, DUOU+3!, NUMOU+1!, NUMDU+1!, UPC+1!, EXPDT+1!, REASON+1!, UPDINV+1!
DIR("?" MFR+4*, DSPUNT+7*, DUOU+8*, NUMOU+5*, NUMDU+7*, UPC+4*, EXPDT+5*
DIR("A" MFR+2*, DSPUNT+5*, DUOU+6*, NUMOU+3*, NUMDU+5*, UPC+2*, EXPDT+3*, REASON+3*, UPDINV+5*, CONF+1*
DIR("B" MFR+3*!, MFR+6!, DSPUNT+6*!, DSPUNT+8!, DUOU+7*!, NUMOU+4*!, NUMDU+6*!, UPC+3*!, UPC+5!, EXPDT+4*!
, EXPDT+6!, REASON+2*!, UPDINV+4*!, CONF+1*
DIR(0 MFR+2*, DSPUNT+5*, DUOU+6*, NUMOU+3*, NUMDU+5*, UPC+2*, EXPDT+3*, REASON+2*, UPDINV+2*, CONF+1*
DIROUT MFR+1!, MFR+5, DSPUNT+4!, DSPUNT+9, DUOU+9, NUMOU+6, NUMDU+8, UPC+6, REASON+1!, REASON+3
, UPDINV+1!, UPDINV+5, CONF+2, END
DIRUT MFR+1!, MFR+5, DSPUNT+4!, DSPUNT+9, DUOU+9, NUMOU+6, NUMDU+8, UPC+6, REASON+1!, REASON+3
, UPDINV+1!, UPDINV+5, CONF+2, END
DLAYGO SAVE+7~
DO SAVE+7~, SAVE+10!
DR SAVE+1~, SAVE+7~, SAVE+13*, SAVE+14*, SAVE+15*, SAVE+16*
DTOUT DRUG+4, ORDUNT+7, EXPDT+2~, EXPDT+7, END
DUOUT DRUG+7, ORDUNT+7, EXPDT+2~, EXPDT+7, END
DUZ SAVE+9
EXPDT ITEM+3~, LOAD+2*
FIELD LOGACT~, LOGACT+2
FIELDS ITEM+1~, LOAD+1*, LOAD+7, AUDIT+2
FLD AUDIT+2~, AUDIT+4*, AUDIT+5*, AUDIT+6, AUDIT+7, AUDIT+9, AUDIT+14, AUDIT+19
GOTO GOTO+1~, GOTO+19*, GOTO+20*, GOTO+21, GOTO+23
HOME GOTO~, GOTO+19, GOTO+21
INPUT GOTO~, GOTO+2, GOTO+3*, GOTO+5
ITEM ITEM~, LOAD+5, LOAD+7, LOAD+8, SAVE+6, SAVE+11*, SAVE+18, SAVE+20, AUDIT+2, AUDIT+3
, AUDIT+10, AUDIT+11, AUDIT+15, AUDIT+16, AUDIT+20, LOGACT+4
NEWDATA ITEM+3~, AUDIT+3!*
NEWDATA( AUDIT+6, AUDIT+7, AUDIT+11, AUDIT+12
NEWDATA(14 AUDIT+11, AUDIT+16, AUDIT+17
NEWDATA(17 AUDIT+11, AUDIT+16, AUDIT+20
NEWITEM SAVE+1~, SAVE+5*, SAVE+11*, SAVE+20
NEWVALUE LOGACT~, LOGACT+3
OLDDATA ITEM+3~, LOAD+8!*, AUDIT+1
OLDDATA( LOAD+10, AUDIT+5, AUDIT+6, AUDIT+7, AUDIT+10, AUDIT+12
OLDDATA(14 LOAD+13, AUDIT+10, AUDIT+15, AUDIT+17, AUDIT+20
OLDDATA(15 LOAD+13
OLDDATA(16 LOAD+14
OLDDATA(17 LOAD+14, AUDIT+10, AUDIT+15, AUDIT+20
OLDDATA(2 LOAD+10
OLDDATA(3 LOAD+11
OLDDATA(4 LOAD+11
OLDDATA(5 LOAD+11
OLDDATA(6 LOAD+12
OLDDATA(7 LOAD+12
OLDDATA(8 LOAD+12
OLDDATA(9 LOAD+13
OLDVALUE LOGACT~, LOGACT+3
PHARMLOC ITEM~, UPDINV+6, LOAD+7, LOAD+8, SAVE+5, SAVE+8, SAVE+18, SAVE+20, AUDIT+2, AUDIT+3
, AUDIT+10, AUDIT+11, AUDIT+15, AUDIT+16, AUDIT+20, LOGACT+4
PRPT ITEM+3~, DUOU+3!, DUOU+4*, DUOU+5, DUOU+6, DUOU+8, NUMOU+1!, NUMOU+2*, NUMOU+3, NUMOU+5
, NUMDU+1!, NUMDU+3*, NUMDU+4, NUMDU+5, NUMDU+7
PSAACTCR ITEM+2~, LOAD+3*
PSACOST ITEM+2~, LOAD+3*
PSADRNAM ITEM+2~, DRUG+3, DRUG+8*, LOAD+10*
PSADRUG ITEM+3~, DRUG+5, DRUG+8*, DRUG+9, DRUG+11, DRUG+13, NDC+2, ORDUNT+2, ORDUNT+4, DSPUNT+2
, DSPUNT+3, DUOU+1, DUOU+5, UPDINV+6, LOAD+2*, LOAD+10*, SAVE+8, SAVE+13, SAVE+20, AUDIT+15
, AUDIT+16, AUDIT+20
PSADSPUN ITEM+1~, DRUG+11*, DSPUNT+1, DSPUNT+2*, DSPUNT+3, DSPUNT+6, DSPUNT+8*, DSPUNT+10*, DSPUNT+12*, LOAD+3*
, LOAD+12*, LOAD+17
PSADUNAM ITEM+2~, DRUG+11*, DRUG+12*, DSPUNT+2*, DSPUNT+12*, DUOU+5, DUOU+6, DUOU+8, NUMDU+3, GOTO+12
, GOTO+13, LOAD+17*
PSADUOU ITEM+1~, DRUG+13*, DUOU+1*, DUOU+2*, DUOU+5, DUOU+7, DUOU+10*, NUMDU+2, LOAD+2*, LOAD+12*
, CHKREQ+1, CHKREQ+4
PSAESTCR ITEM+2~, LOAD+3*
PSAEXPDT ITEM+2~, EXPDT+4, EXPDT+6*, EXPDT+8*, EXPDT+9*, LOAD+13*
PSAMFR ITEM+1~, MFR+3, MFR+6*, MFR+7*, MFR+8*, LOAD+2*, LOAD+10*
PSANDC ITEM+1~, NDC+1*, NDC+2, NDC+3*, LOAD+2*, LOAD+11*
PSAORDUN ITEM+1~, DRUG+9*, DRUG+10, ORDUNT+2*, ORDUNT+3, ORDUNT+9*, LOAD+2*, LOAD+11*, LOAD+16, CHKREQ+1
, CHKREQ+3
PSAOUNAM ITEM+3~, DRUG+10*, ORDUNT+3*, ORDUNT+4, ORDUNT+6, ORDUNT+9*, DUOU+4, NUMOU+2, GOTO+11, LOAD+16*
PSAQTYDU ITEM+1~, NUMDU+4, NUMDU+9*, LOAD+2*, LOAD+14*, CHKREQ+1, CHKREQ+5, SAVE+20
PSAQTYOU ITEM+1~, NUMOU+4, NUMOU+7*, NUMOU+8*, NUMDU+2, LOAD+2*, LOAD+12*
PSAREAS ITEM+2~, REASON+2, REASON+5*, LOAD+3*, LOAD+13*, CHKREQ+1, CHKREQ+6
PSAUIEXT UPDINV+1!, UPDINV+3*, UPDINV+4
PSAUPC ITEM+1~, UPC+3, UPC+5*, UPC+7*, UPC+8*, LOAD+2*, LOAD+11*
PSAUPINV ITEM+2~, UPDINV+3, UPDINV+9*, UPDINV+10*, LOAD+3*, LOAD+13*, SAVE+20
PSAUSER ITEM+3~, LOAD+3*, LOAD+14*
QUIT ITEM~, END*
TAG GOTO+1~, GOTO+20*
TAG( GOTO+20
TAG("DISPENSE UNIT" , GOTO+10*
TAG("DRUG" GOTO+6*
TAG("EXPIRATI ON DATE" , GOTO+15*
TAG("MFR" GOTO+7*
TAG("NDC" GOTO+8*
TAG("NUMBER O F " , GOTO+11*, GOTO+12*, GOTO+13*
TAG("ORDER UN IT" , GOTO+9*
TAG("RETURN R EASON" , GOTO+16*
TAG("UPC" GOTO+14*
TAG("UPDATE I NVENTORY" , GOTO+17*
TRGT GOTO+1~, GOTO+5*, GOTO+20
TYPE LOGACT~, LOGACT+4
X ITEM+3~, DRUG+1!, DRUG+5, DRUG+7, MFR+5, MFR+6, MFR+7, MFR+8, NDC+3*, ORDUNT+1!
, ORDUNT+7, ORDUNT+8, DSPUNT+8, DSPUNT+9, DSPUNT+10, DSPUNT+11, DSPUNT+12, DUOU+3!, DUOU+9, NUMOU+1!
, NUMOU+6, NUMOU+7, NUMDU+1!, NUMDU+8, UPC+1!, UPC+5, UPC+6, UPC+7, UPC+8, EXPDT+1!
, EXPDT+6, EXPDT+7, EXPDT+8, REASON+3, REASON+4, UPDINV+5, CONF+2, SAVE+7~, SAVE+8*
Y ITEM+3~, DRUG+1!, DRUG+8, ORDUNT+1!, ORDUNT+9, DUOU+3!, DUOU+10, NUMOU+1!, NUMOU+8, NUMDU+1!
, NUMDU+9, UPC+1!, EXPDT+1!, EXPDT+9, REASON+5, UPDINV+6, UPDINV+10, CONF+2, SAVE+11
Y(0 ORDUNT+9
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