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

Package: Pharmacy Data Management

Routine: PSSCREAT


Information

PSSCREAT ;BIR/RTR/WRT-Auto create Pharmacy Orderable Item File; 09/01/98 7:07

Source Information

Source file <PSSCREAT.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA Fileman 5 ^%DT  NOW^%DTC  FILE^DICN  ^DIE  ^DIR  
Pharmacy Data Management 3 DATE^PSSPOIM1  (,IVADD)^PSSSPD  ^PSSSYN  
Kernel 2 ^%ZISC  ^%ZTLOAD  
MailMan 1 ^XMD  
National Drug File 1 ($$PSJDF,$$VAGN)^PSNAPIS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Data Management 1 PSSPOIM1  

Entry Points

Name Comments DBIA/ICR reference
ENDONE
END
PRI
BEG ;
START
ADD ;Create a new Orderable Item entry
ENDTWO
MAIL ;
CHECK ; make sure file has not already been created"
MATCH ;Match to an already existing Orderable Item

External References

Name Field # of Occurrence
^%DT PRI+6
NOW^%DTC PRI+6
^%ZISC END, ENDTWO
^%ZTLOAD PRI+7
FILE^DICN ADD+3
^DIE MATCH+1, ADD+1, ADD+4, MAIL+5, MAIL+11
^DIR CHECK+2, PRI+3
$$PSJDF^PSNAPIS START+2, START+5
$$VAGN^PSNAPIS START+2
DATE^PSSPOIM1 END
^PSSSPD BEG+2
IVADD^PSSSPD BEG+3
^PSSSYN MAIL+12
^XMD MAIL+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"Orderable Item Auto-Create has ",$S($P(^(80),"^",2)=1:"already been queued,",1:"already been completed,")," no action taken!",!
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: !!,"This job will create your Pharmacy Orderable Item File, and match IV Solutions,",!,"IV Additives, and Dispense Drugs to the Pharmacy Orderable Item File."
  • Line Location: PRI+0
Function Call: WRITE
  • Prompt: !,"This job should be queued to run at night!",!
  • Line Location: PRI+5
Function Call: WRITE
  • Prompt: !!,"Try again later!",!
  • Line Location: PRI+6
Function Call: WRITE
  • Prompt: !!,"TASK QUEUED!",!
  • Line Location: PRI+7
Routine Call
  • DIE
  • Line Location:
    • MATCH+1
    • ADD+1
    • ADD+4
    • MAIL+5
    • MAIL+11
Routine Call
  • DIR
  • Line Location:
    • CHECK+2
    • PRI+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
^PS(50.7 - [#50.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.7 - [#50.7] START+4, ADD+1, MAIL+1, MAIL+2, MAIL+5, MAIL+6, MAIL+11
^PS(52.6 - [#52.6] MAIL+7
^PS(52.7 - [#52.7] MAIL+9
^PS(59.7 - [#59.7] CHECK+1, CHECK+3*, PRI+3*, PRI+6*, MAIL+16*
^PSDRUG - [#50] START+1, START+2, START+4, START+5, START+6, MAIL+3
^PSDRUG("AND" START+4
^PSDRUG("ASP" MAIL+3
^TMP("PSS" START!
^TMP("PSSADD" START!
^TMP("PSSD" START!
^TMP("PSSOL" START!
^TMP($J START+4!, START+6*, START+7, END!

Label References

Name Line Occurrences
ADD START+1
ENDONE END, MATCH+1, ADD+1, ADD+3
ENDTWO PRI+3, PRI+6, PRI+7
MATCH START+1
START BEG+2

Naked Globals

Name Field # of Occurrence
^("I" MAIL+7, MAIL+9
^(0 MAIL+5, MAIL+11
^(80 CHECK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRI+6
%DT PRI+6!*
%DT("A" PRI+6*
%DT(0 PRI+6*
APP ENDONE!
CC START+7*, ENDONE!
CHECK ADD+1*, ENDONE!
COMM START+7*, START+8, START+9, ENDONE!
COMMON START+7*, START+8, START+9, ENDONE!
DA START+2*, START+5*, MATCH+1*, ADD+1*, ADD+4*, ENDONE!, MAIL+5*, MAIL+11*
DD ADD+3!
>> DF1 START+2*, START+5, START+6, START+10, START+11
>> DF2 START+5*, START+6
DIC ADD+3*, ENDONE!
DIC("DR" ADD+3*
DIC(0 ADD+3*
DIE MATCH+1*, ADD+1*, ADD+4*, ENDONE!, MAIL+5!*, MAIL+11!*
DIR CHECK+2!, PRI!, PRI+3!
DIR("A" CHECK+2*, PRI+1*, PRI+2*
DIR(0 CHECK+2*, PRI+3*
DO ADD+3!
DR MATCH+1*, ADD+1*, ADD+4*, ENDONE!, MAIL+5*, MAIL+11*
DT MAIL+1
>> DTOUT PRI+3, PRI+6
>> DUOUT PRI+3
DUZ PRI+7
FLAGONE START+1*, START+9*, ENDONE!
FLAGTWO START+1*, START+11*, ENDONE!
>> GEN START+2*, START+10, START+11
JJJJ MAIL+3*, MAIL+7*, MAIL+9*, MAIL+12!
>> K START+2*, START+5*
NODE START+2*, START+4, START+10, ENDONE!
NUM MAIL+12!
NUMB MAIL+12!
OTH START+5*, ENDONE!
POI MAIL+12!
>> PSCREATE BEG+1*
PSDOS ENDONE!
>> PSOHOW PRI+4*, BEG+2
PSOMDUZ PRI+7*, MAIL+14, ENDTWO!
PSOQTIME PRI+6*, PRI+7, ENDONE!
PSSADATE MAIL+1*, MAIL+5, MAIL+11, MAIL+12!
>> PSSATEXT(1 MAIL+15*
>> PSSATEXT(2 MAIL+15*
PSSIFLAG MAIL+3*, MAIL+4*, MAIL+5, MAIL+7*, MAIL+8*, MAIL+10*, MAIL+11, MAIL+12!
PSSIOU MAIL+3*, MAIL+12!
PSSITE CHECK+1*!, CHECK+3, PRI+3, PRI+6, MAIL+16*, ENDTWO!
PSSLTST MAIL+3*, MAIL+4*, MAIL+5, MAIL+7*, MAIL+8*, MAIL+10*, MAIL+11, MAIL+12!
PSSVARP MAIL+3*, MAIL+4, MAIL+7*, MAIL+8, MAIL+9*, MAIL+10, MAIL+12!
RRR START+1*, START+2, END!, MATCH+1, ADD+1, ADD+4
SPIEN ADD+4*, ENDONE!
SPNAME START+11*, ADD+1, ADD+3, ENDONE!
SPNTR START+11*, ADD+1, ADD+3, ENDONE!
SPRIM START+7*, MATCH+1, ENDONE!
STOP END!, ADD+1*, ADD+2!
SUPER START+2*, START+3, ENDONE!
SYNO MAIL+12!
TTTT MAIL+1*, MAIL+2, MAIL+3, MAIL+5, MAIL+6, MAIL+7, MAIL+9, MAIL+11, MAIL+12!
VV START+4*, START+5, START+6, ENDONE!
WW START+7*, ENDONE!
>> X START+2*, START+5*, ADD+3*
>> XMDUZ MAIL+14*
>> XMSUB MAIL+14*
>> XMTEXT MAIL+16*
>> XMY( MAIL+14*
>> Y PRI+3, PRI+4, PRI+6, ADD+3, ADD+4
>> ZTDESC PRI+7*
>> ZTDTH PRI+7*
>> ZTIO PRI+7*
>> ZTQUEUED END, ENDTWO
>> ZTREQ END*, ENDTWO*
>> ZTRTN PRI+7*
>> ZTSAVE("PSCREATE" PRI+7*
>> ZTSAVE("PSOHOW" PRI+7*
>> ZTSAVE("PSOMDUZ" PRI+7*
>> ZTSAVE("PSSITE" PRI+7*
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