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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSARDCUT

Package: Drug Accountability

Routine: PSARDCUT


Information

PSARDCUT ;BIRM/MFR - Return Drug - Utilities ;07/01/08

Source Information

Source file <PSARDCUT.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 ^%DT  FILE^DICN  ^DIE  $$GET1^DIQ  ^DIR  
Drug Accountability 2 ($$DTTM,$$TOTCRE)^PSARDCUT  SITES^PSAUTL1  
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: 6

Package Total Caller Graph
Drug Accountability 6 PSARDCBA  PSARDCBL  PSARDCIT  PSARDCRP  PSARDCU1  PSARDCUT  

Entry Points

Name Comments DBIA/ICR reference
PHLOC() ;Select Pharmacy location
DTTM(DATE,SEC) ; Converts FM to MM/DD/YY@HHMM(SS) (w/ or /out seconds)
LOGACT(PHLOC,BATCH,ITEM,TYPE,COMM) ; - Log an EDIT activity for the return item
DTRNG(BGN,END) ; Date Range Selection
STASEL() ; Status Selection
STAVAL(X,PSARY) ;Checks for valid combinations of statuses
; Input - X user input to be validated
; - PSARY array contains the valid statues
; Output - Return 1 valid or 0 invalid flag
UPDINV(PHLOC,BATCH,ITEM,DRUG,QTY,DISPLAY) ; - Update Drug Inventory
MONTH ; Monthly Activity update (Unsure if this should be done. So, not being called right now)
DEFCTMF() ; - Returns the default Contractor/Manufacturer (if there is only 1 active)
TOTCRE(PHLOC,BATCH) ; - Return Batch Total Estimated^Actual Credit
LIST(PHLOC,BATCH) ; - Items List
LMHDR(PHLOC,BATCH,LOCNAM) ; - Header for Batch/Item screens
EXCEL() ; - Returns whether to capture data for Excel report.
; Output: EXCEL = 1 - YES (capture data) / 0 - NO (DO NOT capture data)
EXCHLP ; - 'Do you want to capture data...' prompt
EXCMSG ;Display the message about capturing to an Excel file format
CHKEY() ; Check for keys to use Return Drug options

External References

Name Field # of Occurrence
^%DT DTRNG+6, DTRNG+11
FILE^DICN LOGACT+6, UPDINV+35, MONTH+5, MONTH+15
^DIE MONTH+20
$$GET1^DIQ UPDINV+4, UPDINV+26, UPDINV+27, UPDINV+28, LIST+5, LIST+7, LMHDR+3, LMHDR+4, LMHDR+5, LMHDR+6
, LMHDR+7, LMHDR+8, LMHDR+9
^DIR PHLOC+24, STASEL+12, LIST+13, EXCEL+8
$$DTTM^PSARDCUT LMHDR+4, LMHDR+8
$$TOTCRE^PSARDCUT LMHDR+10
SITES^PSAUTL1 PHLOC+13, LMHDR+2
$$FMTE^XLFDT DTTM+2
$$NOW^XLFDT LOGACT+4, MONTH+3
$$UP^XLFSTR STASEL+13, STAVAL+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Choose one pharmacy location:",!
  • Line Location: PHLOC+21
Function Call: WRITE
  • Prompt: !
  • Line Location: DTRNG+10
Function Call: WRITE
  • Prompt: !,"Select one or multiple (separated by comma) of the following:"
  • Line Location: STASEL+3
Function Call: WRITE
  • Prompt: !,"Updating Inventory "_$S($G(DISPLAY):"("_$$GET1^DIQ(50,DRUG,.01)_")",1:"")_"..."
  • Line Location: UPDINV+4
Function Call: WRITE
  • Prompt: "Failed."
  • Line Location: UPDINV+6
Function Call: WRITE
  • Prompt: "Failed."
  • Line Location: UPDINV+10
Function Call: WRITE
  • Prompt: "Failed."
  • Line Location: UPDINV+14
Function Call: WRITE
  • Prompt: "Failed."
  • Line Location: UPDINV+23
Function Call: WRITE
  • Prompt: "OK"
  • Line Location: UPDINV+42
Function Call: WRITE
  • Prompt: !?10,XX,!?10," #",?13,"RETURN DRUG (NDC)",?49,"DISP QTY",?58,"UNIT",!?10,XX,!
  • Line Location: LIST+10
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: LIST+13
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+14
Function Call: WRITE
  • Prompt: !
  • Line Location: EXCEL+5
Function Call: WRITE
  • Prompt: !!," Enter: 'Y' - To capture detail report data to transfer"
  • Line Location: EXCHLP+1
Function Call: WRITE
  • Prompt: !," to an Excel document"
  • Line Location: EXCHLP+2
Function Call: WRITE
  • Prompt: !," '<CR>' - To skip this option"
  • Line Location: EXCHLP+3
Function Call: WRITE
  • Prompt: !," '^' - To quit this option"
  • Line Location: EXCHLP+4
Function Call: WRITE
  • Prompt: !!?5,"Before continuing, please set up your terminal to capture the"
  • Line Location: EXCMSG+1
Function Call: WRITE
  • Prompt: !?5,"detail report data. On some terminals, this can be done by"
  • Line Location: EXCMSG+2
Function Call: WRITE
  • Prompt: !?5,"clicking on the 'Tools' menu above, then click on 'Capture"
  • Line Location: EXCMSG+3
Function Call: WRITE
  • Prompt: !?5,"Incoming Data' to save to Desktop. This report may take a"
  • Line Location: EXCMSG+4
Function Call: WRITE
  • Prompt: !?5,"while to run."
  • Line Location: EXCMSG+5
Function Call: WRITE
  • Prompt: !!?5,"Note: To avoid undesired wrapping of the data saved to the"
  • Line Location: EXCMSG+6
Function Call: WRITE
  • Prompt: !?5," file, please enter '0;256;999' at the 'DEVICE:' prompt.",!
  • Line Location: EXCMSG+7
Function Call: WRITE
  • Prompt: !!,"Please contact your Pharmacy Coordinator for access to this option."
  • Line Location: CHKEY+2
Function Call: WRITE
  • Prompt: !,"The PSARET security key is required!",$C(7),!
  • Line Location: CHKEY+3
Routine Call
  • DIE
  • Line Location:
    • MONTH+20
Routine Call
  • DIR
  • Line Location:
    • PHLOC+24
    • STASEL+12
    • LIST+13
    • EXCEL+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
58.351 GET1^DIQ
58.3511 GET1^DIQ
^PSD(58.8 - [#58.8] GET1^DIQ
^PSD(58.81 - [#58.81] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.35 - [#58.35] LOGACT+2, UPDINV+6, MONTH+1, TOTCRE+3, TOTCRE+4, LIST+3, LIST+4
^PSD(58.36 - [#58.36] DEFCTMF+2, DEFCTMF+3
^PSD(58.8 - [#58.8] PHLOC+3, PHLOC+8, PHLOC+9, PHLOC+10, PHLOC+11, PHLOC+14, UPDINV+13, UPDINV+18, UPDINV+19, UPDINV+22
, UPDINV+38*, UPDINV+40, MONTH+8, MONTH+10, MONTH+11, MONTH+16
^PSD(58.81 - [#58.81] UPDINV+21, UPDINV+29, UPDINV+36
^PSD(58.84 - [#58.84] UPDINV+8
^XUSEC("PSAMGR" CHKEY+1
^XUSEC("PSARET" CHKEY+1
^XUSEC("PSORPH" CHKEY+1

Label References

Name Line Occurrences
EXCMSG EXCEL+13
LOGACT UPDINV+11, UPDINV+15, UPDINV+24

Naked Globals

Name Field # of Occurrence
^(0 PHLOC+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DTRNG+4~, DTRNG+6*, DTRNG+10!, DTRNG+11*
%DT("A" DTRNG+6*, DTRNG+11*
%DT("B" DTRNG+6*!, DTRNG+11*!
%DT(0 DTRNG+11*
ACTOT TOTCRE+1~, TOTCRE+2*, TOTCRE+5*, TOTCRE+6
BALANCE UPDINV+1~, UPDINV+19*, UPDINV+38
BATCH LOGACT~, LOGACT+2, LOGACT+3, LOGACT+4, UPDINV~, UPDINV+6, UPDINV+11, UPDINV+15, UPDINV+24, UPDINV+26
, UPDINV+27, UPDINV+28, MONTH+1, MONTH+2, MONTH+3, TOTCRE~, TOTCRE+3, TOTCRE+4, LIST~, LIST+3
, LIST+4, LMHDR~, LMHDR+4, LMHDR+5, LMHDR+6, LMHDR+7, LMHDR+8, LMHDR+9, LMHDR+10
BEGBAL UPDINV+1~, MONTH+8*, MONTH+10*
BGN DTRNG~, DTRNG+6
CNT DEFCTMF+1~, DEFCTMF+2*, DEFCTMF+4*, DEFCTMF+5, LIST+1~, LIST+11*, LIST+13*
COMM LOGACT~, UPDINV+1~, UPDINV+28*
CTMF DEFCTMF+1~, DEFCTMF+2*, DEFCTMF+3
D0 UPDINV+1~
DA LOGACT+1~, UPDINV+1~, UPDINV+31*, MONTH+18*
DA(1 LOGACT+4*, MONTH+3*, MONTH+14*, MONTH+18*
DA(2 LOGACT+4*, MONTH+3*, MONTH+14*, MONTH+18*
DA(3 LOGACT+4*, MONTH+3*
DATE DTTM~, DTTM+2
DD LOGACT+1~, LOGACT+6!, UPDINV+1~, UPDINV+35!, MONTH+5!, MONTH+15!
DEFAULT DEFCTMF+1~, DEFCTMF+4*, DEFCTMF+5
DIC LOGACT+1~, LOGACT+3*, UPDINV+1~, UPDINV+30*, MONTH+2*, MONTH+12*
DIC("DR" LOGACT+5*, UPDINV+32*, UPDINV+33*, UPDINV+34*, MONTH+4*, MONTH+13*
DIC(0 LOGACT+4*, UPDINV+30*, MONTH+3*, MONTH+12*
DIE UPDINV+2~, MONTH+18*
DILOCKTM UPDINV+18, UPDINV+21
DINUM LOGACT+1~, UPDINV+2~, UPDINV+30*, MONTH+13*
DIR PHLOC+2~, STASEL+1~, LIST+1~, EXCEL+3~, EXCEL+8!
DIR("?" PHLOC+23*, STASEL+10*, EXCEL+7*
DIR("A" PHLOC+18*, PHLOC+20*, PHLOC+22*, STASEL+6*, STASEL+7*, STASEL+8*, STASEL+9*, EXCEL+6*
DIR("B" STASEL+11*, EXCEL+5*
DIR("T" EXCEL+5*
DIR(0 PHLOC+22*, STASEL+9*, LIST+13*, EXCEL+5*
DIROUT EXCEL+3~, EXCEL+8, EXCEL+9!
DIRUT STASEL+12, LIST+1~, LIST+11, LIST+12, EXCEL+3~, EXCEL+8, EXCEL+9!
DISPLAY UPDINV~, UPDINV+4
DLAYGO LOGACT+1~, UPDINV+1~
DO LOGACT+1~, LOGACT+6!, UPDINV+1~, UPDINV+35!, MONTH+5!, MONTH+15!
DR LOGACT+1~, UPDINV+2~, MONTH+19*
DRGMFR UPDINV+2~, UPDINV+26*
DRNAM LIST+1~, LIST+11*, LIST+12, LIST+13
DRUG UPDINV~, UPDINV+4, UPDINV+13, UPDINV+18, UPDINV+19, UPDINV+22, UPDINV+38, UPDINV+40, MONTH+8, MONTH+10
MONTH+11, MONTH+12, MONTH+14, MONTH+16, MONTH+18
DSPLN LIST+1~, LIST+5*, LIST+6*, LIST+7
DT PHLOC+10, MONTH+7, DEFCTMF+3
DTIME EXCEL+5
DTOUT DTRNG+4~, DTRNG+7, DTRNG+12, EXCEL+3~, EXCEL+8, EXCEL+9!
DTRNG DTRNG+4~, DTRNG+5*, DTRNG+8*, DTRNG+15*, DTRNG+17
DUOUT DTRNG+4~, DTRNG+7, DTRNG+12, EXCEL+3~, EXCEL+8, EXCEL+9!
DUZ CHKEY+1
END DTRNG~, DTRNG+11
ENDBAL UPDINV+2~, MONTH+17*, MONTH+19
ESTOT TOTCRE+1~, TOTCRE+2*, TOTCRE+5*, TOTCRE+6
EXCEL EXCEL+3~, EXCEL+10*, EXCEL+13, EXCEL+15
EXPDT UPDINV+2~, UPDINV+27*
FLG STAVAL+4~, STAVAL+7*, STAVAL+8, STAVAL+9*, STAVAL+10*, STAVAL+11
I STASEL+1~, STASEL+4*, STASEL+5, STASEL+6, STASEL+7, STASEL+8
II STAVAL+4~, STAVAL+8*, STAVAL+9, STAVAL+10
ITEM LOGACT~, LOGACT+2, LOGACT+3, LOGACT+4, UPDINV~, UPDINV+6, UPDINV+11, UPDINV+15, UPDINV+24, UPDINV+26
, UPDINV+27, UPDINV+28, MONTH+1, MONTH+2, MONTH+3
ITM TOTCRE+1~, TOTCRE+2*, TOTCRE+3*, TOTCRE+4, LIST+1~, LIST+2*, LIST+3*, LIST+4, LIST+7, LIST+12*
, LIST+13
LINE LMHDR+1~
LINE(1 LMHDR+3*, LMHDR+4*, LMHDR+11
LINE(2 LMHDR+5*, LMHDR+6*, LMHDR+11
LINE(3 LMHDR+7*, LMHDR+8*, LMHDR+11
LINE(4 LMHDR+9*, LMHDR+10*, LMHDR+11
LIST LIST+1~, LIST+9
LIST( LIST+7*, LIST+11, LIST+12, LIST+13
LOCNAM LMHDR~
MONTH UPDINV+1~, MONTH+7*, MONTH+8, MONTH+11, MONTH+13, MONTH+16, MONTH+18
PHLOC LOGACT~, LOGACT+2, LOGACT+3, LOGACT+4, UPDINV~, UPDINV+6, UPDINV+11, UPDINV+13, UPDINV+15, UPDINV+18
, UPDINV+19, UPDINV+22, UPDINV+24, UPDINV+26, UPDINV+27, UPDINV+28, UPDINV+38, UPDINV+40, MONTH+1, MONTH+2
MONTH+3, MONTH+8, MONTH+10, MONTH+11, MONTH+12, MONTH+14, MONTH+16, MONTH+18, TOTCRE~, TOTCRE+3
, TOTCRE+4, LIST~, LIST+3, LIST+4, LMHDR~, LMHDR+2, LMHDR+3, LMHDR+4, LMHDR+5, LMHDR+6
, LMHDR+7, LMHDR+8, LMHDR+9, LMHDR+10
PREVMON UPDINV+1~, MONTH+8*, MONTH+9, MONTH+10
PSACNT PHLOC+1~, PHLOC+7*, PHLOC+18*, PHLOC+19, PHLOC+20, PHLOC+22
PSACOMB PHLOC+1~, PHLOC+14, LMHDR+1~, LMHDR+3
PSAISIT PHLOC+1~
PSAISITN PHLOC+1~
PSALOC PHLOC+1~, PHLOC+3*, PHLOC+7*, PHLOC+8*, PHLOC+9, PHLOC+10, PHLOC+11, PHLOC+14, PHLOC+17*, PHLOC+19
, PHLOC+25*, PHLOC+26, LMHDR+1~, LMHDR+2*
PSALOCA PHLOC+1~
PSALOCA( PHLOC+14*, PHLOC+16, PHLOC+17, PHLOC+26
PSALOCA("" PHLOC+15
PSALOCN PHLOC+2~, PHLOC+16*, PHLOC+17, PHLOC+18, PHLOC+19, PHLOC+25*, PHLOC+26
PSAMENU PHLOC+2~
PSAMENU( PHLOC+19*, PHLOC+25
PSAOSIT PHLOC+1~, PHLOC+12*
PSAOSITN PHLOC+1~, PHLOC+12*
PSARY STASEL+1~, STAVAL~
PSARY( STASEL+5*, STAVAL+10
QTY UPDINV~, UPDINV+28, UPDINV+38, MONTH+19
SEC DTTM~, DTTM+2
STR STASEL+1~, STASEL+2*, STASEL+4, STASEL+5, STASEL+6
TIMEOUT UPDINV+1~, UPDINV+21*, UPDINV+22
TOTADJ UPDINV+2~, MONTH+17*, MONTH+19
TRANUM UPDINV+1~, UPDINV+29*, UPDINV+30, UPDINV+31
TYPE LOGACT~, UPDINV+1~, UPDINV+8*, UPDINV+9
U DTRNG+8, DTRNG+15
VALMHDR LMHDR+11!
VALMHDR(1 LMHDR+11*
VALMHDR(2 LMHDR+11*
VALMHDR(3 LMHDR+11*
VALMHDR(4 LMHDR+11*
X PHLOC+2~, LOGACT+1~, LOGACT+4*, DTRNG+4~, STASEL+1~, STAVAL~, STAVAL+5, STAVAL+6*, STAVAL+8, STAVAL+9
, STAVAL+10, UPDINV+1~, UPDINV+30*, MONTH+3*, MONTH+13*, LIST+1~
XX LIST+1~, LIST+10*
Y PHLOC+2~, PHLOC+25, LOGACT+1~, DTRNG+4~, DTRNG+7, DTRNG+8, DTRNG+11, DTRNG+12, DTRNG+15, STASEL+1~
, STASEL+13*, STASEL+14*, STASEL+15, UPDINV+1~, LIST+1~, EXCEL+10
Z UPDINV+1~, MONTH+16*, MONTH+17, DEFCTMF+1~, DEFCTMF+3*, DEFCTMF+4, TOTCRE+1~, TOTCRE+4*, TOTCRE+5, LIST+1~
, LIST+4*, LIST+5, LIST+6, LIST+7
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 |  Naked Globals |  Local Variables  | All