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

Package: Inpatient Medications

Routine: PSIVRDC


Information

PSIVRDC ;BIR/MV - RECYCLE, CANCEL, DESTROY ACTIONS ;30 Aug 2001 4:21 PM

Source Information

Source file <PSIVRDC.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Inpatient Medications 4 ADSOL^PSIVLB  ^PSIVLTR  ^PSIVSTAT  ^PSIVXU  
VA Fileman 4 NOW^%DTC  ^DIC  ^DIE  ^DIR  
Kernel 1 $$UP^XLFSTR  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJI RETURN BY BARCODE ID  

Entry Points

Name Comments DBIA/ICR reference
TXT(X) ;Expand the set of code to text.
EN ;
UPDID(PSJID,PSJRDC)
GTID(PSJRDC) ;
DSPLY ;Display the patient name, additives/solutions.

External References

Name Field # of Occurrence
NOW^%DTC UPDID+16
^DIC UPDID+3
^DIE UPDID+18
^DIR EN+5, GTID+2, UPDID+12
ADSOL^PSIVLB DSPLY+5
^PSIVLTR UPDID+20
^PSIVSTAT UPDID+20
^PSIVXU EN+2
DEM^VADPT DSPLY+3
$$UP^XLFSTR GTID+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"...Invalid ID number. Please try again.",!!
  • Line Location: UPDID+2
Function Call: WRITE
  • Prompt: !!,"...Invalid ID number. Please try again.",!!
  • Line Location: UPDID+4
Function Call: WRITE
  • Prompt: !
  • Line Location: UPDID+5
Function Call: WRITE
  • Prompt: !,"...The ID entered was marked as "
  • Line Location: UPDID+8
Function Call: WRITE
  • Prompt: $S(PSJLB(4)="C":"Completed.",PSJLB(4)="G":"Given.",PSJLB(4)="I":"Infusing.",PSJLB(4)="S":"Stop.",PSJLB(7)="CA":"Cancel.",PSJLB(7)="DT":"Destroy.",PSJLB(7)="RC":"Recycle.",1:""),!
  • Line Location: UPDID+9
Function Call: WRITE
  • Prompt: !,"...Barcode ID did not match. No action was taken."
  • Line Location: UPDID+14
Function Call: WRITE
  • Prompt: !
  • Line Location: UPDID+14
Function Call: WRITE
  • Prompt: !,"...Done!",!!
  • Line Location: UPDID+21
Function Call: WRITE
  • Prompt: !,VADM(1),!
  • Line Location: DSPLY+6
Function Call: WRITE
  • Prompt: !,^(X,0)
  • Line Location: DSPLY+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPLY+8
Routine Call
  • DIE
  • Line Location:
    • UPDID+18
Routine Call
  • DIC
  • Line Location:
    • UPDID+3
Routine Call
  • DIR
  • Line Location:
    • EN+5
    • GTID+2
    • UPDID+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(55 - [#55] UPDID+2
^TMP("PSIVLB" DSPLY+2!, DSPLY+7, DSPLY+9!

Label References

Name Line Occurrences
$$TXT GTID+1, UPDID+12
DSPLY UPDID+11
GTID EN+5
UPDID GTID+1

Naked Globals

Name Field # of Occurrence
^( DSPLY+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % UPDID+18
ACTION UPDID+1~, UPDID+20*
CHK EN+1~
DA EN+3~, UPDID+1~, UPDID+15!, UPDID+17*, UPDID+19!
DA(1 UPDID+3*, UPDID+17*
DFN UPDID+1~, UPDID+10*, UPDID+17
DIC EN+3~, UPDID+1~, UPDID+3*, UPDID+15!, UPDID+19!
DIC(0 UPDID+3*
DIE UPDID+15!, UPDID+17*, UPDID+19!
DIR EN+3~, EN+5!, GTID+1!, UPDID+12!, UPDID+15!
DIR("?" GTID+2*
DIR("A" EN+5*, GTID+1*, UPDID+12*
DIR("B" UPDID+12*
DIR(0 EN+5*, GTID+1*, UPDID+12*
DIROUT GTID+1, UPDID+13, UPDID+19!
DR UPDID+15!, UPDID+18*, UPDID+19!
DTOUT GTID+1, UPDID+13, UPDID+19!
DUOUT GTID+1, UPDID+13, UPDID+19!
LABELS UPDID+1~, UPDID+20*
ON UPDID+1~, UPDID+10*
PSGDT EN+1~
PSIVNOL UPDID+1~, UPDID+20*
PSIVPL EN+1~
PSIVPR EN+1~
PSIVSITE EN+1~
PSIVSN EN+1~
PSJADSOL DSPLY+1~
PSJAS DSPLY+1~, DSPLY+5*
PSJID UPDID~, UPDID+2, UPDID+3, UPDID+10, UPDID+12, UPDID+14, UPDID+17, DSPLY+4
PSJL DSPLY+1~, DSPLY+4*
PSJLB UPDID+1~
PSJLB( UPDID+6*
PSJLB(2 UPDID+10
PSJLB(4 UPDID+7, UPDID+9
PSJLB(7 UPDID+7, UPDID+9
PSJLBN DSPLY+1~, DSPLY+4*
PSJLEN DSPLY+1~, DSPLY+4*
PSJLN DSPLY+1~, DSPLY+4*
PSJRDC GTID~, GTID+1, UPDID~, UPDID+12, UPDID+18, UPDID+20
PSJSYSL EN+1~
PSJSYSP EN+1~
PSJSYSP0 EN+1~
PSJSYSU EN+1~
U UPDID+6
VA DSPLY+1~
VADM DSPLY+1~
VADM(1 DSPLY+6
X EN+3~, GTID+1, UPDID+1~, UPDID+3*, UPDID+6*, UPDID+14, DSPLY+1~, DSPLY+7*, TXT~, TXT+1
>> XQUIT EN+2
Y EN+3~, EN+5, UPDID+1~, UPDID+4
Y(0 UPDID+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All