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

Package: Inpatient Medications

Routine: PSJUTL3


Information

PSJUTL3 ;BIR/MLM-MISC. INPATIENT UTILITIES ;29 OCT 01 / 4:29 PM

Source Information

Source file <PSJUTL3.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA FileMan 5 (C,NOW)^%DTC  ^DIC  ^DIE  $$GET1^DIQ  ^DIR  
Inpatient Medications 3 LOG^PSIVORAL  NAME^PSJBCMA1  ($$INSTLDT,CNIV)^PSJUTL1  
Kernel 3 ^%ZTLOAD  $$FMTE^XLFDT  $$PATCH^XPDUTL  
List Manager 1 FULL^VALM1  
MailMan 1 ^XMD  
Pharmacy Data Management 1 ($$L,UL)^PSSLOCK  

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

Package Total Caller Graph
Inpatient Medications 8 PSGOEH0  PSGOEH1  PSIVOE  PSJ LM DRUG LOOK  PSJ LM VIEW PROVIDER  PSJ200A  PSJHL4  PSJUTL1  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ;
QUEIV ;
XTMP ;
MARKIV(DFN) ;
VF(ON,DFN,PSJPINIT,PSJNOW) ; Update verifying pharm and date fields.
SEND(START) ;
DMACTN ;Entry point for DM hidden action from backdoor LM OE *353
PICKDR ;Entry point for Selecting a diff Drug
SHOWDR ;Entry point to Display Drug hidden action info (via defaulted IFN)
DMOITXT ;Get Pharmacy Orderable Item drug text fields
FULL ;Screen is full, pause
FSCRN ;User Wait as screen if full
INACDATE() ;Check Inactive date
VPACTN
PICKVP
SHOWVP
DELNV(DFN,ORDER) ; Deletes/Resets Nurse Verification in PHARMACY PATIENT file (#55), used by BCMA

External References

Name Field # of Occurrence
C^%DTC XTMP+2
NOW^%DTC QUEIV+3, MARKIV+5, SEND+2
^%ZTLOAD EN+3
^DIC PICKDR+2, PICKVP+2
^DIE VF+4
$$GET1^DIQ SHOWDR+4, SHOWDR+7, SHOWDR+8, SHOWVP+3, SHOWVP+4, SHOWVP+5
^DIR FSCRN+1
LOG^PSIVORAL VF+7
NAME^PSJBCMA1 MARKIV+18
$$INSTLDT^PSJUTL1 MARKIV+6
CNIV^PSJUTL1 QUEIV+8
$$L^PSSLOCK MARKIV+4
UL^PSSLOCK MARKIV+26
FULL^VALM1 DMACTN+2, VPACTN+1
$$FMTE^XLFDT SEND+3, SEND+4
^XMD SEND+12
$$PATCH^XPDUTL EN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: #
  • Line Location: DMACTN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PICKDR+2
Function Call: WRITE
  • Prompt: "Return to continue or"
  • Line Location: PICKDR+2
Function Call: WRITE
  • Prompt: !!,"** NO Dispense Drug entered for this order",!
  • Line Location: SHOWDR+2
Function Call: WRITE
  • Prompt: "** MULTIPLE DISP DRUGS **"
  • Line Location: SHOWDR+3
Function Call: WRITE
  • Prompt: !,"DRUG NAME: ",$$GET1^DIQ(50,IFN_",","GENERIC NAME")," (IEN: "_IFN_")"
  • Line Location: SHOWDR+4
Function Call: WRITE
  • Prompt: !," ORDERABLE ITEM TEXT: ",!
  • Line Location: SHOWDR+6
Function Call: WRITE
  • Prompt: !," MESSAGE: ",$$GET1^DIQ(50,IFN_",","MESSAGE")
  • Line Location: SHOWDR+7
Function Call: WRITE
  • Prompt: !," QTY DISP MESSAGE: ",$$GET1^DIQ(50,IFN_",","QUANTITY DISPENSE MESSAGE"),!
  • Line Location: SHOWDR+8
Function Call: WRITE
  • Prompt: " ",TEXT,!
  • Line Location: DMOITXT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PICKVP+2
Function Call: WRITE
  • Prompt: !,"Return to continue or"
  • Line Location: PICKVP+2
Function Call: WRITE
  • Prompt: !,"No provider entered for this order",!
  • Line Location: SHOWVP+2
Function Call: WRITE
  • Prompt: #,"PROVIDER TITLE: ",$$GET1^DIQ(200,IFN_",","TITLE")
  • Line Location: SHOWVP+3
Function Call: WRITE
  • Prompt: !!,"PROVIDER REMARKS: ",$$GET1^DIQ(200,IFN_",","REMARKS")
  • Line Location: SHOWVP+4
Function Call: WRITE
  • Prompt: !!,"PROVIDER SPECIALTY: ",$$GET1^DIQ(200,IFN_",","PROVIDER CLASS"),!," "_$$GET1^DIQ(200,IFN_",","SERVICE/SECTION")
  • Line Location: SHOWVP+5
Routine Call
  • DIC
  • Line Location:
    • PICKDR+2
    • PICKVP+2
Routine Call
  • DIE
  • Line Location:
    • VF+4
Routine Call
  • DIR
  • Line Location:
    • FSCRN+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls,  GET1^DIQ
^PSDRUG - [#50] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.7 - [#50.7] DMOITXT+2, DMOITXT+3
^PS(51.7 - [#51.7] DMOITXT+4, INACDATE+1
^PS(52.6 - [#52.6] DMACTN+18
^PS(55 - [#55] QUEIV+4, QUEIV+5, MARKIV+7*, MARKIV+8, MARKIV+9, MARKIV+13, MARKIV+14, MARKIV+19*, MARKIV+20, MARKIV+24
, DELNV+3, DELNV+4*, DELNV+5*, DELNV+6*
^PSDRUG - [#50] SHOWDR+5
^XTMP("PSJ NEW PERSON" XTMP+1, XTMP+3*, MARKIV+22*, SEND+5

Label References

Name Line Occurrences
$$INACDATE DMOITXT+4
DMOITXT SHOWDR+6
FSCRN FULL+1
FULL SHOWDR+7, SHOWDR+8, DMOITXT+4
MARKIV QUEIV+7
PICKDR DMACTN+21, PICKDR+5, SHOWDR+2
PICKVP SHOWVP+2, SHOWVP+7
SEND QUEIV+9
SHOWDR DMACTN+5, DMACTN+12, DMACTN+19, DMACTN+20, PICKDR+4
SHOWVP VPACTN+3
VF MARKIV+25
XTMP QUEIV+1

Naked Globals

Name Field # of Occurrence
^(0 MARKIV+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % QUEIV+3, MARKIV+5, SEND+2
DA VF+1!, VF+3*
DA(1 VF+3*
DDD DMOITXT+1~, DMOITXT+4*
DFN QUEIV+2~, QUEIV+4*, QUEIV+5, QUEIV+7, QUEIV+8, MARKIV~, MARKIV+4, MARKIV+7, MARKIV+8, MARKIV+9
, MARKIV+13, MARKIV+14, MARKIV+19, MARKIV+20, MARKIV+22, MARKIV+24, MARKIV+25, MARKIV+26, VF~, VF+3
, DMACTN+16, DELNV~, DELNV+3, DELNV+4, DELNV+5, DELNV+6
DIC PICKDR+2!*, PICKVP+2!*
DIC("T" PICKDR+2*, PICKVP+2*
DIC(0 PICKDR+2*, PICKVP+2*
DIE VF+1!, VF+3*
DIFROM SEND+1~
DIR SHOWDR+1~, FSCRN+1!, SHOWVP+1~
DIR("A" FSCRN+1*
DIR(0 FSCRN+1*
DR VF+1!, VF+4*
DT XTMP+2, XTMP+3
DUZ SEND+12
GL DMACTN+1~, DMACTN+11*, DMACTN+18*
IFN DMACTN+1~, DMACTN+4*, DMACTN+5*, DMACTN+11*, DMACTN+18*, PICKDR+1~, PICKDR+3*, SHOWDR+2, SHOWDR+4, SHOWDR+5
, SHOWDR+7, SHOWDR+8, VPACTN+2~*, PICKVP+1~, PICKVP+3*, SHOWVP+2, SHOWVP+3, SHOWVP+4, SHOWVP+5
IOF FSCRN+1
IOSL FULL+1
LINE SEND+1~
LINE(1 SEND+3*
LINE(2 SEND+4*
LINE(3 SEND+6*
LINE(4 SEND+7*
LINE(5 SEND+8*
LINE(6 SEND+9*
>> NAME DMACTN+5, DMACTN+7, DMACTN+14
NODD DMACTN+1~, DMACTN+4*, DMACTN+11*, DMACTN+18*, DMACTN+20, SHOWDR+3
NXT DMACTN+1~, DMACTN+4*, DMACTN+11*, DMACTN+18*, SHOWDR+3
NXTROOT DMACTN+1~, DMACTN+11*, DMACTN+18*
OIPTR SHOWDR+1~, SHOWDR+5*, SHOWDR+6, DMOITXT+2, DMOITXT+3
ON MARKIV+3~, MARKIV+8*, MARKIV+9, MARKIV+13, MARKIV+14, MARKIV+19, MARKIV+20, MARKIV+22, MARKIV+24, MARKIV+25
, VF~, VF+3, VF+5, DMACTN+9, DMACTN+15, DMACTN+16
ON55 MARKIV+3~, VF+5*
ORDER DELNV~, DELNV+3, DELNV+4, DELNV+5, DELNV+6
>> P("6" VPACTN+2
>> PSGDRG DMACTN+5, DMACTN+7, DMACTN+20
>> PSGOEEWF DMACTN+8*, DMACTN+9*, DMACTN+10, DMACTN+11, DMACTN+15*, DMACTN+16*, DMACTN+17, DMACTN+18
>> PSGORD DMACTN+8, DMACTN+9
>> PSGPR VPACTN+2
PSIVACT MARKIV+3~, VF+2*
PSIVAL VF+6*, VF+7!
PSIVALT VF+5*, VF+7!
PSIVREA VF+5*, VF+7!
PSJIDT MARKIV+3~, MARKIV+6*, MARKIV+10
PSJIEN MARKIV+12~, MARKIV+16!, MARKIV+18, MARKIV+19, MARKIV+22
PSJNOW MARKIV+3~, MARKIV+5*, MARKIV+6, MARKIV+25, VF~, VF+4
PSJPINIT MARKIV+3~, MARKIV+11*, MARKIV+21*, MARKIV+23, MARKIV+25, VF~, VF+4
PSJX QUEIV+2~, QUEIV+5*, QUEIV+6, QUEIV+7, MARKIV+14~, MARKIV+16*, MARKIV+21*, MARKIV+22
QQ DMACTN+1~, DMACTN+10*, DMACTN+11, DMACTN+17*, DMACTN+18
QUIT DMOITXT+1~, DMOITXT+4, FULL+1, FSCRN+1*
ROOT DMACTN+1~, DMACTN+10*, DMACTN+11, DMACTN+17*, DMACTN+18
START QUEIV+2~, QUEIV+3*, QUEIV+9, SEND~, SEND+3
STOP SEND+1~, SEND+2*, SEND+4
TEXT DMOITXT+1~, DMOITXT+4*
TEXTPTR DMOITXT+1~, DMOITXT+3*, DMOITXT+4, INACDATE+1
TXT DMOITXT+1~, DMOITXT+2*, DMOITXT+3
U QUEIV+5, XTMP+3, MARKIV+7, MARKIV+11, MARKIV+15, MARKIV+17, MARKIV+18, MARKIV+19, MARKIV+20, MARKIV+21
, MARKIV+22, MARKIV+24, DMACTN+18
>> VALMBCK DMACTN+22*, VPACTN+4*
X XTMP+3, MARKIV+3~, MARKIV+9*, MARKIV+10, MARKIV+11
X1 XTMP+2~*
X2 XTMP+2~*
XMDUZ SEND+1~, SEND+11*
XMSUB SEND+1~, SEND+10*
XMTEXT SEND+1~, SEND+10*
XMY SEND+1~
XMY( SEND+12*
XX MARKIV+12~, MARKIV+13*, MARKIV+14, MARKIV+19, MARKIV+22
XX1 MARKIV+12~, MARKIV+14*, MARKIV+15, MARKIV+17, MARKIV+18, MARKIV+19*, MARKIV+21, MARKIV+22
Y PICKDR+1~, PICKDR+2, PICKDR+3, SHOWDR+9!, FSCRN+1, PICKVP+1~, PICKVP+2, PICKVP+3, SHOWVP+6!
>> ZTDESC EN+2*
>> ZTDTH EN+2*
>> ZTIO EN+2*
>> ZTRTN EN+2*
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