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

Package: Inpatient Medications

Routine: PSIVLTR1


Information

PSIVLTR1 ;BIR/PR-PRINT LABEL TRACKER BY PATIENT ;2 NOV 92 / 9:34 AM

Source Information

Source file <PSIVLTR1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 EN^DIQ1  ^DIR  
Inpatient Medications 1 $$ENDTC1^PSGMI  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 3 PSIVPGE  PSIVPR  PSIVVW1  

Entry Points

Name Comments DBIA/ICR reference
PAUSE ;
H2 ;Header for Unique ID #s
H ;Header
K ;
1 ;Get num labels, track, daily usage
P ;Print out info
ERROR ;
DATA(DFN,ON) ;Get the information

External References

Name Field # of Occurrence
EN^DIQ1 DATA+8
^DIR PAUSE+1
$$ENDTC1^PSGMI DATA+11, DATA+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No label log to report.",!
  • Line Location: DATA+2
Function Call: WRITE
  • Prompt: $$ENDTC1^PSGMI($G(PSJD2(55.0105,PSJBLN,4,"I"))),?18,$G(PSJD2(55.0105,PSJBLN,.01,"I"))
  • Line Location: DATA+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DATA+11
Function Call: WRITE
  • Prompt: ?40,$G(PSJD2(55.0105,PSJBLN,5,"E"))
  • Line Location: DATA+12
Function Call: WRITE
  • Prompt: ?50,$S(X:"YES",1:"NO"),?56,$G(PSJD2(55.0105,PSJBLN,2,"E"))
  • Line Location: DATA+13
Function Call: WRITE
  • Prompt: ?66,$$ENDTC1^PSGMI($G(PSJD2(55.0105,PSJBLN,1,"I")))
  • Line Location: DATA+14
Function Call: WRITE
  • Prompt: !
  • Line Location: DATA+15
Function Call: WRITE
  • Prompt: !,COU,?3,DATE,!,?18,OG,?32,$E($P(^VA(200,USER,0),U),1,15),?50,NUMLAB
  • Line Location: P+1
Function Call: WRITE
  • Prompt: ?60,TRA
  • Condition for execution: $P(N,U,3)=1!($P(N,U,3)=5)
  • Line Location: P+1
Function Call: WRITE
  • Prompt: ?77,CD
  • Condition for execution: $P(N,U,3)=1
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !!,"LABEL LOG:",!!,"#",?3,"DATE/TIME",?18,"ACTION",?32,"USER",?47,"#LABELS",?60,"TRACK",?75,"COUNT",!
  • Line Location: H+1
Function Call: WRITE
  • Prompt: "="
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: I=80
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !!,"Unique IDs for this order:",!!
  • Line Location: H2+1
Function Call: WRITE
  • Prompt: "Label Date/Time",?18,"Unique ID",?40,"Status",?50,"Count",?56,"BCMA Action - Date/Time",!!
  • Line Location: H2+2
Function Call: WRITE
  • Prompt: !!?40,"Bag(s) DISPENSED in IV Room: ",$P(^PS(59.5,$P($P(N,U,8)," "),0),U)
  • Line Location: ERROR+1
Function Call: WRITE
  • Prompt: !?40,"Bag(s) ",OG_" in IV Room: ",$P(^PS(59.5,$P($P(N,U,8)," ",2),0),U)
  • Line Location: ERROR+2
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" 1+2
^PS(55 - [#55] DATA+2, DATA+3, DATA+4, DATA+6
^PS(59.5 - [#59.5] ERROR+1, ERROR+2
^VA(200 - [#200] P+1

Label References

Name Line Occurrences
1 DATA+3
ERROR P+1
H DATA+2
H2 DATA+5, DATA+10
P 1+3
PAUSE DATA+5, DATA+10, P+1

Naked Globals

Name Field # of Occurrence
^( DATA+3
^(0 1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CD K+1!, 1+3*, P+1, P+2!
>> COU DATA+2*, DATA+3*, P+1
DA DATA+1~, DATA+7!, DATA+8*
DATE K+1!, 1+2*, P+1, P+2!
DFN DATA~, DATA+2, DATA+3, DATA+4, DATA+6, DATA+8
DIC DATA+1~, DATA+7!, DATA+8*
DIQ DATA+1~, DATA+7!, DATA+8*
DIQ(0 DATA+8*
DIR PAUSE+1~
DIR(0 PAUSE+1*
DR DATA+1~, DATA+7!, DATA+8*
>> DTOUT PAUSE+1
>> DUOUT PAUSE+1
>> I H+1*
IOSL DATA+10, P+1
IOST DATA+2
>> L DATA+3*
>> N 1+2*, 1+3, P+1, ERROR+1, ERROR+2
NUMLAB K+1!, 1+3*, P+1, P+2!
>> OG 1+2*, P+1, ERROR+2
ON DATA~, DATA+2, DATA+3, DATA+4, DATA+9
>> PSIVSCR DATA+2*, DATA+10, P+1
PSJBLN DATA+1~, DATA+5*, DATA+6*, DATA+8, DATA+9, DATA+11, DATA+12, DATA+13, DATA+14
PSJD1 DATA+1~
PSJD2 DATA+1~, DATA+7!
PSJD2( DATA+9, DATA+11, DATA+12, DATA+13, DATA+14
PSJDNE DATA+2!, DATA+3, PAUSE+1*
TRA K+1!, 1+3*, P+1, P+2!
U 1+2, 1+3, P+1, ERROR+1, ERROR+2
>> USER 1+2*, P+1
USEROG P+2!
X DATA+1~, DATA+13*
>> Y 1+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All