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

Package: Outpatient Pharmacy

Routine: PSOORFI1


Information

PSOORFI1 ;BIR/SAB - finish OP orders from OE/RR continued ;Dec 13, 2021@08:00:50

Source Information

Source file <PSOORFI1.m>

Call Graph

Call Graph

Call Graph Total: 25

Package Total Call Graph
Outpatient Pharmacy 19 $$SUGFLDT^PSOERUT  SETPEN^PSOERUT5  $$CS^PSOERXA0  ($$CHKERX,DERX1)^PSOERXU1  $$ERXIEN^PSOERXUT  EN^PSOLMPO  (DIN,RV)^PSONFI  LOCK^PSOORCPY  
DRG^PSOORDRG  (CLOZ,ELIG,POST,SIG,USER)^PSOORFI2  (CLQTY,DOSE,INST,OBX,PQTY)^PSOORFI4  (LMDISP,PRV)^PSOORFI5  DRGMSG^PSOORNEW  DREN^PSOORNW2  DCP^PSOPKIV1  GETPARK^PSORPC01  
$$MAXNUMRF^PSOUTIL  $$DEACHK^PSOUTLA1  WORDWRAP^PSOUTLA2  
List Manager 2 FULL^VALM1  RESTORE^VALM10  
Order Entry Results Reporting 1 ULK^ORX2  
Pharmacy Data Management 1 $$L^PSSLOCK  
Registration 1 KVA^VADPT  
VA FileMan 1 $$GET1^DIQ  

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

Package Total Caller Graph
Outpatient Pharmacy 12 PSOERX  PSOERXC1  PSOERXU6  PSOMPHRC  PSOORFI2  PSOORFI3  PSOORFI5  PSOORFIN  
PSOORNE3  PSOORNEW  PSOORNW1  PSOPMP0  

Entry Points

Name Comments DBIA/ICR reference
DSPL
DRG
ISSDT
DS ;
PST
POST ;post patient selection
SIG ;displays possible sig
INST ;displays provider comments and pharmacy instructions
OBX ;formats obx section
ST(PSRT) ;sort by route or patient
RT ;which route to sort by ;PAPI 441
PT ;process for all or one patient
EP ;continue processing or not
LOCK ;
ULK
LOCK1 ;
EX

External References

Name Field # of Occurrence
$$GET1^DIQ PST+5, PST+47, PST+71, PST+79, PST+84, LOCK+3, LOCK+5
ULK^ORX2 ULK
$$SUGFLDT^PSOERUT PST+65
SETPEN^PSOERUT5 PST+69
$$CS^PSOERXA0 PST+47, PST+71
$$CHKERX^PSOERXU1 DS+7
DERX1^PSOERXU1 DS+7
$$ERXIEN^PSOERXUT PST+46, PST+61
EN^PSOLMPO PST+86
DIN^PSONFI DS+4
RV^PSONFI PST+70
LOCK^PSOORCPY LOCK+4
DRG^PSOORDRG DSPL+2
CLOZ^PSOORFI2 DRG
ELIG^PSOORFI2 PST+13
POST^PSOORFI2 POST+1
SIG^PSOORFI2 SIG+1
USER^PSOORFI2 ISSDT+2, ISSDT+6, PST+36, PST+42
CLQTY^PSOORFI4 PST+13
DOSE^PSOORFI4 PST
INST^PSOORFI4 PST+2
OBX^PSOORFI4 OBX+1
PQTY^PSOORFI4 PST+30
LMDISP^PSOORFI5 DS+3
PRV^PSOORFI5 PST+34
DRGMSG^PSOORNEW DS+17
DREN^PSOORNW2 DSPL+3
DCP^PSOPKIV1 PST+86
GETPARK^PSORPC01 ST+5, RT+2
$$MAXNUMRF^PSOUTIL PST+19
$$DEACHK^PSOUTLA1 DRG+5
WORDWRAP^PSOUTLA2 INST+3
$$L^PSSLOCK LOCK+4
KVA^VADPT EX+2
FULL^VALM1 EX+5
RESTORE^VALM10 PST+64

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter: ",!
  • Line Location: ST+1
Function Call: WRITE
  • Prompt: " 'PA' to process orders by patients",!
  • Line Location: ST+2
Function Call: WRITE
  • Prompt: " 'RT' to process orders by route (mail/window)",!
  • Line Location: ST+6
Function Call: WRITE
  • Prompt: " 'RT' to process orders by route (mail/window/park)",!
  • Line Location: ST+7
Function Call: WRITE
  • Prompt: " 'RT' to process orders by route (mail/window)",!
  • Line Location: ST+8
Function Call: WRITE
  • Prompt: " 'RT' to process orders by route (mail/window/park)",!
  • Line Location: ST+9
Function Call: WRITE
  • Prompt: " 'PR' to process orders by priority",!
  • Line Location: ST+10
Function Call: WRITE
  • Prompt: " 'CL' to process orders by clinic",!
  • Line Location: ST+11
Function Call: WRITE
  • Prompt: " 'FL' to process flagged orders",!
  • Line Location: ST+12
Function Call: WRITE
  • Prompt: " 'CS' to process digitally signed CS orders",!
  • Line Location: ST+13
Function Call: WRITE
  • Prompt: " 'CS' to process digitally signed CS orders",!
  • Line Location: ST+14
Function Call: WRITE
  • Prompt: " 'SU' to process supply item orders",!
  • Line Location: ST+15
Function Call: WRITE
  • Prompt: " 'SU' to process supply item orders",!
  • Line Location: ST+16
Function Call: WRITE
  • Prompt: " or 'C' to continue with one filter ",!
  • Line Location: ST+17
Function Call: WRITE
  • Prompt: " or 'E' or '^' to exit"
  • Line Location: ST+18
Function Call: WRITE
  • Prompt: !
  • Line Location: ST+18
Function Call: WRITE
  • Prompt: !!,"Enter 'W' to process window orders first"
  • Line Location: RT+3
Function Call: WRITE
  • Prompt: !," 'M' to process mail orders first"
  • Line Location: RT+4
Function Call: WRITE
  • Prompt: !," 'P' to process park orders first"
  • Line Location: RT+5
Function Call: WRITE
  • Prompt: !," 'P' to process park orders first"
  • Line Location: RT+6
Function Call: WRITE
  • Prompt: !," 'C' to process orders administered in clinic first"
  • Line Location: RT+7
Function Call: WRITE
  • Prompt: !," or 'E' or '^' to exit"
  • Line Location: RT+8
Function Call: WRITE
  • Prompt: !!,"Enter 'A' to process all patient orders",!," 'S' to process orders for a patient",!," or 'E' or '^' to exit"
  • Line Location: PT+1
Function Call: WRITE
  • Prompt: !,"If you want to continue processing orders Press RETURN or enter '^' to exit"
  • Line Location: EP+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
^PS(52.49 - [#52.49] GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ISSDT+1, PST+10, PST+12, PST+44, PST+67
^OR(100 - [#100] PST+81
^PS(50.606 - [#50.606] DS+11
^PS(50.7 - [#50.7] DSPL+1, DS+11
^PS(52.41 - [#52.41] ISSDT+9, ISSDT+10, DS+9, DS+10, PST+1, INST+1, INST+2, LOCK1+1
^PS(53 - [#53] ISSDT+12, PST+8, PST+15
^PS(55 - [#55] ISSDT+8, ISSDT+12, PST+15, PST+17
^PSDRUG - [#50] DRGDS+17, PST+23, PST+24, PST+26
^PSDRUG("AQ" DS+15
^SC - [#44] ISSDT+4, ISSDT+5
^TMP("PSOAO" EX+3!
^TMP("PSODA" EX+3!
^TMP("PSOHDR" EX+3!
^TMP("PSOPF" EX+3!
^TMP("PSOPI" EX+3!
^TMP("PSOPO" DSPL!, DS+7, DS+11*, DS+12, DS+15*, DS+16, DS+17*, DS+18*, PST+2*, PST+3*
PST+4*, PST+5*, PST+6*, PST+7*, PST+8*, PST+9*, PST+10*, PST+12*, PST+16*, PST+23*
PST+26*, PST+28*, PST+29*, PST+31*, PST+32*, PST+33*, PST+37*, PST+38*, PST+41*, PST+43*
PST+44*, PST+48*, PST+49*, PST+50*, PST+51*, PST+68!, INST+3, EX+3!
^VA(200 - [#200] PST+35
^XUSEC("PSDRPH" PST+53, LOCK1+1
^XUSEC("PSO ERX P746 TEMP KEY" PST+66
^XUSEC("PSORPH" PST+53, PST+57, LOCK1+1, LOCK1+2

Label References

Name Line Occurrences
DRG DSPL+2
DS ISSDT+11
INST PST+3, PST+6
OBX DS+2
PST DS+14
SIG PST+7

Naked Globals

Name Field # of Occurrence
^("EXT" ISSDT+9, ISSDT+10
^("PS" PST+35
^(0 DS+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EX+1!, EX+2!
%H EX+2!
%I EX+2!
%T EX+1!
%Y EX+1!
>> ACP PST+86
AGROUP EX+2!
AGROUP1 EX+2!
C EX+4!
CC EX+4!
CLI EX+1!
CLOZPAT DSPL!, DRG+5, DRG+7, DS+1, PST+13, PST+19, PST+30
CNT EX+4!
CRIT EX+4!
D EX+4!
D0 EX+2!
DFN EX+2!
DGI EX+4!
DGS EX+4!
DI EX+1!
DIC DRG+3!, EX+1!
>> DILOCKTM LOCK+3*, LOCK+5*
DIPGM EX+2!
DIR DRG+3!, EX+1!
DIRUT EX+1!
DQ EX+1!
DR EX+1!
DREN DSPL+2*, EX+4!
DRET EX!
DRG EX+1!
DT ISSDTPST+10, PST+66
DUOUT EX+1!
DUZ PST+53, PST+57, PST+66, LOCK1+1, LOCK1+2
ERXIEN DS+6~, DS+7*, PST+5, PST+6, PST+46~*, PST+47, PST+61*, PST+62, PST+69, PST+71
EXEMP PST+75~, PST+76*, PST+78, PST+79*, PST+84*, PST+85
GROUPCNT EX+2!
I PST+64*, EX+1!
>> IEN DS+2*, DS+7, DS+11*, DS+12, DS+15*, DS+16, DS+17*, DS+18*, PST+2*, PST+3*
PST+4*, PST+5*, PST+6*, PST+7*, PST+8*, PST+9*, PST+10, PST+12*, PST+16*, PST+23
PST+25*, PST+26, PST+27*, PST+28, PST+29, PST+31*, PST+32*, PST+33*, PST+37*, PST+38*
PST+41*, PST+43*, PST+44, PST+48*, PST+49*, PST+50*, PST+51*, PST+68*, PST+69*, INST+3
INST INST+1*, INST+2, INST+4!
INST( INST+2*
IT EX+4!
JJ EX+4!
LASTRX PST+63~, PST+65*, PST+67*, PST+69
LG EX+4!
>> LINE PST+68*, PST+69
LST DS+14!
MAIL EX+1!
MAXRF PST+14~, PST+19*, PST+20
MEDA EX+3!
MEDP EX+3!
MIG INST+2*, INST+3, INST+4!
MM EX+4!
>> NFID DS+15, DS+16*
>> NFIO DS+11, DS+12*
NIEN EX+4!
OBX EX+2!
>> OI DSPL+1*
>> OID DSPL+1*
OR0 DSPL+1, DSPL+2, DSPL+3, DRG+4, DRG+7, ISSDTISSDT+2, ISSDT+3, ISSDT+4, ISSDT+5
ISSDT+6, ISSDT+7, ISSDT+11, DS+7, PST+10, PST+11, PST+12, PST+20, PST+28, PST+29
PST+34, PST+35, PST+39, PST+40, PST+42, PST+44, PST+53, PST+56, PST+77, PST+80
EX+1!
OR1 EX+1!
OR2 EX+1!
OR3 EX+1!
ORD ISSDT+9, ISSDT+10, DS+3, DS+9, DS+10, PST+1, PST+46, PST+61, PST+65, PST+69
INST+1, INST+2, LOCK1+1, EX+1!
PAT LOCK+4, ULKEX+1!
PATA EX+4!
PHI EX!
>> PKI PST+34
>> PKI1 PST+86
>> PKID PST+72*
>> PKIE PST+72*
POERR DSPL+2*!, EX+1!
POERR("QFLG" LOCK+4*, ULK*
PRC EX!
PSCSERX PST+46~*, PST+52*, PST+53
PSDAYS DRG+4~*, DRG+5, PST+14~, PST+15*, PST+16, PST+19, EX+4!
PSDEA DRG+4~*, DRG+5
PSOACT PST+53*, PST+57*, PST+59*, LOCK1+1*, LOCK1+2*, EX+4!
>> PSOACTOV PST+59
PSOBILL EX+2!
PSOBM EX+4!
PSOCNT EX+2!
PSOCOU EX+4!
PSOCOUU EX+4!
PSOCPAY EX+2!
>> PSOCS DRG+3*, DRG+5
PSOCSP PST+54!, EX+1!
PSOCSP("# OF REFILLS" , PST+55*
PSOCSP("DAYS SUPPLY" , PST+56*
PSOCSP("DOSE ORDERED" , PST+54*
PSOCSP("DOSE" PST+54*
PSOCSP("ISSUE DATE" , PST+56*
PSOCSP("NAME" PST+54*
PSOCSP("QTY" PST+56*
PSOD EX+4!
PSODFN ISSDT+3*, ISSDT+8, ISSDT+12, PST+15, PST+17, EX+1!
PSODRUG PST+69, EX!
PSODRUG("DEA" DRG+2, DRG+4, PST+34
PSODRUG("IEN" DRGDS+4, DS+15, DS+17, PST+19, PST+23, PST+24, PST+26
PSODRUG("NAME" DS+14, DS+15, PST+54, PST+74, PST+82, PST+83
PSODRUG("OI" DSPL+1*, DS+4, DS+11
PSODRUG("OIN" DSPL+1*
PSODSPL DSPL!
PSOFDR EX+3!
PSOFIN EX+3!
PSOFLAG EX+4!
PSOFROM EX+1!
PSOIBQS EX+2!
PSOID ISSDT*, EX+2!
PSOINSFL PST!, PST+1*
PSOLK EX+2!
>> PSOMAX DRG+5, DRG+7*
PSON EX+4!
PSONEW PST+69, EX+1!
PSONEW("# OF REFILLS" , PST+20*, PST+31, PST+55
PSONEW("ADMINCLINIC" PST+40!*
PSONEW("CHCS NUMBER" , ISSDT+9*
PSONEW("CLERK CODE" , ISSDT+2*, ISSDT+7*
PSONEW("CLINIC" ISSDT+4*
PSONEW("COSIG NING PROVIDER" , PST+35*, PST+36
PSONEW("DAYS SUPPLY" , ISSDT+11*, ISSDT+12*, DS+1*, PST+15, PST+56
PSONEW("DFLG" ISSDT+3*
PSONEW("DOSE ORDERED" , PST+54
PSONEW("DOSE" PST+54
PSONEW("EXTER NAL SYSTEM" , ISSDT+10*
PSONEW("FILL DATE" , PST+10*, PST+67*
PSONEW("IND" DS+9*, PST+4
PSONEW("INDO" DS+10*
PSONEW("ISSUE DATE" , ISSDT*, ISSDT+1*, PST+9
PSONEW("MAIL EXEMPTION" , PST+78*, PST+85*
PSONEW("MAIL/WINDOW" ISSDT+3*, PST+31
PSONEW("PATIE NT STATUS" , ISSDT+8*, PST+8
PSONEW("PROVI DER NAME" , ISSDT+7*, PST+33
PSONEW("PROVIDER" ISSDT+7*, PST+35
PSONEW("QFLG" ISSDT+3*
PSONEW("QTY" ISSDT+3*, PST+23, PST+56
PSONEW("REMARKS" PST+39*, PST+41
PSONOOR EX+4!
PSOOPT EX+4!
>> PSOPAR PST+53, PST+57, LOCK1+1, LOCK1+2
PSOPARKX ST+4~, RT+1~
PSOPARKX(0 ST+8, ST+9, RT+6
PSOPF EX+4!
PSOPI EX+4!
PSOPLCK LOCK+4*, LOCK+6!
PSOPRC DSPL!
PSOPTPST EX+2!
PSOQFLG EX+2!
PSOQUIT ULKEX+3!
PSOR0 PST+75~, PST+80*, PST+81
PSORR PST+75~, PST+81*
PSORX EX+2!
PSORX("CLERK CODE" , ISSDT+2*
PSORX("CLINIC" ISSDT+4*, ISSDT+5*, PST+32
PSORX("FILL D ATE" , PST+10*, PST+67*
PSOSD EX+1!
PSOSD("ACTIVE" PST+82, PST+83
PSOSORT EX+1!
PSOX DRG+3!
PSRF EX+4!
PSRT ST~, ST+2, ST+3, ST+10, ST+11, ST+12, ST+13, ST+14, ST+15, ST+16
, ST+17, EX+1!
PSZFIN EX+2!
PSZFZZ EX+2!
PT EX+2!
RESULTS ST+4~, ST+5*, RT+1~, RT+2*
RN PST+25*, PST+26!, PST+43*, PST+44!
RTN EX+2!
RXFL EX+4!
RXIEN PST+75~, PST+77*, PST+78, PST+79, PST+83*, PST+84
RXPT PST+17*, PST+19, PST+21!
SAVELKTM LOCK+1~, LOCK+3*, LOCK+5
SDA EX+4!
SEG1 EX+4!
SER EX+4!
SERS EX+4!
SG INST+4!
SIG EX!
>> SIGOK PSOORFI1+18*
SLPPL EX+4!
SRT EX+1!
STA EX+1!
STAT EX+4!
SUGFLDT PST+63~, PST+65*, PST+66, PST+67
T EX+1!
T1 EX+1!
TC EX+2!
TM EX+2!
TM1 EX+2!
TO EX+2!
TY PST+3*, PST+6*, INST+1, INST+2, INST+4!
TZ EX+2!
>> USER1 ISSDT+2, ISSDT+7, PST+37, PST+43
>> VALMBCK PST+86*
>> VALMCNT PST+69*
>> VALMEVL PST+64
WIN EX+1!
X ULK*, EX+1!
Y ISSDT*, ISSDT+1, PST+10*, PST+12*, PST+44*, PST+63~, PST+67*, EX+1!
Z EX+4!
Z4 EX+4!
ZDA EX+4!
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