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 |  Marked Items  | All
Print Page as PDF
Routine: PSSDDUT2

Package: Pharmacy Data Management

Routine: PSSDDUT2


Information

PSSDDUT2 ;BIR/LDT - Pharmacy Data Management DD Utility ;1/20/16 2:45pm

Source Information

Source file <PSSDDUT2.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 EN^DDIOL  $$GET1^DIQ  ^DIR  
Pharmacy Data Management 2 $$CSDEA^PSSDDUT2  $$MXDAYSUP^PSSUTIL1  

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

Package Total Caller Graph
Pharmacy Data Management 9 PSSCOMMON  ^PS(59.7  ^PSDRUG  PSSDDUT2  PSSDEE  PSSIV ADD  PSSPOIMN  PSSVIDRG  
^PS(52.7  
Inpatient Medications 7 ELECTROLYTES  FORMULARY ALTERNATIVE  HOSPITAL LOCATION  QUICK CODE  TO SERVICE  TO WARD  WARD  
Outpatient Pharmacy 4 ^PS(51.1  FORMULARY ALTERNATIVE  TO SERVICE  TO WARD  
Auto Replenishment Ward Stock 3 FORMULARY ALTERNATIVE  TO SERVICE  TO WARD  
Controlled Substances 3 FORMULARY ALTERNATIVE  TO SERVICE  TO WARD  
Drug Accountability 3 FORMULARY ALTERNATIVE  TO SERVICE  TO WARD  
CMOP 1 FORMULARY ALTERNATIVE  

Entry Points

Name Comments DBIA/ICR reference
DEA ;(Replaces ^PSODEA)
D
DEATBL ; More Help regarding DEA Codes
TBL
SIG ;checks SIG for RXs (Replaces SIG^PSOHELP)
SIGONE
EN
DRUGW ;(Replaces DRUGW^PSOUTLA)
P ;(Replaces ^PSODSRC)
S ;;DESCRIPTION MEANINGS
EDIT ;INPUT XFORM FOR DEA FIELD IN DRUG FILE (Replaces EDIT^PSODEA)
WRITE ;Calls EN^DDIOL to write text
PKIND
CSDEA(CS) ;
CLOZ ;DEL node of DRUG file 50, fields 17.2, 17.3, 17.4
NONF ;Non-Formulary Input Transform DRUG file 50, field 51
ATC ;Executable help for field 212.2, DRUG file 50
ADTM ;ADMINISTRATION SCHEDULE file 51.1, field 1 Executable Help
LBLS ;PHARMACY SYSTEM file 59.7, field 61.2 Executable Help
NFH
STRTH
PSYS1
PSYS2 ;PSS*1.0*95
NCINIT ;
NCINIT1 ;
NCPDPDU ;Drug file 50, field 82
NCPDPQM ;Drug file 50, field 83
NCPDPQM1
NCPDPWRN ;Message called from NCPDPQM
MXDAYSUP ; INPUT TRANSFORM for Drug file (#50), MAXIMUM DAYS SUPPLY Field (#66)
; Input: X - Maximum Days Supply Entered by user
; DA - DRUG file (#50) IEN
IVSOLVOL ; IV Solution VOLUME field INPUT TRANSFORM
UIVFOE ; USED IN THE IV FLUID ORDER ENTRY field INPUT TRANSFORM
CKDUPSOL(OI,IVSOL,IVVOL,DSPMSG) ; Check if there's an ACTIVE Duplicate IV Solution Marked to be Used in the IV Order Dialog
; Input: OI - PHARMACY ORDERABLE ITEM (#50.7) Pointer
; IVSOL - IV SOLUTIONS (#52.7) Pointer
; IVVOL - IV Solution Volume
; DSPMSG - Display Message? (1:Yes/0:No)
DUPVOL(IVSOL1,IVSOL2) ; Check 2 IV Solutions to see if they have Duplicate Volumes
; Cannot check against itself

External References

Name Field # of Occurrence
EN^DDIOL SIG+1, SIGONE+1, DRUGW+1, EDIT+1, EDIT+3, EDIT+4, EDIT+5, EDIT+6, EDIT+7, EDIT+8
EDIT+9, EDIT+12, EDIT+13, WRITE+1, NONF+5, NFHPSYS1PSYS2+1, MXDAYSUP+7, MXDAYSUP+15
MXDAYSUP+20, MXDAYSUP+22, MXDAYSUP+26, MXDAYSUP+29, MXDAYSUP+30, MXDAYSUP+31, MXDAYSUP+32, MXDAYSUP+33, MXDAYSUP+34, IVSOLVOL+4
$$GET1^DIQ PKIND+1, MXDAYSUP+10, MXDAYSUP+13, MXDAYSUP+18, IVSOLVOL+3, UIVFOE+3, CKDUPSOL+13, CKDUPSOL+16, CKDUPSOL+26, CKDUPSOL+29
, CKDUPSOL+30, DUPVOL+4, DUPVOL+6, DUPVOL+8
^DIR MXDAYSUP+35
$$CSDEA^PSSDDUT2 PKIND+1
$$MXDAYSUP^PSSUTIL1 MXDAYSUP+28

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: TO
  • Line Location: TBL+15
Function Call: READ
  • Formatting: !
  • Prompt: "Ok to continue? (Y/N) "
  • Variable: ZXX
  • Timeout: 30
  • Line Location: NCPDPQM1+1
Function Call: WRITE
  • Prompt: !!?5,"Warning: Defaulting NCPDP QUANTITY MULTIPLIER to 1 (one).",!!
  • Line Location: NCPDPQM1+2
Function Call: WRITE
  • Prompt: !,"Y or N must be entered."
  • Line Location: NCPDPQM1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: MXDAYSUP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: MXDAYSUP+15
Function Call: WRITE
  • Prompt: !
  • Line Location: MXDAYSUP+20
Function Call: WRITE
  • Prompt: !
  • Line Location: MXDAYSUP+22
Function Call: WRITE
  • Prompt: !
  • Line Location: MXDAYSUP+26
Function Call: WRITE
  • Prompt: !
  • Line Location: MXDAYSUP+29
Function Call: WRITE
  • Prompt: !
  • Line Location: MXDAYSUP+35
Function Call: WRITE
  • Prompt: !!,"The following IV Solution with the same volume is already linked to"
  • Line Location: CKDUPSOL+25
Function Call: WRITE
  • Prompt: !
  • Line Location: CKDUPSOL+28
Function Call: WRITE
  • Prompt: !," IV Solution: ",$$GET1^DIQ(52.7,DUPSOL,.01)
  • Line Location: CKDUPSOL+30
Function Call: WRITE
  • Prompt: !
  • Line Location: CKDUPSOL+31
Function Call: WRITE
  • Prompt: !,"Only one Active IV Solution with a specific volume can be linked to an"
  • Line Location: CKDUPSOL+32
Function Call: WRITE
  • Prompt: !,"Orderable Item or Dispense Drug when the IV Solution is marked to be used"
  • Line Location: CKDUPSOL+33
Function Call: WRITE
  • Prompt: !,"in the CPRS IV Fluid Order Entry."
  • Line Location: CKDUPSOL+34
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: CKDUPSOL+35
Routine Call
  • DIR
  • Line Location:
    • MXDAYSUP+35

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PSNDF(50.68 - [#50.68] GET1^DIQ
^PS(50.7 - [#50.7] GET1^DIQ
^PS(52.7 - [#52.7] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(59.723 PSYS2+1
^DIC(42 - [#42] PSYS1
^PS(51 - [#51] SIGONE+3
^PS(52.7 - [#52.7] CKDUPSOL+10, CKDUPSOL+19, CKDUPSOL+22
^PS(54 - [#54] DRUGW+1
^PS(59.7 - [#59.7] PSYS1PSYS2+1
^PSDRUG - [#50] PKINDPKIND+2, PKIND+3, NONF+5, NFHNCINIT1+1*, NCINIT1+5, NCPDPDU+5*, MXDAYSUP+3, MXDAYSUP+25
^PSDRUG("AFA" NONF+5

Label References

Name Line Occurrences
$$CKDUPSOL IVSOLVOL+3, UIVFOE+3
$$DUPVOL CKDUPSOL+20, CKDUPSOL+23
EN SIGONE
NCINIT1 NCPDPDU+2
NCPDPQM1 NCPDPQM1+3
NCPDPWRN NCPDPQM+4
PKIND DEA+9
WRITE DEA+6, DEA+8, DEA+9, DEATBL+3, P+4, P+7, P+17, CLOZ+3, NONF+4, ATC+3
ADTM+21, LBLS+3, STRTHNCINIT1+4, NCPDPDU+4, NCPDPWRN+4, NCPDPWRN+5

Naked Globals

Name Field # of Occurrence
^("ND" PKIND
^(0 DRUGW+1, PSYS1PSYS2+1
^(9 SIGONE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CS CSDEA~, CSDEA+1, CSDEA+2
>> D0 PSYS1PSYS2+1
>> D1 PSYS1PSYS2+1
>> DA PKINDPKIND+2, PKIND+3, NONF+5, NFHNCINIT1+1, NCINIT1+5, NCPDPDU+5, MXDAYSUP+3, MXDAYSUP+10
MXDAYSUP+18, MXDAYSUP+25, MXDAYSUP+28, IVSOLVOL+3, UIVFOE+3
>> DA(1 NFH
DEASPHLG MXDAYSUP+18~*, MXDAYSUP+19, MXDAYSUP+21
DIR MXDAYSUP+35~
DIR("A" MXDAYSUP+35*
DIR(0 MXDAYSUP+35*
DRUG CKDUPSOL+6~, CKDUPSOL+16*, CKDUPSOL+22
DSPMSG CKDUPSOL~, CKDUPSOL+24
DT CKDUPSOL+13, DUPVOL+6
DUPSOL CKDUPSOL+6~, CKDUPSOL+7*, CKDUPSOL+19, CKDUPSOL+20*, CKDUPSOL+22, CKDUPSOL+23*, CKDUPSOL+24, CKDUPSOL+29, CKDUPSOL+30, CKDUPSOL+36
II DEA+7*, D!, DEATBL+2*, TBL!, P+5*
IVSOL CKDUPSOL~, CKDUPSOL+10, CKDUPSOL+13, CKDUPSOL+16, CKDUPSOL+20, CKDUPSOL+23
IVSOL1 DUPVOL~, DUPVOL+2
IVSOL2 DUPVOL~, DUPVOL+2, DUPVOL+4, DUPVOL+6, DUPVOL+8
IVVOL CKDUPSOL~, DUPVOL+10
>> MM NONF+5*
NDFMAXDS MXDAYSUP+12~, MXDAYSUP+13*, MXDAYSUP+14, MXDAYSUP+15
OI IVSOLVOL+1~, IVSOLVOL+3*, UIVFOE+2~, UIVFOE+3*, CKDUPSOL~, CKDUPSOL+18, CKDUPSOL+19, CKDUPSOL+26, CKDUPSOL+27, CKDUPSOL+29
OTHSOL CKDUPSOL+6~, CKDUPSOL+7*, CKDUPSOL+19*, CKDUPSOL+20, CKDUPSOL+22*, CKDUPSOL+23
OTHVOL CKDUPSOL+6~, DUPVOL+8*, DUPVOL+10
PSSHLP DEATBL+1!, WRITE+1!
PSSHLP( DEA+7*, DEATBL+2*, P+5*
PSSHLP(1 DEA+1*, DEA+8*, DEATBL+3*, P+1*, P+6*, P+8*, CLOZ+1*, NONF+1*, NONF+3*, ATC+1*
ADTM+1*, LBLS+1*, STRTH*, NCINIT1+2*, NCINIT1+3*, NCPDPDU+4*
PSSHLP(10 ADTM+10*
PSSHLP(11 ADTM+11*
PSSHLP(12 ADTM+12*
PSSHLP(13 ADTM+13*
PSSHLP(14 ADTM+14*
PSSHLP(15 ADTM+15*
PSSHLP(16 ADTM+16*
PSSHLP(17 ADTM+17*
PSSHLP(18 ADTM+18*
PSSHLP(19 ADTM+19*
PSSHLP(2 DEA+2*, P+2*, P+9*, CLOZ+2*, NONF+2*, ATC+2*, ADTM+2*, LBLS+2*, NCINIT1+3*, NCINIT1+4*
NCPDPWRN+1*, NCPDPWRN+4*
PSSHLP(20 ADTM+20*
PSSHLP(3 DEA+3*, P+3*, P+10*, P+11*, NONF+3*, ADTM+3*, NCPDPWRN+2*
PSSHLP(4 DEA+4*, P+12*, P+13*, ADTM+4*, NCPDPWRN+3*
PSSHLP(5 DEA+5*, P+14*, P+15*, ADTM+5*, NCPDPWRN+5*
PSSHLP(6 P+16*, ADTM+6*
PSSHLP(7 ADTM+7*
PSSHLP(8 ADTM+8*
PSSHLP(9 ADTM+9*
>> PSSK PKIND*, PKIND+1*, PKIND+2, PKIND+3, PKIND+5
PSSNQM NCINIT+1!, NCPDPQM+1*, NCPDPQM1+4*
PSSNQM2 NCINIT+1!, NCPDPQM+1*, NCPDPQM1+4*
PSSNQM3 NCINIT+1!, NCPDPQM+1*, NCPDPQM+2*
PSSONDU NCINIT+1!, NCINIT1+5*, NCPDPDU+2, NCPDPDU+3, NCPDPDU+5*
PSSONQM NCINIT+1!, NCINIT1+5*, NCPDPDU+3, NCPDPDU+5*
>> SHEMP NONF+5*
>> SIG SIGONE*, SIGONE+2*
STR STRTH*!
VAPRDIEN MXDAYSUP+10~*, MXDAYSUP+11, MXDAYSUP+13
X SIG+1!, SIGONESIGONE+1!, SIGONE+2, SIGONE+3, DRUGW+1!, EDIT+1!, EDIT+3!, EDIT+4!, EDIT+5!
EDIT+6!, EDIT+7!, EDIT+8!, EDIT+9!, EDIT+11, EDIT+12, EDIT+13, NONF+6*, STRTHNCPDPDU+1*
NCPDPDU+3, NCPDPQM+2!, NCPDPQM+3*, NCPDPQM+4, NCPDPQM1+2*, NCPDPQM1+4!, MXDAYSUP+4*, MXDAYSUP+6, MXDAYSUP+7!, MXDAYSUP+11
MXDAYSUP+14, MXDAYSUP+15!, MXDAYSUP+19, MXDAYSUP+20!, MXDAYSUP+21, MXDAYSUP+22!, MXDAYSUP+26!, MXDAYSUP+28, MXDAYSUP+35~, IVSOLVOL+2!
IVSOLVOL+3!, IVSOLVOL+4*, UIVFOE+1, UIVFOE+3!
Y SIGONE+3*, MXDAYSUP+35~
Z0 SIGONE*, SIGONE+3, EN!, DRUGW+1*
Z1 SIGONE*, SIGONE+1, SIGONE+2, SIGONE+3*, EN!, DRUGW+1*
ZXX NCPDPQM+1~, NCPDPQM1+1*, NCPDPQM1+2, NCPDPQM1+3, NCPDPQM1+4

Marked Items

Name Field # of Occurrence
$T(D+II DEA+7
$T(S+II+1 P+5
$T(TBL+II DEATBL+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 |  Marked Items  | All