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

Package: Pharmacy Data Management

Routine: PSSDEE1


Information

PSSDEE1 ;BIR/WRT - PDM match routine ;09/01/98

Source Information

Source file <PSSDEE1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Pharmacy Data Management 3 MAS^PSSPOIMN  ^PSSREF  UNMDRUG^PSSUTIL  
National Drug File 1 $$PSJDF^PSNAPIS  
VA FileMan 1 ^DIE  

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

Package Total Caller Graph
Pharmacy Data Management 1 PSSDEE  

Entry Points

Name Comments DBIA/ICR reference
DSPY
GETDF
MESSAGE ; REMATCH PROMPT
RSET
PART2
ORDITM
OICK
OIKILL
KMTCH
OIMESS
CKIV
SOLIO
SOLIO1
CP
SOLMESS ;I FLG3=1,PSSANS'["I",$D(^TMP($J,"SOL")) W !,"You have SOLUTIONS that need to rematched to ORDERABLE ITEM." F NUM=0:0 S NUM=$O(^TMP($J,"SOL",NUM)) Q:'NUM S ENTRY=NUM D SOI^PSSVIDRG K ^TMP($J,"SOL",NUM)
ADDIO
ADDIO1
CP1
ADDMESS ;I FLG3=1,PSSANS'["I",$D(^TMP($J,"ADD")) W !!,"You have ADDITIVES that need to rematched to ORDERABLE ITEM." F NUM=0:0 S NUM=$O(^TMP($J,"ADD",NUM)) Q:'NUM S ENTRY=NUM D ADDOI^PSSVIDRG K ^TMP($J,"ADD",NUM)
ADDMESS1 ;I FLG3=0,$D(^TMP($J,"ADD")) W !!,"The following ADDITIVES need to rematched to ORDERABLE ITEM, however you do",!,"not have the ""PSJI MGR"" IV key. These must be matched before they made be used.",! D MESSA
MESSA
SOLMESS1 ;I FLG3=0,$D(^TMP($J,"SOL")) W !!,"The following SOLUTIONS need to rematched to ORDERABLE ITEM, however you do",!,"not have the ""PSJI MGR"" IV key. These must be matched before they may be used.",! D MESSS
MESSS
ADDMESS2 ;I FLG3=1,PSSANS["I",$D(^TMP($J,"ADD")) W !!,"The following ADDITIVES need to rematched to ORDERABLE ITEM.",!,"These must be matched before they made be used.",! D MESSA
SOLMESS2 ;I FLG3=1,PSSANS["I",$D(^TMP($J,"SOL")) W !!,"The following SOLUTIONS need to rematched to ORDERABLE ITEM.",!,"These must be matched before they may be used.",! D MESSS

External References

Name Field # of Occurrence
^DIE KMTCHCPCP1
$$PSJDF^PSNAPIS GETDF
MAS^PSSPOIMN OICK
^PSSREF RSET+3
UNMDRUG^PSSUTIL RSET+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"points to ",$P(^("ND"),"^",2)," in the National Drug file.",!
  • Line Location: DSPY+0
Function Call: WRITE
  • Prompt: !,"This drug cannot be matched because it has an INACTIVE date.",!
  • Line Location: RSET+1
Function Call: WRITE
  • Prompt: !!,"Deleting Local Possible Dosages.."
  • Line Location: KMTCH+2
Function Call: WRITE
  • Prompt: !!,"** You are NOW in the ORDERABLE ITEM matching for the dispense drug. **",!
  • Line Location: OIMESS+0
Function Call: WRITE
  • Prompt: !!,"The following ADDITIVES need to rematched to ORDERABLE ITEM, however you do",!,"not have the ""PSJI MGR"" IV key. These must be matched before they made be used.",!
  • Line Location: ADDMESS1+0
Function Call: WRITE
  • Prompt: !?3,$P(^TMP($J,"ADD",NUM),"^")
  • Line Location: MESSA+0
Function Call: WRITE
  • Prompt: !!,"The following SOLUTIONS need to rematched to ORDERABLE ITEM, however you do",!,"not have the ""PSJI MGR"" IV key. These must be matched before they may be used.",!
  • Line Location: SOLMESS1+0
Function Call: WRITE
  • Prompt: !?3,$P(^TMP($J,"SOL",NUM),"^")
  • Line Location: MESSS+0
Function Call: WRITE
  • Prompt: !!,"The following ADDITIVES need to rematched to ORDERABLE ITEM.",!,"These must be matched before they made be used.",!
  • Line Location: ADDMESS2+0
Function Call: WRITE
  • Prompt: !!,"The following SOLUTIONS need to rematched to ORDERABLE ITEM.",!,"These must be matched before they may be used.",!
  • Line Location: SOLMESS2+0
Routine Call
  • DIE
  • Line Location:
    • KMTCH
    • CP
    • CP1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
^PS(52.6 - [#52.6] Classic Fileman Calls
^PS(52.7 - [#52.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] DSPY+1, SOLIO1ADDIO1
^PS(50.7 - [#50.7] DSPY+1, SOLIO1ADDIO1
^PS(52.6 - [#52.6] ADDIOADDIO1CP1
^PS(52.7 - [#52.7] SOLIOSOLIO1CP
^PS(59.7 - [#59.7] OICK
^PSDRUG - [#50] DSPYDSPY+1, MESSAGE+1, MESSAGE+2, MESSAGE+3, RSETRSET+1, RSET+2*, PART2ORDITM
OICKOIKILLKMTCH+2!
^PSDRUG("AQ" RSET+2!
^TMP($J CKIV!, CP*, CP1*, MESSAMESSS
^XMB("NETNAME" OICK

Label References

Name Line Occurrences
ADDIO1 ADDIO
CKIV KMTCH
CP SOLIO1
CP1 ADDIO1
GETDF DSPY
KMTCH OIKILL
OICK ORDITM
OIMESS OICK
PART2 MESSAGE+1
SOLIO1 SOLIO

Naked Globals

Name Field # of Occurrence
^("ND" DSPY

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADDITM ADDIO*, ADDIO1
>> ADDNM ADDIO1*, CP1
>> APU ORDITM*
>> BBC SOLIO*, SOLIO1CP, ADDIO*, ADDIO1CP1
>> DA DSPYDSPY+1, GETDF*, MESSAGE+1, MESSAGE+2, MESSAGE+3, RSETRSET+1, RSET+2*, PART2
, CP*, CP1*
>> DIE KMTCH*, CP*, CP1*
>> DISPDRG GETDFRSET+2, ORDITMOICKOIKILLKMTCH+2, SOLIOADDIO
>> DR KMTCH*, CP*, CP1*
DT RSET+1
>> FLGKY ORDITM
>> FLGMTH DSPY*
>> FLGNDF OIKILL
>> IVDF SOLIO1*, CP, ADDIO1*, CP1
>> IVDFPTR SOLIO1*, ADDIO1*
>> K GETDF*
>> NDE DSPY*
>> NEWDF CPCP1
>> NUM MESSA*, MESSS*
>> OLDDF DSPY+1*, GETDF*
>> PC1 DSPY*, GETDF
>> PC3 DSPY*, GETDF
>> PSDRUG( OIKILL
PSIEN OICK*!
PSMASTER OICK*!
PSNAME OICK*!
PSNID RSET*, RSET+2!
>> PSNP RSET+1*
PSSINSTX KMTCH+2!
>> PSSOITM DSPY+1*
>> PTR DSPY+1*
>> SOLITM SOLIO*, SOLIO1
>> SOLNM SOLIO1*, CP
>> X GETDF*
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