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

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Pharmacy Data Management 5 MAIL^PSSCREAT  EN2^PSSHL1  CHECK^PSSPOID2  (EN,REST)^PSSPOIDT  MRSEL^PSSPOIMO  
VA FileMan 5 DD^%DT  C^%DTC  ^DIC  ^DIE  ^DIR  
Kernel 2 ^%ZISC  ^%ZTLOAD  
MailMan 1 ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Pharmacy Data Management 5 PSSCREAT  PSSMATCH  PSSPOIKA  PSSPOIM2  PSSPOIMN  

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

External References

Name Field # of Occurrence
DD^%DT INACT1+4, INACT1+20, INACT1+30, IACHK1+3, IACHK1+8
C^%DTC CHECK+1
^%ZISC DATE+16
^%ZTLOAD MAIL+2, SUPP+7
^DIC SYN+1
^DIE EN+5, INACT+29, INACT+44, INACT1+12, INACT1+21, EN1+7, EN1+12, IMMUN+2, SYN+3, DATE+2
, DATE+5, DATE+8, DATE+9, DATE+10
^DIR CHK+2, MESSZ+2, MAIL+1, MAIL+3, INACT1+3
MAIL^PSSCREAT DATE+11
EN2^PSSHL1 FIN, FIN+1
CHECK^PSSPOID2 INACT+16
EN^PSSPOIDT FIN
REST^PSSPOIDT EN1+9
MRSEL^PSSPOIMO EN1+7
^XMD DATE+14

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
Routine Call
  • DIC
  • Line Location:
    • SYN+1
Routine Call
  • DIE
  • Line Location:
    • EN+5
    • INACT+29
    • INACT+44
    • INACT1+12
    • INACT1+21
    • EN1+7
    • EN1+12
    • IMMUN+2
    • SYN+3
    • DATE+2
    • DATE+5
    • DATE+8
    • DATE+9
    • DATE+10
Routine Call
  • DIR
  • Line Location:
    • CHK+2
    • MESSZ+2
    • MAIL+1
    • MAIL+3
    • INACT1+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] CHK, CHK+1, EN+3
^PS(50.7 - [#50.7] CHK+1, CHK+11, EN+3, EN+4, INACT+17, INACT+30, INACT1+16, INACT1+22, IACHK+9, IACHK1+8
, IACHK1+9, EN1+7, SYN+1*, SYN+2!, DATE+1, DATE+2, DATE+5, DATE+6, DATE+9, DATE+10
, SUPP+4*, SUPP+5*
^PS(52.6 - [#52.6] CHECK+6, CHECK+7, DATE+2, DATE+10
^PS(52.7 - [#52.7] CHECK+8, CHECK+9, DATE+2, DATE+9
^PS(59.7 - [#59.7] EN1+4, DATE+15*
^PSDRUG - [#50] CHECK+2, CHECK+3, CHECK+4, IACHK+15, DATE+7, SUPP+3
^PSDRUG("AOC" IMMUN+1
^PSDRUG("ASP" DATE+5, DATE+7, SUPP+2
^PSDRUG("B" CHECK+2
^TMP("PSJMR" EN1+7!
^TMP("PSSDMR" EN1+7!
^TMP("PSSLOOP" END!, MESSZ*
^TMP($J CHK+8!, CHK+11*, END!, INACT+18, INACT+41

Label References

Name Line Occurrences
EN1 EN+8
FIN SYN+2
FINS SYN, FIN
IACHK INACT+40
IACHK1 INACT+47
INACT EN+6
INACT1 INACT+45
SUPP DATE+4
SYN IMMUN+1, SYN+3

Naked Globals

Name Field # of Occurrence
^("I" SUPP+3
^(0 CHECK+6, CHECK+8, EN+3
^(2 SUPP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AAA END+1!
AAAAA END+1!
ANS END+1!
APLU END+1!
BBBBB END+1!
COMM END+1!
DA END+1!, EN+4!, EN+5*!, INACT+29*!, INACT+43*, INACT+44!, INACT1+5*, INACT1+12!, INACT1+21!, EN1+4*
, EN1+7!, EN1+11~, EN1+12*, IMMUN+2*, SYN+3*, DATE+2*, DATE+5*, DATE+8*, DATE+9*, DATE+10*
, DATE+12!, DATE+16!
DA(1 SYN+1*, SYN+3*
DIC END+1!, SYN+1!*
DIC("A" SYN+1*
DIC(0 SYN+1*
DIE END+1!, EN+4!, EN+5*!, INACT+29*!, INACT+43*, INACT+44!, INACT1+5*, INACT1+12!, INACT1+21!, EN1+4*
, EN1+7!, EN1+11~, EN1+12*!, IMMUN+2*!, SYN+3*!, DATE+2!*, DATE+5!*, DATE+8!*, DATE+9!*, DATE+10!*
, DATE+12!, DATE+16!
DIR CHK+2!, MESSZ+2!, MAIL+1!, MAIL+3!, INACT1+3!
DIR("A" CHK+2*, MAIL+1*, MAIL+3*, INACT1+3*
DIR("B" CHK+2*, INACT1+4*
DIR(0 CHK+2*, MESSZ+2*, MAIL+1*, MAIL+3*, INACT1+3*
>> DIRUT SYN
>> DLAYGO SYN+1*
DONEFLAG CHECK+1*, CHECK+2*, CHECK+5, CHECK+6*, CHECK+8*, MAIL, MAIL+2, MAIL+3, MAIL+4!
DOSEFORM END+1!
DOSEFV END+1!
DOSEPTR CHK, END+1!
DR END+1!, EN+4!, EN+5*!, INACT+29*!, INACT+43*, INACT+44!, INACT1+11*, INACT1+12!, INACT1+19*, INACT1+21!
, EN1+5*, EN1+6*, EN1+7!, EN1+11~, EN1+12*, IMMUN+2*, SYN+3*, DATE+2*, DATE+5*, DATE+8*
, DATE+9*, DATE+10*
DT CHECK+1, DATE+2, DATE+5, DATE+8, SUPP+5
>> DTOUT MESSZ+2, EN+5, EN+7, INACT+46, INACT1+3, SYN, SYN+2
>> DUOUT EN+7, INACT+46, INACT1+3, SYN+2
DUZ MESSZ, MAIL+2, DATE+14
FFF END+1!
FFFF CHECK+2*, CHECK+3, CHECK+4, MAIL+4!
GGG DATE+12!, DATE+16!
HHH DATE+12!, DATE+16!
IOF OTHER
MATCH END+1!
MFLG EN+4~
NEWSP END+1!
NODE END+1!
NOFLAG END+1!
OTH END+1!
POINT END+1!
PSAFTER EN+4*, EN1+7*, EN1+8, EN1+10!
PSAPPL DATE+7*, DATE+12!, DATE+16!
PSBEFORE INACT+17*, INACT+18, INACT+30*, INACT+41, INACT+42*, INACT1+4, INACT1+6, EN1+8, EN1+10!
PSBEFORE1 EN+4*, EN1+10!
PSCNT END+1!
PSCREATE END!, DATE+11
PSDFLAG DATE+7*, DATE+8, DATE+12!, DATE+16!
PSIEN END+1!
PSINORDE EN+4*, EN1+8*, EN1+9, EN1+10!
PSMAN CHK, CHK+1, CHK+12!, END+1!
PSMC CHK+1*, END+1!
PSNAME CHK, CHK+1, END+1!, OTHER
PSND END+1!
PSNO CHK*, CHK+3*, END+1!
PSOITMP CHK+9~, CHK+10*, CHK+11, CHK+12!
PSOOOUT END+1!
>> PSOTEXT(1 DATE+13*
>> PSOTEXT(2 DATE+13*
PSOTYPE DATE+1*, DATE+2, DATE+3, DATE+12!, DATE+16!
>> PSOUDUZ MAIL+2*
PSOUT CHK+3*, END+1!, MESSZ+2*
>> PSPOINT CHK+10
PSSAACT END+2!, EN+1~
PSSAACT(0 INACT+23, INACT1+7
PSSACT END+2!, EN+2~, IACHK+8*, IACHK+16*, IACHK1+2
PSSARR END+2!, EN+2~
PSSARR( IACHK+10*, IACHK+14
PSSCOMP END+2!, EN+2~, IACHK+8*, IACHK+9*, IACHK+10, IACHK+14*, IACHK+15
PSSCROSS SUPP+7*, SUPP+9*!
PSSDACT END+2!, EN+1~
PSSDACT(0 INACT+23, INACT1+7
PSSDGDT END+2!, EN+2~, IACHK+15*, IACHK+16, IACHK+17
PSSDGIDL END+2!, EN+2~, INACT+41, INACT+42, INACT+43, IACHK+13*, IACHK+17*, IACHK1+2, IACHK1+3, IACHK1+4
PSSDTENT END+2!, EN+1~, EN1+2~, EN1+3*
PSSINACT END+2!, EN+1~, INACT1+22*, INACT1+23, INACT1+30, IACHK1+4, EN1+3
PSSITE DATE+15*!
PSSNEWIA END+2!, INACT1+1~*, INACT1+5*, INACT1+6, INACT1+18, INACT1+19, INACT1+28
>> PSSNOOI SYN+2*
PSSOMAIL MAIL+2*, DATE+12, DATE+16!
PSSORDIT SUPP+7*, SUPP+8*!
PSSOTH EN1+4*, EN1+7!
>> PSSOU EN1+7
PSSP CHK+1, CHK+10, END+1!
PSSSACT END+2!, EN+1~
PSSSACT(0 INACT+23, INACT1+7
PSSSSS END!
PSVAR EN~, EN+3, EN+4, EN+5, INACT+16, INACT+17, INACT+18, INACT+29, INACT+30, INACT+41
, INACT+43, INACT1+5, INACT1+16, INACT1+22, IACHK+9, IACHK1+8, IACHK1+9, EN1+4, EN1+7, EN1+9
, EN1+12, IMMUN+1, IMMUN+2, SYN+1, SYN+2, SYN+3, FIN, FIN+1, FINS!
PSVAR1 FIN, FINS!
PSXADATE END+1!
PSXDATE END+1!
PSXDDATE END+1!
PSXSDATE END+1!
PSZNAME CHECK+6*, CHECK+8*, MAIL+4!
PSZXDATE CHECK+1*, CHECK+4, CHECK+7, CHECK+9, MAIL+4!
PSZZDATE CHECK+4*, CHECK+7*, CHECK+9*, MAIL+4!
QQNM CHECK+2*, MAIL+4!
QQQ CHECK+6*, CHECK+7, CHECK+8*, CHECK+9, MAIL+4!
RRRR DATE+9*, DATE+10*, DATE+12!, DATE+16!
SLDO SUPP+1~, SUPP+7*, SUPP+8
SLDP SUPP+1~, SUPP+7*, SUPP+9
SLIP SUPP+1~, SUPP+6*, SUPP+7
SPHOLD CHK, END+1!
SPR END+1!
SSLOOP SUPP+1~, SUPP+2*, SUPP+3
SSSAP SUPP+1~, SUPP+3*, SUPP+4, SUPP+5
SSSIN SUPP+1~, SUPP+3*, SUPP+4, SUPP+5
SSSQDATE SUPP+1~
SSSQDATE( SUPP+5*, SUPP+6
SSSQDATE(0 SUPP+6
SSSQUE SUPP+1~, SUPP+2*, SUPP+4*, SUPP+5*, SUPP+6
SSSQUEY SUPP+1~, SUPP+2*, SUPP+4*, SUPP+6
SSSUP SUPP+1~
TMPTR END+1!
TT END+1!
USAGE CHECK+2, CHECK+3*, MAIL+4!
VAGEN END+1!
WW DATE+7*, DATE+12!, DATE+16!
X END+1!, MESSZ+2, CHECK+1
>> X1 CHECK+1*
>> X2 CHECK+1*
>> XMDUZ DATE+14*
>> XMSUB DATE+14*
>> XMTEXT DATE+14*
>> XMY( DATE+14*
Y CHK+3, END+1!, EN+5, EN+7, INACT+46, INACT1+3, INACT1+4*, INACT1+5, INACT1+20, INACT1+30*
, IACHK1+3*, IACHK1+7, IACHK1+8*, IACHK1+10, IACHK1+16, SYN, SYN+2, SYN+3
>> ZTDESC MAIL+2*, SUPP+7*
>> ZTDTH MAIL+2*, SUPP+7*
>> ZTIO MAIL+2*, SUPP+7*
>> ZTQUEUED DATE+16
>> ZTREQ DATE+16*
>> ZTRTN MAIL+2*, SUPP+7*
>> ZTSAVE("DUZ" MAIL+2*
>> ZTSAVE("PSSCROSS" SUPP+7*
>> ZTSAVE("PSSOMAIL" MAIL+2*
>> ZTSAVE("PSSORDIT" SUPP+7*
ZXX END+1!
ZZ END+1!
ZZG CHECK+2, CHECK+4*, CHECK+6, CHECK+7*, CHECK+8, CHECK+9*, MAIL+4!
>> ZZZ DATE+1*, DATE+2, DATE+5, DATE+6, DATE+7, DATE+8, DATE+9*, DATE+10*, SUPP+2, SUPP+4
, SUPP+5, SUPP+7
ZZZZZ DATE+12!, DATE+16!
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