Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call