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

Package: Controlled Substances

Routine: PSDNMBA


Information

PSDNMBA ;DOIFO/CMS - CSM Balance Adjustments ;18 Dec 02

Source Information

Source file <PSDNMBA.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  ($$CJ,$$REPEAT)^XLFSTR  
VA Fileman 3 NOW^%DTC  D^DIQ  ^DIR  
Controlled Substances 1 (DATE,INPS,PLOC,PLOCA)^PSDNMU  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD NM CS ADJ  

Entry Points

Name Comments DBIA/ICR reference
END
DQQ
EOR ;PSDNMBA - CSM Balance Adjustments; 18 DEC 02
ST ;CS Monitoring OPTION ENTRY
PRT ;Report print
PHD ;
PAGE ;
HD ;Report heading
DQ ;Report Run

External References

Name Field # of Occurrence
NOW^%DTC HD+8
^%ZIS ST+17
^%ZISC DQQ
^%ZTLOAD ST+21
D^DIQ DQ+17
^DIR ST+9, ST+14, PAGE+2
DATE^PSDNMU ST+13
INPS^PSDNMU ST+7
PLOC^PSDNMU ST+10
PLOCA^PSDNMU ST+11
$$FMTE^XLFDT HD+8
$$CJ^XLFSTR HD+2, HD+5, HD+6
$$REPEAT^XLFSTR HD+9, PHD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"This report lists Drug Accountability Balance Adjustments"
  • Line Location: ST+3
Function Call: WRITE
  • Prompt: !,?5,"made for the Inpatient Site Pharmacy Location(s) entered.",!!
  • Line Location: ST+4
Function Call: WRITE
  • Prompt: !!,"<< Drug Accountability Transaction Type, Balance Adjustment, not defined! >>"
  • Line Location: ST+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ST+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ST+14
Function Call: WRITE
  • Prompt: " <No report>",!
  • Line Location: ST+15
Function Call: WRITE
  • Prompt: !!,?9,"This report should be queued to run during non-peak hours.",!
  • Line Location: ST+16
Function Call: WRITE
  • Prompt: " <No device selected.>"
  • Line Location: ST+17
Function Call: WRITE
  • Prompt: !!?5,"TASK #",$G(ZTSK)," QUEUED!",!
  • Line Location: ST+21
Function Call: WRITE
  • Prompt: @IOF,$$CJ^XLFSTR("CS Monitoring - Balance Adjustments Report",IOM)
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(PSDY,IOM)
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Balance Adjustments made: "_$P(PSDSD,U,2)_" thru "_$P(PSDED,U,2),IOM)
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,"Report Run: "_$E($$FMTE^XLFDT(%),1,18),?70,"PAGE: ",PSDPG
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !!,?10,"Compiling report, please wait ..."
  • Line Location: DQ+4
Function Call: WRITE
  • Prompt: !!,?10,"<<<< NO DATA FOUND >>>>",!
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !!,"Pharmacy Location: ",PSDIV
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !,?19,"NO DATA FOUND"
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: !!,"TRANSACTOR: ",PSDS
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: !,$P(PSDY,U,1),?10,$P(PSDY,U,2),?33,$P(PSDY,U,3),?40,$P(PSDY,U,4)
  • Line Location: PRT+19
Function Call: WRITE
  • Prompt: !,?10,"Reason: ",$P(PSDY,U,5)
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: !
  • Line Location: DQQ+0
Function Call: WRITE
  • Prompt: !,"Trans. #",?10,"Date",?28,"Quantity",?40,"Drug"
  • Line Location: PHD+1
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("_",IOM)
  • Line Location: PHD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+2
Routine Call
  • DIR
  • Line Location:
    • ST+9
    • ST+14
    • PAGE+2
Routine Call
  • %ZIS
  • Line Location:
    • ST+17

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.81 - [#58.81] DQ+9, DQ+13, DQ+14
^PSD(58.84 - [#58.84] ST+5, DQ+5
^PSDRUG - [#50] DQ+15
^TMP("PSDNMBA" DQ+3!, DQ+7*, DQ+18*, PRT+2, PRT+7, PRT+11, PRT+12, PRT+16, PRT+17, DQQ!
^VA(200 - [#200] DQ+16

Label References

Name Line Occurrences
DQ ST+22
DQQ DQ+5, PRT+2
END ST+6, ST+7, ST+9, ST+10, ST+13, ST+15, ST+17
HD PRT+3, PRT+6, PRT+8, PRT+13, PRT+18
PAGE PRT+8, PRT+13, PRT+18
PHD PRT+3, PRT+6, PRT+8, PRT+13, PRT+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ST+1~, HD+1~, HD+8, DQ+2~
%ZIS ST+2~, ST+17*
DFN DQ+1~
DIC ST+2~
DIR ST+2~, ST+14!, PAGE+1~
DIR("A" ST+8*, ST+14*
DIR("B" ST+9*, ST+14*
DIR(0 ST+9*, ST+14*, PAGE+2*
DIROUT ST+2~
DIRUT ST+2~, PAGE+1~, PAGE+3
DTOUT ST+2~, ST+9, PAGE+1~, PAGE+3
DUOUT ST+2~, PAGE+1~
IO ST+22
IO("Q" ST+17!, ST+18, ST+22, ST+23!
IOF HD+2
IOM HD+2, HD+5, HD+6, HD+9, PHD+2
IOP ST+23!
IOSL PRT+8, PRT+13, PRT+18
IOST DQ+4, PAGE+2
POP ST+2~, ST+17
PSDA ST+1~, ST+5*, ST+6, DQ+1~, DQ+5*, DQ+13
PSDCII ST+1~, DQQ!
PSDDTN ST+1~, ST+13*
PSDED ST+1~, HD+6, DQ+9, DQQ!
PSDFD DQ+1~, DQ+8*, DQ+9*, DQ+13, DQ+17
PSDI DQ+1~
PSDIDIV ST+1~, ST+7, ST+8, HD+3, DQQ!
PSDIDT DQ+1~
PSDIV DQ+1~, PRT+3*, PRT+5*, PRT+7*, PRT+9, PRT+11, PRT+12, PRT+16, PRT+17
PSDOUT ST+1~, ST+7, ST+10, ST+13, DQ+1~, PRT+1*, PRT+7, PRT+8, PRT+12, PRT+13
, PRT+16, PRT+18, PAGE+3*
PSDP DQ+1~, DQ+6*, DQ+7*, DQ+10*, DQ+11*, DQ+13, DQ+18
PSDPG HD+7*, HD+8, DQ+1~, PRT+1*, PRT+3*
PSDPLOC ST+1~, HD+4, DQQ!
PSDPLOC( DQ+7, DQ+11, DQ+18
PSDPLOC(0 ST+10
PSDRG DQ+1~, DQ+15*, DQ+18
PSDS DQ+1~, DQ+17*, DQ+18, PRT+10*, PRT+11, PRT+12*, PRT+14, PRT+16, PRT+17
PSDSD ST+1~, ST+13, HD+6, DQ+8, DQQ!
PSDSITE ST+1~
PSDUZ DQ+1~, DQ+16*, DQ+18
PSDX DQ+2~, DQ+12*, DQ+13*, DQ+14, DQ+18, PRT+15*, PRT+16*, PRT+17
PSDX0 DQ+2~, DQ+14*, DQ+15, DQ+16, DQ+18
PSDX2 DQ+2~
PSDXOR1 DQ+2~
PSDY HD+1~, HD+3*, HD+4*, HD+5, DQ+2~, PRT+17*, PRT+19, PRT+20
U ST+8, HD+3, HD+6, DQ+15, DQ+16, DQ+18, PRT+19, PRT+20
X ST+1~, ST+9, HD+1~, DQ+2~, PAGE+1~
Y ST+1~, ST+10, ST+11, ST+15, HD+1~, DQ+2~, DQ+17*, PAGE+1~
ZTDESC ST+2~, ST+19*
ZTIO ST+2~
ZTRTN ST+2~, ST+19*
ZTSAVE ST+2~
ZTSAVE("PSDED" ST+20*
ZTSAVE("PSDIDIV" ST+20*
ZTSAVE("PSDPLOC(" ST+20*
ZTSAVE("PSDSD" ST+20*
ZTSK ST+2~, ST+21
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All