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 Total: 4

Package Total Call Graph
Pharmacy Data Management 2 MAS^PSSPOIMN  ^PSSREF  
National Drug File 1 $$PSJDF^PSNAPIS  
VA Fileman 1 ^DIE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Barcode Scan 1 BPBSUPD1  
Pharmacy Data Management 1 PSSDEE  

Entry Points

Name Comments DBIA/ICR reference
ADDIO1
ORDITM
MESSA
OIKILL
ADDIO
NULL1
MESSS
PART2
SETNULL
GETDF
CKIV
OICK
SOLIO
KMTCH
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
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
CP
MESSAGE ; REMATCH PROMPT
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)
SOLIO1
RSET
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
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
OIMESS
CP1
DSPY
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)

External References

Name Field # of Occurrence
^DIE KMTCH, CP, CP1
$$PSJDF^PSNAPIS GETDF
MAS^PSSPOIMN OICK
^PSSREF RSET+3

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, SOLIO1, ADDIO1
^PS(50.7 - [#50.7] DSPY+1, SOLIO1, ADDIO1
^PS(52.6 - [#52.6] ADDIO, ADDIO1, CP1
^PS(52.7 - [#52.7] SOLIO, SOLIO1, CP
^PS(59.7 - [#59.7] OICK
^PSDRUG - [#50] DSPY, DSPY+1, MESSAGE+1, MESSAGE+2, MESSAGE+3, RSET, RSET+1, RSET+2*, SETNULL*, PART2
, ORDITM, OICK, OIKILL, KMTCH+2!
^PSDRUG("AQ" RSET+2!
^PSDRUG("AQ1" RSET+2!
^PSDRUG("VAPN" NULL1!
^TMP($J CKIV!, CP*, CP1*, MESSA, MESSS
^XMB("NETNAME" OICK

Label References

Name Line Occurrences
ADDIO1 ADDIO
CKIV KMTCH
CP SOLIO1
CP1 ADDIO1
GETDF DSPY
KMTCH OIKILL
NULL1 SETNULL
OICK ORDITM
OIMESS OICK
PART2 MESSAGE+1
SETNULL RSET+2
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*, SOLIO1, CP, ADDIO*, ADDIO1, CP1
>> DA DSPY, DSPY+1, GETDF*, MESSAGE+1, MESSAGE+2, MESSAGE+3, RSET, RSET+1, RSET+2*, SETNULL
, NULL1, PART2, CP*, CP1*
>> DIE KMTCH*, CP*, CP1*
>> DISPDRG GETDF, RSET+2, ORDITM, OICK, OIKILL, KMTCH+2, SOLIO, ADDIO
>> 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 CP, CP1
>> 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*
ZXZX SETNULL*, NULL1*!
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