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 ;29-May-2012 15:18;PLS

Source Information

Source file <PSSPOIMN.m>

Call Graph

Call Graph Total: 11

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

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 ;
REM
MOREH ;
SETX ;
COM
MORE ;Show Additives and Solutions

External References

Name Field # of Occurrence
DD^%DT MAS+7, MODT+1
^DIC MCHA+1, LOOK+1
IX^DIC BEG+7
FILE^DICN MCHAN+12
^DIE REM+2, MCH+1, MCHAN+6, MCHAN+12, LOOK+1
$$GET1^DIQ END+3, END+4
^DIR PSSPOIMN+9, MAS+8, DISP+1, DISPO, MCHA, MCHA+2, MCHAN+3, LOOK+2, MORE+9, MOREZ+1
, MOREH+1
$$PSJDF^PSNAPIS MAS+1, TMP+1
$$VAGN^PSNAPIS MAS+1
DRG^PSSDGUPD END+4
DRG^PSSHUIDG END
^PSSPOIM1 REM+2, MCH+1, MCHAN+6, MCHAN+11, LOOK+1
EN^PSSPOIM1 COM
END^PSSPOIM1 END+5
MESS^PSSPOIM1 PSSPOIMN+10
OTHER^PSSPOIM1 REM+1, MCH
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+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: BEG+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: BEG+4
Function Call: WRITE
  • Prompt: !,$C(7),"Another person is editing this one."
  • Line Location: BEG+6
Function Call: WRITE
  • Prompt: !,$C(7),"Another person is editing this one."
  • Line Location: BEG+7
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+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK+2
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+2
    • MCH+1
    • MCHAN+6
    • MCHAN+12
    • LOOK+1
Routine Call
  • DIC
  • Line Location:
    • MCHA+1
    • LOOK+1
Routine Call
  • DIR
  • Line Location:
    • PSSPOIMN+9
    • MAS+8
    • DISP+1
    • DISPO
    • MCHA
    • MCHA+2
    • MCHAN+3
    • LOOK+2
    • MORE+9
    • MOREZ+1
    • MOREH+1
Routine Call
  • DIC
  • Line Location:
    • BEG+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
^PS(50.606 - [#50.606] Classic Fileman Calls
^PS(50.7 - [#50.7] Classic Fileman Calls
^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+5, 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
^PS(59 - [#59] END+2
^PS(59.7 - [#59.7] PSSPOIMN+9
^PSDRUG - [#50] BEG, BEG+7, MAS+1, MAS+4, END, TMP, TMP+2, TMP+3, SETX+1!
^PSDRUG("AND" TMP
^TMP($J REM+1, REM+2, TMP!, TMP+2, TMP+3*, DISP, DISPO+1, DISPO+2, MCH, MCH+1

Label References

Name Line Occurrences
BEG MAS+8, MAS+11
COM REM+2, MCH+1, MCHAN+6, MCHAN+12, LOOK+1
DISP REM+1, MCH
DISPO DISPO+1
END BEG+7, MAS+8
LOOK MCHA, MCHA+3, LOOK+1
MCH MAS+10
MCHA REM+3
MCHAN MCHAN+4, MCHAN+8, MCHAN+12, LOOK+2
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+5*, MCHAN+6
>> D BEG+4*
>> DA MAS+1*, REM+2*, TMP+1*, MCH+1*, MCHAN+6*, MCHAN+12*, LOOK+1*
DD MCHAN+12!
DIC BEG+4!*, MCHA+1!*, MCHAN+12!*, LOOK+1!*
DIC("A" BEG+4*, MCHA+1*
DIC("DR" MCHAN+12*
DIC("S" BEG+1!, BEG+7!, LOOK+1*
DIC(0 BEG+4*, MCHA+1*, MCHAN+12*, LOOK+1*
DIE REM+2*!, MCH+1!*, MCHAN+6!*, MCHAN+12*, LOOK+1*
DIR PSSPOIMN+9!, MAS+8!, DISP+1!, DISPO!, MCHA!, MCHA+2!, MCHAN+2!, LOOK+2!, MORE+9!, MOREZ+1!
, MOREH+1!
DIR("A" PSSPOIMN+9*, MAS+8*, DISPO*, MCHA*, MCHA+2*, MCHAN+2*, LOOK+2*, MORE+9*, MOREZ+1*, MOREH+1*
DIR("B" MAS+8*, MCHA*, MCHA+2*, MCHAN+2*, LOOK+2*
DIR(0 PSSPOIMN+9*, MAS+8*, DISP+1*, DISPO*, MCHA*, MCHA+2*, MCHAN+2*, LOOK+2*, 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+12!
>> 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+5, MCHAN+12
>> DR REM+2*, MCH+1*, MCHAN+6*, MCHAN+12*, LOOK+1*
>> DTOUT BEG+7, DISPO, MCHA, MCHA+1, MCHA+3, MCHAN+3
>> DUOUT BEG+7, MCHA+1, MCHA+3, MCHAN+3
DVER END+1~, END+3*, END+4
>> FFF TMP+2*
IOF DISP+1, MORE+10, MOREH+2
IOSL DISP, MORE+14, MORE+20
>> K MAS+1*, TMP+1*
>> MATCH REM+2, DISP*, DISPO+2*, MCH+1
NEWSP BEG+1!, MAS~, MCHAN+12*, LOOK+1*
>> NODE MAS+1*, TMP
>> NOFLAG TMP+2*, TMP+3
>> 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+7*, MAS+1, MAS+4, END, END+4, REM+2, MCH+1, MCHAN+6, MCHAN+12
, LOOK+1, SETX+1, MORE+1, MORE+4, MORE+5, MORE+13, MORE+19
PSITEM BEG+1!, MAS~, MAS+4*, REM+2*, MCH+1*, MCHAN+6*, MCHAN+12*, LOOK+1*, COM, SETX+1
>> PSMAN MCHAN+10*
PSMASTER BEG+1!, MAS, MAS+8, MAS+11
>> PSNAME BEG+7*, MAS+4, DISP+1, MCHAN+1
>> PSNO REM+2, MCH+1, MCHAN+5*, MCHAN+6, MCHAN+8, MCHAN+12, LOOK+1
>> PSOUT BEG+4*, MAS*, REM+2, DISP*, DISPO*, DISPO+3*, MCH+1, MCHAN+5, MCHAN+6, MCHAN+7
, MCHAN+12, LOOK+1
PSSCROSS BEG+1!
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+9*!, PSSPOIMN+10!
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*
>> PSSP REM+2*, MCH+1*, MCHAN+6*, LOOK+1*
PSTOP BEG+1!, MAS~
PSVAR1 BEG+1!, MAS~, MCHAN+12*
SPHOLD BEG+1!, MAS~, MCHAN+5*, MCHAN+12
>> SPT DISP*
>> STOP MCHAN+5*, MCHAN+6*, MCHAN+8, MCHAN+9
>> TMPTR TMP+2*
>> TT DISP*
>> VAGEN MAS+1*, MCHAN, MCHAN+2
>> X MAS+1*, MAS+2, TMP+1*, MCHAN+4, MCHAN+5*, MCHAN+12*
XX END+1~*, END+2*, END+3, END+4
Y BEG+7, MAS+7*, MAS+8, DISP, DISP+1, DISPO, DISPO+1, DISPO+2, MCHA, MCHA+1
, MCHA+3, MCHAN+3, MCHAN+5, MCHAN+12, LOOK+1, LOOK+2, 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