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

Package: Pharmacy Data Management

Routine: PSSPOIMN


Information

PSSPOIMN ;BIR/RTR/WRT - Orderable Item manual create ;09/01/98

Source Information

Source file <PSSPOIMN.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 6 DD^%DT  ^DIC  FILE^DICN  ^DIE  $$GET1^DIQ  ^DIR  
Pharmacy Data Management 5 $$CKDUPSOL^PSSDDUT2  DRG^PSSDGUPD  DRG^PSSHUIDG  (,EN,END,MESS,OTHER)^PSSPOIM1  EN2^PSSUTIL  
National Drug File 1 ($$PSJDF,$$VAGN)^PSNAPIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Data Management 2 PSS MAINTAIN ORDERABLE ITEMS  PSSDEE1  

Entry Points

Name Comments DBIA/ICR reference
TMP
DISP
MAS
SET ;
END
LOOK ;
DISPO
MCH ;
MCHA
MODT ;
MCHAN
BEG
MOREZ ;
CKDUPVOL(OIIEN,DRUGIEN) ; Checks OI to see if it will have duplicate IV Solution Volumes
; Input: OIIEN - PHARMACY ORDERABLE ITEM File (#50.7) IEN
; DRUGIEN - DRUG File (#50) IEN
REM
MOREH ;
SETX ;
COM
MORE ;Show Additives and Solutions

External References

Name Field # of Occurrence
DD^%DT MAS+7, MODT+1
^DIC BEG+4, MCHA+1, LOOK+4
FILE^DICN MCHAN+16
^DIE REM+8, MCH+8, MCHAN+10, MCHAN+16, LOOK+10
$$GET1^DIQ END+3, END+4, CKDUPVOL+7, CKDUPVOL+9, CKDUPVOL+10, CKDUPVOL+11
^DIR PSSPOIMN+8, MAS+8, DISP+1, DISPO, MCHA, MCHA+2, MCHAN+3, LOOK+11, MORE+9, MOREZ+1
, MOREH+1
$$PSJDF^PSNAPIS MAS+1, TMP+1
$$VAGN^PSNAPIS MAS+1
$$CKDUPSOL^PSSDDUT2 CKDUPVOL+10
DRG^PSSDGUPD END+4
DRG^PSSHUIDG END
^PSSPOIM1 REM+5, MCH+5, MCHAN+7, MCHAN+15, LOOK+7
EN^PSSPOIM1 COM
END^PSSPOIM1 END+5
MESS^PSSPOIM1 PSSPOIMN+9
OTHER^PSSPOIM1 REM+1, MCH+1
EN2^PSSUTIL SETX+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"Orderable Item Auto-Create has not been completed yet!",!
  • Line Location: PSSPOIMN+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: BEG+2
Function Call: WRITE
  • Prompt: !,$C(7),"Another person is editing this one."
  • Line Location: BEG+4
Function Call: WRITE
  • Prompt: !!,PSNAME," is already matched to",!!,?5,$P($G(^PS(50.7,POINT,0)),"^")_" "_$P($G(^PS(50.606,+$P($G(^(0)),"^",2),0)),"^"),!
  • Line Location: MAS+4
Function Call: WRITE
  • Prompt: !,"This Orderable Item has an Inactive Date. *** "_Y,!,"To modify the Orderable Item, use the 'Edit Orderable Item' option."
  • Line Location: MAS+7
Function Call: WRITE
  • Prompt: !
  • Line Location: MAS+8
Function Call: WRITE
  • Prompt: !,TT," ",$P($G(^PS(50.7,SPT,0)),"^")_" "_$P($G(^PS(50.606,+$P($G(^(0)),"^",2),0)),"^")
  • Line Location: DISP+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,?3,"Dispense Drug -> ",PSNAME,!
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPO+0
Function Call: WRITE
  • Prompt: !!,?5,"INVALID NUMBER"
  • Line Location: DISPO+1
Function Call: WRITE
  • Prompt: !?3,"Dosage Form -> ",DOSEFORM,!!
  • Line Location: MCHA+0
Function Call: WRITE
  • Prompt: !!?3,"Dose Form -> ",$G(Y(0,0))
  • Line Location: MCHA+1
Function Call: WRITE
  • Prompt: !
  • Line Location: MCHA+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: MCHAN+0
Function Call: WRITE
  • Prompt: !,"VA Generic Name -> ",VAGEN,!
  • Line Location: MCHAN+0
Function Call: WRITE
  • Prompt: !,?3,"Dosage Form -> ",DOSEFORM,!,?3,"Dispense Drug -> ",PSNAME,!!
  • Line Location: MCHAN+1
Function Call: WRITE
  • Prompt: $C(7),!!?5,"??"
  • Line Location: MCHAN+4
Function Call: WRITE
  • Prompt: !!!?3,"Enter ?? for Pharmacy Orderable Item List!",!
  • Line Location: LOOK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK+11
Function Call: WRITE
  • Prompt: !,"Match Complete!",!
  • Line Location: COM+0
Function Call: WRITE
  • Prompt: !!!,"There are "_$S('$G(PSSMORS):"IV Additives",'$G(PSSMORA):"IV Solutions",1:"IV Additives and IV Solutions")_" tied to this Dispense Drug."
  • Line Location: MORE+7
Function Call: WRITE
  • Prompt: !,"By rematching the Dispense Drug to a new Pharmacy Orderable Item, all of these",!,$S('$G(PSSMORS):"IV Additives",'$G(PSSMORA):"IV Solutions",1:"IV Additives and IV Solutions")_" will also be rematched to the new Orderable Item.",!
  • Line Location: MORE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: MORE+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MORE+10
Function Call: WRITE
  • Prompt: !,$S('$G(PSSMORA):"IV Solutions",'$G(PSSMORS):"IV Additives",1:"IV Additives/Solutions"),!,"------------"
  • Line Location: MORE+11
Function Call: WRITE
  • Prompt: "----------"
  • Line Location: MORE+11
Function Call: WRITE
  • Prompt: !
  • Line Location: MORE+17
Function Call: WRITE
  • Prompt: !
  • Line Location: MOREZ+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MOREH+2
Function Call: WRITE
  • Prompt: ?50,$G(Y)
  • Line Location: MODT+1
Routine Call
  • DIE
  • Line Location:
    • REM+8
    • MCH+8
    • MCHAN+10
    • MCHAN+16
    • LOOK+10
Routine Call
  • DIC
  • Line Location:
    • BEG+4
    • MCHA+1
    • LOOK+4
Routine Call
  • DIR
  • Line Location:
    • PSSPOIMN+8
    • MAS+8
    • DISP+1
    • DISPO
    • MCHA
    • MCHA+2
    • MCHAN+3
    • LOOK+11
    • MORE+9
    • MOREZ+1
    • MOREH+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls,  GET1^DIQ
^PS(50.606 - [#50.606] Classic Fileman Calls
^PS(50.7 - [#50.7] Classic Fileman Calls,  GET1^DIQ
^PS(52.7 - [#52.7] GET1^DIQ
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] MAS+4, DISP, MCHA+3
^PS(50.7 - [#50.7] MAS+4, MAS+7, TMP, DISP, MCHAN+6, SET+1, SETX+1
^PS(52.6 - [#52.6] MORE+4, MORE+13, MORE+15, MORE+16
^PS(52.7 - [#52.7] MORE+5, MORE+19, MORE+21, MORE+22, CKDUPVOL+5
^PS(59 - [#59] END+2
^PS(59.7 - [#59.7] PSSPOIMN+8
^PSDRUG - [#50] BEG, BEG+4, MAS+1, MAS+4, END, TMP, TMP+2, TMP+3, SETX+1!
^PSDRUG("AND" TMP
^TMP($J REM+1, REM+4, TMP!, TMP+2, TMP+3*, DISP, DISPO+1, DISPO+2, MCH+1, MCH+4

Label References

Name Line Occurrences
$$CKDUPVOL REM+7, MCH+7, MCHAN+9, LOOK+9
BEG MAS+8, MAS+11
COM REM+8, MCH+8, MCHAN+10, MCHAN+16, LOOK+10
DISP REM+1, MCH+1
DISPO DISPO+1
END BEG+4, MAS+8
LOOK MCHA, MCHA+3, LOOK+7
MCH MAS+10
MCHA REM+9
MCHAN MCHAN+4, MCHAN+12, MCHAN+16, LOOK+11
MODT MORE+16, MORE+22
MORE MAS+8
MOREH MORE+14, MORE+20
MOREZ MORE+12
REM MAS+8
SET MAS+8
SETX MAS+8
TMP MAS+3, REM

Naked Globals

Name Field # of Occurrence
^(0 MAS+4, DISP, MORE+21
^(2 MAS+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> COMM MCHAN+6*, MCHAN+7, MCHAN+9, MCHAN+10
>> DA MAS+1*, REM+8*, TMP+1*, MCH+8*, MCHAN+10*, MCHAN+16*, LOOK+10*
DD MCHAN+16!
DIC BEG+2!*, MCHA+1!*, MCHAN+16!*, LOOK+3!*
DIC("A" BEG+2*, MCHA+1*
DIC("DR" MCHAN+16*
DIC("S" BEG+1!, BEG+4!, LOOK+4*
DIC(0 BEG+2*, MCHA+1*, MCHAN+16*, LOOK+3*
DIE REM+8*!, MCH+8!*, MCHAN+10!*, MCHAN+16*, LOOK+10*
>> DILOCKTM BEG+4
DIR PSSPOIMN+8!, MAS+8!, DISP+1!, DISPO!, MCHA!, MCHA+2!, MCHAN+2!, LOOK+11!, MORE+9!, MOREZ+1!
, MOREH+1!
DIR("A" PSSPOIMN+8*, MAS+8*, DISPO*, MCHA*, MCHA+2*, MCHAN+2*, LOOK+11*, MORE+9*, MOREZ+1*, MOREH+1*
DIR("B" MAS+8*, MCHA*, MCHA+2*, MCHAN+2*, LOOK+11*
DIR(0 PSSPOIMN+8*, MAS+8*, DISP+1*, DISPO*, MCHA*, MCHA+2*, MCHAN+2*, LOOK+11*, MORE+9*, MOREZ+1*
, MOREH+1*
DMFU END+1~, END+3*, END+4
DNSNAM END+1~, END+4*
DNSPORT END+1~, END+4*
DO MCHAN+16!
>> DOSA TMP+1*
DOSEFORM BEG+1!, MAS~, MAS+2*, MCHA, MCHA+1, MCHA+2, MCHA+3*, MCHAN+1
DOSEFV BEG+1!, MAS~, MAS+1*, TMP+1
>> DOSEPTR MAS+1*, MAS+2*, MCHA+1*, MCHA+3, MCHAN+6, MCHAN+16
>> DR REM+8*, MCH+8*, MCHAN+10*, MCHAN+16*, LOOK+10*
DRUGIEN CKDUPVOL~, CKDUPVOL+5, CKDUPVOL+11
DT CKDUPVOL+9
>> DTOUT BEG+4, DISPO, MCHA, MCHA+1, MCHA+3, MCHAN+3
>> DUOUT BEG+4, MCHA+1, MCHA+3, MCHAN+3
DUPVOL CKDUPVOL+4~*, CKDUPVOL+5, CKDUPVOL+17*, CKDUPVOL+18
DVER END+1~, END+3*, END+4
>> FFF TMP+2*
IOF DISP+1, MORE+10, MOREH+2
IOSL DISP, MORE+14, MORE+20
IVSOL CKDUPVOL+4~*, CKDUPVOL+5*, CKDUPVOL+7, CKDUPVOL+9, CKDUPVOL+10
>> K MAS+1*, TMP+1*
>> MATCH REM+4, REM+5, REM+7, REM+8, DISP*, DISPO+2*, MCH+4, MCH+5, MCH+7, MCH+8
NEWSP BEG+1!, MAS~, MCHAN+16*, LOOK+7*, LOOK+9, LOOK+10
>> NODE MAS+1*, TMP
>> NOFLAG TMP+2*, TMP+3
OIIEN CKDUPVOL~, CKDUPVOL+10, CKDUPVOL+11
>> OTH TMP*, TMP+1
POINT BEG+1!, MAS~, MAS+4*, MAS+6, MAS+7, MAS+8, TMP, SET+1
>> PSCNT TMP*, TMP+3*
>> PSIEN BEG, BEG+4*, MAS+1, MAS+4, END, END+4, REM+7, REM+8, MCH+7, MCH+8
, MCHAN+9, MCHAN+10, MCHAN+16, LOOK+9, LOOK+10, SETX+1, MORE+1, MORE+4, MORE+5, MORE+13
, MORE+19
PSITEM BEG+1!, MAS~, MAS+4*, REM+8*, MCH+8*, MCHAN+10*, MCHAN+16*, LOOK+10*, COM, SETX+1
>> PSMAN MCHAN+14*
PSMASTER BEG+1!, MAS, MAS+8, MAS+11
>> PSNAME BEG+4*, MAS+4, DISP+1, MCHAN+1
>> PSNO REM+5, MCH+5, MCHAN+5*, MCHAN+7, MCHAN+12, MCHAN+16, LOOK+7
>> PSOUT BEG+2*, MAS*, REM+2, REM+5, DISP*, DISPO*, DISPO+3*, MCH+2, MCH+5, MCHAN+6
, MCHAN+7, MCHAN+9*, MCHAN+11, MCHAN+16, LOOK+7
PSSCROSS BEG+1!
PSSDONE PSSPOIMN+7~, REM+3*, REM+4, REM+8*, MCH+3*, MCH+4, MCH+8*, LOOK+1~, LOOK+5*, LOOK+6
, LOOK+10*
PSSDXL SET+1*, SETX+1, SETX+2!
PSSDXLF MAS+9!, SET+1*, SETX+1, SETX+2!
>> PSSHUIDG END
PSSIAD MAS+6~, MAS+7*
PSSITE PSSPOIMN+8*!, PSSPOIMN+9!
PSSMODT MORE+2~, MORE+16*, MORE+22*, MODT+1
PSSMORA MORE+2~, MORE+3*, MORE+4*, MORE+6, MORE+7, MORE+8, MORE+9, MORE+11, MORE+12
PSSMORS MORE+2~, MORE+3*, MORE+5*, MORE+6, MORE+7, MORE+8, MORE+9, MORE+11, MORE+18
PSSMZ MORE+2~, MORE+13*, MORE+15, MORE+16, MORE+19*, MORE+21, MORE+22
PSSMZOUT MORE+2~, MORE+3*, MORE+12, MORE+13, MORE+14, MORE+19, MORE+20, MOREZ+1, MOREH+1*
PSSNOOI LOOK+11, LOOK+12!
>> PSSP REM+5*, MCH+5*, MCHAN+7*, LOOK+7*
PSSQUIT CKDUPVOL+4~
PSTOP BEG+1!, MAS~
PSVAR1 BEG+1!, MAS~, MCHAN+16*
SPHOLD BEG+1!, MAS~, MCHAN+5*, MCHAN+6, MCHAN+16
>> SPT DISP*
>> STOP MCHAN+5*, MCHAN+6, MCHAN+7*, MCHAN+10*, MCHAN+12, MCHAN+13
>> TMPTR TMP+2*
>> TT DISP*
>> VAGEN MAS+1*, MCHAN, MCHAN+2
>> X MAS+1*, MAS+2, TMP+1*, MCHAN+4, MCHAN+5*, MCHAN+16*
XX END+1~*, END+2*, END+3, END+4
Y BEG+4, MAS+7*, MAS+8, DISP, DISP+1, DISPO, DISPO+1, DISPO+2, MCHA, MCHA+1
, MCHA+3, MCHAN+3, MCHAN+5, MCHAN+16, LOOK+6, LOOK+7, LOOK+11, MORE+9, MOREH+1, MODT+1*!
Y(0 MCHA+1
>> ZZ TMP*, TMP+2, TMP+3
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