Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSSPOIM1

Package: Pharmacy Data Management

Routine: PSSPOIM1


Information

PSSPOIM1 ;BIR/RTR,WRT - Manual create of Orderable Item continued ;Jun 23, 2020@13:14:33

Source Information

Source file <PSSPOIM1.m>

Entry Points

Name Comments DBIA/ICR reference
CHK
END
MESS
MESSZ
CHECK
MAIL
OTHER
EN(PSVAR) ;
INACT ;
INACT1 ;
IACHK ;
IACHK1 ;
EN1 ;
IMMUN ;PSS*1*141 FOR 'IMMUNIZATIONS DOCUMENTATION BY BCMA'
SYN
FIN
FINS
DATE ;
RMES
KMES
SUPP ;Mark as supply

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Matching ",PSNAME,!," to",!,SPHOLD," ",$P($G(^PS(50.606,+DOSEPTR,0)),"^"),!
  • Line Location: CHK+0
Function Call: WRITE
  • Prompt: !!,"Matching ",PSNAME,!," to",!,PSMC," ",$P($G(^PS(50.606,+$P(^PS(50.7,PSSP,0),"^",2),0)),"^"),!
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !!,"This option enables you to match Dispense Drugs to an entry in the Pharmacy",!,"Orderable Item file, or create a new Pharmacy Orderable Item entry for a",!,"Dispense Drug.",!
  • Line Location: MESS+0
Function Call: WRITE
  • Prompt: !!,"This option is for matching IV Additives, IV Solutions, and all Dispense Drugs",!,"marked with an I, O, or U in the Application Packages' Use field to an",!,"Orderable Item."
  • Line Location: MESSZ+0
Function Call: WRITE
  • Prompt: !,"You will need to keep accessing this option until all drugs are matched.",!,"A check will be done every time this option is exited to see if the matching",!,"process is complete.",!!
  • Line Location: MESSZ+1
Function Call: WRITE
  • Prompt: !!!,"Checking Drug files, please wait..."
  • Line Location: CHECK+0
Function Call: WRITE
  • Prompt: !!!,?3,"You are finished matching to the Orderable Item File!",!!,"A clean-up job is being queued now, and when it is finished, you will"
  • Line Location: MAIL+0
Function Call: WRITE
  • Prompt: !,"receive a mail message informing you of its completion.",!
  • Line Location: MAIL+1
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!?5,"There are still Drugs not matched, you will need to come back",!?5,"and continue matching Drugs!",!
  • Line Location: MAIL+3
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
Function Call: WRITE
  • Prompt: !?3,"Now editing Orderable Item:",!?3,$P(^PS(50.7,PSVAR,0),"^")," ",$P($G(^PS(50.606,+$P(^(0),"^",2),0)),"^")
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,?15,"All Drugs/Additives/Solutions matched to this"
  • Line Location: INACT1+8
Function Call: WRITE
  • Prompt: !,?15,"Orderable Item are inactive."
  • Line Location: INACT1+9
Function Call: WRITE
  • Prompt: !!,?15,"The INACTIVE DATE cannot be deleted.",!
  • Line Location: INACT1+10
Function Call: WRITE
  • Prompt: ?35,"The inactive date has been deleted.",!
  • Line Location: INACT1+17
Function Call: WRITE
  • Prompt: ?40,Y,!
  • Line Location: INACT1+20
Function Call: WRITE
  • Prompt: !,?15,"The Inactive Date is: "
  • Line Location: INACT1+29
Function Call: WRITE
  • Prompt: Y,"."
  • Line Location: INACT1+30
Function Call: WRITE
  • Prompt: !!,?15,"**** **** NOTE **** ****",!
  • Line Location: IACHK1+5
Function Call: WRITE
  • Prompt: !,?15,"All Drugs/Additives/Solutions for this orderable item"
  • Line Location: IACHK1+6
Function Call: WRITE
  • Prompt: !,?15,"are inactive as of ",Y,".",!
  • Line Location: IACHK1+7
Function Call: WRITE
  • Prompt: !,?15,"However, the orderable item ",$P(^PS(50.7,PSVAR,0),"^")
  • Line Location: IACHK1+9
Function Call: WRITE
  • Prompt: !,?15,"is inactive on ",Y,".",!
  • Line Location: IACHK1+10
Function Call: WRITE
  • Prompt: !,?15,"You may need to change the inactive date on the orderable item"
  • Line Location: IACHK1+11
Function Call: WRITE
  • Prompt: !,?15,"using option PSS EDIT ORDERABLE ITEMS.",!
  • Line Location: IACHK1+12
Function Call: WRITE
  • Prompt: !,?15,"**** **** **** **** ****",!
  • Line Location: IACHK1+13
Function Call: WRITE
  • Prompt: !,?15,"All Drugs/Additives/Solutions matched to this"
  • Line Location: IACHK1+15
Function Call: WRITE
  • Prompt: !,?15,"Orderable Item are inactive as of ",Y,".",!
  • Line Location: IACHK1+16
Function Call: WRITE
  • Prompt: !
  • Line Location: IMMUN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SYN+3
Function Call: WRITE
  • Prompt: !!,"This report takes a long time to first build the data to print, then to",!,"actually print the data. To avoid tying up a terminal for a long period of time,",!,"the report must be QUEUED to a printer."
  • Line Location: RMES+0
Function Call: WRITE
  • Prompt: !!,"This report must be QUEUED to a printer!"
  • Line Location: RMES+1
Function Call: WRITE
  • Prompt: !!,"Due to the length of this report, and to avoid tying up a terminal for a long",!,"time, this report must be QUEUED to a printer!"
  • Line Location: KMES+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.7 - [#50.7] Classic Fileman Calls
^PS(52.6 - [#52.6] Classic Fileman Calls
^PS(52.7 - [#52.7] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call