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

Package: Drug Accountability

Routine: PSACON2


Information

PSACON2 ;BIR/LTL-Display Connected Drug and Procurement History - CONT'D ;7/23/97

Source Information

Source file <PSACON2.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
VA Fileman 3 (,COMMA,NOW)^%DTC  ^DIC  ^DIR  
IFCAP 1 ($$UNITCODE,$$VENNAME)^PRCPUX1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSACON  

Entry Points

Name Comments DBIA/ICR reference
HEADER
HIS
END
LOOP
DEV

External References

Name Field # of Occurrence
^%DTC HIS+5
COMMA^%DTC LOOP+10
NOW^%DTC HIS+5
^%ZIS DEV
HOME^%ZIS DEV+1
^%ZISC END+2
^%ZTLOAD DEV+1
$$S^%ZTLOAD HEADER+1
^DIC HIS+8
^DIR HIS+2, HIS+3, END+1, HEADER
$$UNITCODE^PRCPUX1 LOOP+7
$$VENNAME^PRCPUX1 LOOP+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: HIS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HIS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HIS+8
Function Call: WRITE
  • Prompt: !,"Sorry, no history for that particular Control Point.",!
  • Line Location: HIS+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: ?32,Y
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: PSALN,!!,"Average ordered/month: ",X,?34,"TOTAL ORD: ",$J($G(PSAQ),3),?50,"TOTAL $: "
  • Line Location: LOOP+10
Function Call: WRITE
  • Prompt: X
  • Line Location: LOOP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"."
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,$E($P($G(^PSDRUG(+PSA,0)),U),1,40)
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: "=> from ",$G(PSADT),?60,"PAGE: ",PSAPG,!,PSALN,!,"PO #",?10,"VENDOR",?33,"PO DATE",?45,"QTY ORD",?57,"COST",?70,"QTY RECD",!,PSALN,!
  • Line Location: HEADER+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • DIC
  • Line Location:
    • HIS+8
Routine Call
  • DIR
  • Line Location:
    • HIS+2
    • HIS+3
    • END+1
    • HEADER
Routine Call
  • %ZIS
  • Line Location:
    • DEV

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRC(441 - [#441] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HIS+4, LOOP+4
^PRC(441 - [#441] PSACON2+9, HIS+1, HIS+6, HIS+7, HIS+9, LOOP+1, LOOP+10
^PRC(442 LOOP+1, LOOP+2, LOOP+3, LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+9
^PSDRUG - [#50] HEADER+2
^VA(200 - [#200] HEADER+1

Label References

Name Line Occurrences
DEV HIS+7
END HIS+2, HIS+8, HIS+9, DEV, DEV+1, LOOP+1
HEADER LOOP, LOOP+1

Naked Globals

Name Field # of Occurrence
^(0 LOOP+6
^(2 LOOP+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV~*
%ZIS("A" DEV*
>> DA(1 HIS+8*
DIC HIS+8*!
DIC("W" HIS+8*
DIC(0 HIS+8*
DIR HIS+2!, HIS+3!, END+1!, HEADER!
DIR("A" HIS+2*, HIS+3*, END+1*
DIR("B" HIS+2*, HIS+3*
DIR(0 HIS+2*, HIS+3*, END+1*, HEADER*
DIRUT HIS~, HIS+2, HIS+3
DUZ HEADER+1
IO("Q" DEV!, DEV+1, END+2!
IOF END, HEADER+2
IOP DEV~
IOSL LOOP+1
IOST END, END+1, HEADER
POP DEV~
PSA END+3!, HEADER+2
PSA(1 PSACON2+9, HIS+1, HIS+6, HIS+7, HIS+8, HIS+9, LOOP+1, LOOP+5, LOOP+10
PSA(10 HIS+1*, HIS+2
PSA(11 LOOP*, LOOP+1*, LOOP+2, LOOP+3, LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOP+10
PSA(12 LOOP+5*, LOOP+6, LOOP+7, LOOP+8, LOOP+9
PSA(13 HIS+3*, HIS+5, LOOP+1
PSA(14 LOOP+1*, LOOP+4
PSA(9 HIS*, HIS+1*, HIS+6*, HIS+7, HIS+8*, HIS+9, LOOP+1, LOOP+10
PSAB HIS~, LOOP+8*, LOOP+10
PSACON HIS!, END+3!
PSAD HIS~, HIS+5*, LOOP+10
PSADT HIS~, HIS+4*, HEADER+3
PSALN LOOP~, LOOP+10, HEADER+2*, HEADER+3
PSAOUT PSACON2+9, HIS~*, HIS+2*, HIS+8*, DEV*, DEV+1*, LOOP+1, END+1, HEADER*, HEADER+1*
PSAPG LOOP~*, HEADER, HEADER+2*, HEADER+3
PSAQ HIS~, LOOP+6*, LOOP+10
PSARPDT LOOP~
U LOOP+1, LOOP+2, LOOP+3, LOOP+6, LOOP+7, LOOP+8, LOOP+9, HEADER+1, HEADER+2
>> X HIS+5, LOOP+10*
>> X1 HIS+5*
>> X2 HIS+5*, LOOP+10*
>> X3 LOOP+10*
>> Y HIS+2, HIS+3, HIS+4, HIS+6*, HIS+8, LOOP*, LOOP+1, LOOP+4*, LOOP+9*, HEADER
ZTDESC DEV+1~*, HEADER+1
ZTDTH DEV+1~
ZTIO DEV+1~
>> ZTQUEUED END+2
>> ZTREQ END+2*
ZTRTN DEV+1~*
ZTSAVE DEV+1~
ZTSAVE("PSA*" DEV+1*
ZTSK DEV+1~, HEADER+1
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