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

Package: Pharmacy Data Management

Routine: PSSPOIM2


Information

PSSPOIM2 ;BIR/RTR/WRT-Orderable Item manual create - initial create ; 09/01/98 7:12

Source Information

Source file <PSSPOIM2.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 5 C^%DTC  ^DIC  FILE^DICN  ^DIE  ^DIR  
Pharmacy Data Management 4 INACT^PSSADDIT  EN^PSSPOIDT  (,CHECK,END,MESSZ)^PSSPOIM1  (,DIR)^PSSPOIM3  
National Drug File 1 ($$PSJDF,$$VAGN)^PSNAPIS  

Entry Points

Name Comments DBIA/ICR reference
TMP
DISP
LOOK
DISPO
MCH
MCHA
MCHAN
BEG ;
START
OTHER
COM
CHECK
WOOPS

External References

Name Field # of Occurrence
C^%DTC BEG+2
^DIC MCHA+1, LOOK+1
FILE^DICN MCHAN+10
^DIE MCH+3, MCHAN+6, MCHAN+10, LOOK+1
^DIR PSSPOIM2+4, START+4, DISP+1, DISPO, MCH, MCHA, MCHA+3, MCHAN+3, LOOK+2
$$PSJDF^PSNAPIS START+1, TMP+1
$$VAGN^PSNAPIS START+1
INACT^PSSADDIT START+5
EN^PSSPOIDT START+6
^PSSPOIM1 MCH+2, MCHAN+6, MCHAN+10, LOOK+1
CHECK^PSSPOIM1 CHECK
END^PSSPOIM1 CHECK+1
MESSZ^PSSPOIM1 PSSPOIM2+5
^PSSPOIM3 PSSPOIM2+6
DIR^PSSPOIM3 START+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,$S($P($G(^(80)),"^",2)<2:"Orderable Item Auto-Create has not been completed!",1:"Manual matching process complete!"),!!
  • Line Location: PSSPOIM2+3
Function Call: WRITE
  • Prompt: !!?3,"NOW MATCHING DISPENSE DRUGS!",!
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !!!?5,"Dispense Drug -> ",PSNAME
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!?3,"Now editing Orderable Item:",!?3,$P($G(^PS(50.7,PSPOI,0)),"^")_" "_$P($G(^PS(50.606,+$P($G(^(0)),"^",2),0)),"^")
  • Line Location: START+5
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,"Dose Form -> ",DOSEFORM,!!
  • Line Location: MCHA+0
Function Call: WRITE
  • Prompt: !!?3,"Dose Form -> ",$G(Y(0,0))
  • Line Location: MCHA+2
Function Call: WRITE
  • Prompt: !
  • Line Location: MCHA+3
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,"Dose 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+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OTHER+0
Function Call: WRITE
  • Prompt: !,"There are other Dispense Drugs with the same VA Generic Name and same Dose",!,"Form already matched to orderable items. Choose a number to match, or enter",!,"'^' to enter a new one.",!!?6,"Disp. drug -> ",PSNAME,!
  • Line Location: OTHER+0
Routine Call
  • DIE
  • Line Location:
    • MCH+3
    • MCHAN+6
    • MCHAN+10
    • LOOK+1
Routine Call
  • DIC
  • Line Location:
    • MCHA+1
    • LOOK+1
Routine Call
  • DIR
  • Line Location:
    • PSSPOIM2+4
    • START+4
    • DISP+1
    • DISPO
    • MCH
    • MCHA
    • MCHA+3
    • MCHAN+3
    • LOOK+2

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] START+5, DISP, MCHA+4
^PS(50.7 - [#50.7] START+5, TMP, DISP, MCHAN+5
^PS(59.7 - [#59.7] PSSPOIM2+3
^PSDRUG - [#50] BEG+3, BEG+4, BEG+5, START+1, TMP, TMP+2, TMP+3
^PSDRUG("AND" TMP
^PSDRUG("B" BEG+3
^TMP("PSSLOOP" PSSPOIM2+2, WOOPS
^TMP($J TMP!, TMP+2, TMP+3*, DISP, DISPO+1, DISPO+2, MCH, MCH+1, MCH+2, MCH+3

Label References

Name Line Occurrences
CHECK PSSPOIM2+5, PSSPOIM2+6
COM MCH+3, MCHAN+6, MCHAN+10, LOOK+1
DISP MCH+1
DISPO DISPO+1
LOOK MCHA, MCHA+4, LOOK+1
MCH START+4
MCHAN MCHAN+4, MCHAN+8, MCHAN+10, LOOK+2
OTHER MCH+1
START BEG+3, START+7
TMP START+3
WOOPS PSSPOIM2+2

Naked Globals

Name Field # of Occurrence
^(0 BEG+3, START+5, DISP
^(80 PSSPOIM2+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AAA BEG+2*, BEG+3*
>> APLU BEG+3, BEG+4*
>> COMM MCHAN+5*, MCHAN+6
>> DA START+1*, TMP+1*, MCH+3*, MCHAN+6*, MCHAN+10*, LOOK+1*
DD MCHAN+10!
DIC MCHA+1!*, MCHAN+10!*, LOOK+1!*
DIC("A" MCHA+1*
DIC("DR" MCHAN+10*
DIC("S" LOOK+1*!
DIC(0 MCHA+1*, MCHAN+10*, LOOK+1*
DIE MCH+3!*, MCHAN+6!*, MCHAN+10*, LOOK+1*
DIR PSSPOIM2+4!, START+4!, DISP+1!, DISPO!, MCH!, MCHA!, MCHA+3!, MCHAN+2!, LOOK+2!
DIR("A" PSSPOIM2+4*, START+4*, DISPO*, MCHA*, MCHA+3*, MCHAN+2*, LOOK+2*
DIR("B" START+4*, MCHA*, MCHA+3*, MCHAN+2*, LOOK+2*
DIR(0 PSSPOIM2+4*, START+4*, DISP+1*, DISPO*, MCH*, MCHA*, MCHA+3*, MCHAN+2*, LOOK+2*
DO MCHAN+10!
>> DOSA TMP+1*
DOSEFORM START!, START+2*, MCHA, MCHA+1, MCHA+2, MCHA+3, MCHA+4*, MCHAN+1
DOSEFV START!, START+1*, TMP+1
>> DOSEPTR START+1*, START+2*, MCHA+2*, MCHA+4, MCHAN+5, MCHAN+10
>> DR MCH+3*, MCHAN+6*, MCHAN+10*, LOOK+1*
DT BEG+2
>> DTOUT START+4, DISPO, MCH, MCHA, MCHA+1, MCHA+4, MCHAN+3
>> DUOUT MCHA+1, MCHA+4, MCHAN+3
>> FFF TMP+2*
IOF DISP+1, OTHER
IOSL DISP
>> K START+1*, TMP+1*
>> MATCH DISP*, DISPO+2*, MCH+2, MCH+3
NEWFLAG START+5*, START+6!
NEWSP START!, MCHAN+10*, LOOK+1*, COM
>> NODE START+1*, TMP
>> NOFLAG TMP+2*, TMP+3
>> OTH TMP*, TMP+1
POINT START!, TMP
>> PSCNT TMP*, TMP+3*
>> PSCREATE PSSPOIM2+6*
>> PSIEN BEG+3*, BEG+4, BEG+5, START+1, MCH+3, MCHAN+6, MCHAN+10, LOOK+1
>> PSMAN MCHAN+10*
>> PSNAME BEG+3*, START, DISP+1, MCHAN+1, OTHER
>> PSNO MCH+2, MCHAN+5*, MCHAN+6, MCHAN+8, MCHAN+10, LOOK+1
>> PSOOOUT PSSPOIM2+6
>> PSOUT PSSPOIM2+5*, BEG+2*, BEG+3, START+4*, START+7, DISP*, DISPO*, DISPO+3*, MCH*, MCH+2*
, MCHA*, MCHA+1*, MCHA+4*, MCHAN+3*, MCHAN+5, MCHAN+6, MCHAN+7, MCHAN+10, LOOK+1, LOOK+3*
PSPOI START+3!, START+4, START+5, START+6!, MCH+3*, MCHAN+6*, COM*
PSSDIR START+5, START+6!
PSSITE PSSPOIM2+3*!
>> PSSP MCH+2*, MCHAN+6*, LOOK+1*
>> PSXDATE BEG+2*, BEG+5
>> PSXDDATE BEG+5*
RESTART START!, START+4*, START+7
SPHOLD START!, MCHAN+5*, MCHAN+10
>> SPT DISP*
>> STOP MCHAN+5*, MCHAN+6*, MCHAN+8, MCHAN+9
>> TMPTR TMP+2*
>> TT DISP*
>> VAGEN START+1*, MCHAN, MCHAN+2
>> X BEG+2, START+1*, START+2, TMP+1*, MCHAN+4, MCHAN+5*, MCHAN+10*
>> X1 BEG+2*
>> X2 BEG+2*
>> Y START+4, DISP, DISP+1, DISPO, DISPO+1, DISPO+2, MCH, MCHA, MCHA+1, MCHA+2
, MCHA+4, MCHAN+3, MCHAN+5, MCHAN+10, LOOK+1, LOOK+2
>> Y(0 MCHA+2
>> ZXX BEG+3, BEG+5*
>> ZZ TMP*, TMP+2, TMP+3
Info |  Source |  Call 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