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 |  Local Variables  | All
Print Page as PDF
Routine: PSOERX1H

Package: Outpatient Pharmacy

Routine: PSOERX1H


Information

PSOERX1H ;ALB/MFR - eRx Utilities ;Aug 14, 2020@12:43:34

Source Information

Source file <PSOERX1H.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Outpatient Pharmacy 8 LSTERXS^PSOERPT1  $$ERXMTYPE^PSOERSE1  BUILDLST^PSOERSE4  ADDLINE^PSOERUT0  TXT2ARY^PSOERXD1  UPDSTAT^PSOERXU1  $$GETDRUG^PSOERXU5  $$OPACCESS^PSOERXU7  
VA FileMan 4 $$FIND1^DIC  FILE^DIE  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  $$CJ^XLFSTR  
Text Integration Utility 2 NEW^TIUPNAPI  UPDATE^TIUSRVP  
List Manager 1 SET^VALM10  

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

Package Total Caller Graph
Outpatient Pharmacy 6 PSOERCR0  PSOERSE4  PSOERUT2  PSOERX1G  PSOERXI1  PSOERXU4  

Entry Points

Name Comments DBIA/ICR reference
DEANOTE ; DEA Note for CS Digitally Signed eRx records
BATCHREM(ERXIEN,REMVIEN,REMCOMM,TYPE) ; Batch Remove/Un-Remove for Additional eRx (Received Same Day, Patient and Provider)
CHKSTA(REMOVERX) ; check if status is RM or type is "REM"
CREATEPN(PSOIEN,CRERXIEN,PNCOMM,CRMEDS,TIUTITLE) ;CREATE A PROGRESS NOTE FOR PATIENT
UPDATEPN(PSOTIUDA,PSOIEN,CRMEDS) ;Update existing patient progress notes
DRUGHDR ;
; - Drug Matching Header Line
ADDPNOTE(LINE,PNCOMM) ;
CHECKREC(RECARY) ;check if there are any change requests made for this original eRx.
SELCTREC() ;prompt user to select REC
; N - New
; R - Resend existing REC
ANSWER(PSODIRA,PSODIRB,PSODIR0,PSODIRH) ;
; Input:
; PSODIR0 - DIR(0) string
; PSODIRA - DIR("A") string
; PSODIRB - DIR("B") string
; PSODIRH - DIR("?") string
; Output:
; Function Value - Internal value returned from ^DIR or -1 if user
; up-arrows, double up-arrows or the read times out.
HELP ;REC help
BUILDSUM(ERXIEN) ;Build the existing record of the erx that the user selected
MEDREQ(ERXIEN) ;Existing Medication Requested
ASKCONT ; display "Press <Enter> or '^' to exit" prompt

External References

Name Field # of Occurrence
$$FIND1^DIC CREATEPN+16, UPDATEPN+20
FILE^DIE CREATEPN+26
$$GET1^DIQ BATCHREM+7, BATCHREM+8, BATCHREM+9, BATCHREM+10, BATCHREM+17, BATCHREM+21, BATCHREM+23, BATCHREM+29, BATCHREM+34, BATCHREM+42
, BATCHREM+43, CREATEPN+14, CREATEPN+18, CREATEPN+22, CREATEPN+27, UPDATEPN+9, UPDATEPN+23, UPDATEPN+24, DRUGHDR+3, DRUGHDR+4
, DRUGHDR+5, CHECKREC+12, CHECKREC+13, CHECKREC+14, BUILDSUM+5, BUILDSUM+6, BUILDSUM+8, BUILDSUM+12, BUILDSUM+13, BUILDSUM+14
, BUILDSUM+16, MEDREQ+22, MEDREQ+26
GETS^DIQ MEDREQ+8
^DIR BATCHREM+36, CHECKREC+20, ANSWER+14
LSTERXS^PSOERPT1 BATCHREM+30
$$ERXMTYPE^PSOERSE1 CREATEPN+12
BUILDLST^PSOERSE4 CREATEPN+15
ADDLINE^PSOERUT0 DRUGHDR+15
TXT2ARY^PSOERXD1 BUILDSUM+18
UPDSTAT^PSOERXU1 BATCHREM+42, BATCHREM+43
$$GETDRUG^PSOERXU5 UPDATEPN+10
$$OPACCESS^PSOERXU7 BATCHREM+19
NEW^TIUPNAPI CREATEPN+20
UPDATE^TIUSRVP UPDATEPN+27
SET^VALM10 DEANOTE+1, DEANOTE+2, DEANOTE+3, DEANOTE+4
$$FMTE^XLFDT DRUGHDR+9, CHECKREC+14
$$NOW^XLFDT CREATEPN+20, UPDATEPN+21
$$CJ^XLFSTR ASKCONT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The following prescriptions are from the same provider and received on the"
  • Line Location: BATCHREM+27
Function Call: WRITE
  • Prompt: !,"same day:",!
  • Line Location: BATCHREM+28
Function Call: WRITE
  • Prompt: !,"PROVIDER: "_$$GET1^DIQ(52.49,ERXIEN,2.1),?40,"eRx RECEIVED DATE: "_$$GET1^DIQ(52.49,ERXIEN,.03)
  • Line Location: BATCHREM+29
Function Call: WRITE
  • Prompt: !
  • Line Location: BATCHREM+31
Function Call: WRITE
  • Prompt: !,"Updating..."
  • Line Location: BATCHREM+38
Function Call: WRITE
  • Prompt: "done.",$C(7)
  • Line Location: BATCHREM+44
Function Call: WRITE
  • Prompt: !,"Creating a new Progress Note..."
  • Line Location: CREATEPN+14
Function Call: WRITE
  • Prompt: !,$G(IOINHI),"A problem was encountered while creating the Progress Note.",$G(IOINORM),!
  • Line Location: CREATEPN+22
Function Call: WRITE
  • Prompt: "Done."
  • Line Location: CREATEPN+27
Function Call: WRITE
  • Prompt: !,"#",?5,"ERX ID",?21,"ERX TYPE",?40,"STATUS",?50,"DATE/TIME"
  • Line Location: CHECKREC+6
Function Call: WRITE
  • Prompt: !,DDASH
  • Line Location: CHECKREC+7
Function Call: WRITE
  • Prompt: !,CNTR,?5,ERXHUBID,?21,ERXTYPE,?40,ERXSTAT,?50,ERXDTM
  • Line Location: CHECKREC+15
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECKREC+20
Function Call: WRITE
  • Prompt: !
  • Line Location: SELCTREC+4
Function Call: WRITE
  • Prompt: !!,"NEW - Adds a new Drug/SIG/Qty/Refills/Days Supply suggestion be sent to"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: " the prescriber as an alternative for this Change Request.",!
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,"RESEND - Allow users to edit and resend an eRx Change Request."
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Press <Enter> or '^' to exit.",1)
  • Line Location: ASKCONT+2
Routine Call
  • DIC
  • Line Location:
    • CREATEPN+16
    • UPDATEPN+20
Routine Call
  • DIE
  • Line Location:
    • CREATEPN+26
Routine Call
  • DIR
  • Line Location:
    • BATCHREM+36
    • CHECKREC+20
    • ANSWER+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^PS(52.45 - [#52.45] GET1^DIQ
^PS(52.49 - [#52.49] GET1^DIQ
52.49316 GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ
^TIU(8925.1 - [#8925.1] FIND1^DIC
^TIU(8925.6 - [#8925.6] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] CREATEPN+19
^PS(52.45 - [#52.45] CHKSTA+1, CHKSTA+3, BUILDSUM+5
^PS(52.49 - [#52.49] BATCHREM+13, BATCHREM+14, CHKSTA+1, CHECKREC+11, BUILDSUM+9, MEDREQ+6
^TMP("PSOCRSIG" MEDREQ+4!, MEDREQ+27*, MEDREQ+28
^TMP("TIUP" CREATEPN+13

Label References

Name Line Occurrences
$$ANSWER SELCTREC+9
$$SELCTREC CHECKREC+17
CHKSTA BATCHREM+22
MEDREQ BUILDSUM+20
UPDATEPN CREATEPN+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AMATCH DRUGHDR+3*, DRUGHDR+8
>> BLINKLN( DRUGHDR+14*
CNTR UPDATEPN+7~, UPDATEPN+13*, UPDATEPN+14*, UPDATEPN+15, CHECKREC+4~, CHECKREC+8*, CHECKREC+9*, CHECKREC+10, CHECKREC+15, CHECKREC+16
CODE BUILDSUM+3~, BUILDSUM+4*, BUILDSUM+5*
CRERXIEN CREATEPN~, CREATEPN+11, CREATEPN+12, CREATEPN+14, CREATEPN+15, CREATEPN+22, CREATEPN+24, CREATEPN+25, CREATEPN+27
CRFDA CREATEPN+9~, CREATEPN+26!
CRFDA( CREATEPN+24*, CREATEPN+25*
CRMED MEDREQ+3~, MEDREQ+23*, MEDREQ+24, MEDREQ+25, MEDREQ+28
CRMEDS CREATEPN~, CREATEPN+23, UPDATEPN~, MEDREQ+4!
CRMEDS( UPDATEPN+14, UPDATEPN+15, MEDREQ+24*, MEDREQ+25*, MEDREQ+28*
CRMEDS(0 UPDATEPN+12
CRMEDS(99 MEDREQ+23
>> DAYSSUP MEDREQ+20*, MEDREQ+24
DDASH CHECKREC+4~, CHECKREC+7*
DIR BATCHREM+32~, CHECKREC+19!, ANSWER+9~
DIR("?" ANSWER+13*
DIR("??" ANSWER+13*
DIR("A" BATCHREM+33*, BATCHREM+34*, BATCHREM+35*, CHECKREC+19*, ANSWER+11*
DIR("B" BATCHREM+36*, ANSWER+12*
DIR(0 BATCHREM+33*, CHECKREC+19*, ANSWER+10*
DIROUT BATCHREM+32~, CHECKREC+20, ANSWER+9~, ANSWER+15, ANSWER+17
DIRUT BATCHREM+32~, CHECKREC+20, ANSWER+9~
DRUG MEDREQ+3~, MEDREQ+10*, MEDREQ+24
DRUGCODE MEDREQ+3~, MEDREQ+12*, MEDREQ+24
DRUGCODQ MEDREQ+3~, MEDREQ+13*, MEDREQ+24
DRUGNAME UPDATEPN+7~, UPDATEPN+15*, UPDATEPN+16
>> DRUGTYPE MEDREQ+11*, MEDREQ+24
DTIME ASKCONT+3
DTOUT BATCHREM+32~, ANSWER+9~, ANSWER+15, ANSWER+17
DUOUT BATCHREM+32~, ANSWER+9~, ANSWER+15, ANSWER+17
DUZ BATCHREM+19, CREATEPN+20, UPDATEPN+22, UPDATEPN+23, UPDATEPN+24
DUZTITLE ADDPNOTE+1~
EPATIEN BATCHREM+6~, BATCHREM+10*, BATCHREM+13, BATCHREM+14
EPRVIEN BATCHREM+6~, BATCHREM+9*, BATCHREM+23
ERXDRUG UPDATEPN+7~, UPDATEPN+9*, UPDATEPN+10*, UPDATEPN+11
ERXDTM CHECKREC+4~, CHECKREC+14*, CHECKREC+15
ERXHUBID CHECKREC+4~, CHECKREC+11*, CHECKREC+15
ERXIEN BATCHREM~, BATCHREM+8, BATCHREM+9, BATCHREM+10, BATCHREM+15, BATCHREM+29, DRUGHDR+3, DRUGHDR+4, DRUGHDR+5, BUILDSUM~
, BUILDSUM+6, BUILDSUM+9, BUILDSUM+11, BUILDSUM+16, BUILDSUM+20, MEDREQ~, MEDREQ+6, MEDREQ+7
ERXRET UPDATEPN+7~, UPDATEPN+27
>> ERXSIG( MEDREQ+27
ERXSTAT CHECKREC+4~, CHECKREC+13*, CHECKREC+15
ERXTYPE CHECKREC+4~, CHECKREC+12*, CHECKREC+15
>> EXTRCODE BUILDSUM+8*, BUILDSUM+14*
>> EXTSCODE BUILDSUM+7*, BUILDSUM+13*, BUILDSUM+15*
FILE MEDREQ+3~, MEDREQ+7*, MEDREQ+8, MEDREQ+9, MEDREQ+10, MEDREQ+11, MEDREQ+12, MEDREQ+13, MEDREQ+14, MEDREQ+15
, MEDREQ+16, MEDREQ+17, MEDREQ+18, MEDREQ+19, MEDREQ+20, MEDREQ+21, MEDREQ+26
>> HDR DRUGHDR+12*, DRUGHDR+14, DRUGHDR+15
I MEDREQ+3~, MEDREQ+27*
IENS BUILDSUM+3~, BUILDSUM+9*, BUILDSUM+10, BUILDSUM+11*, BUILDSUM+12, BUILDSUM+15, MEDREQ+3~, MEDREQ+7*, MEDREQ+8, MEDREQ+9
, MEDREQ+10, MEDREQ+11, MEDREQ+12, MEDREQ+13, MEDREQ+14, MEDREQ+15, MEDREQ+16, MEDREQ+17, MEDREQ+18, MEDREQ+19
, MEDREQ+20, MEDREQ+21, MEDREQ+26
II MEDREQ+3~, MEDREQ+5*, MEDREQ+6*, MEDREQ+7
INDEX BUILDSUM+3~, BUILDSUM+4!
INDEX( BUILDSUM+5*, BUILDSUM+7, BUILDSUM+8
>> IOINHI CREATEPN+22
>> IOINORM CREATEPN+22
LINE DEANOTE+1*, DEANOTE+2*, DEANOTE+3*, DEANOTE+4*, DRUGHDR+14, ADDPNOTE~, ADDPNOTE+2*, ADDPNOTE+3*, ADDPNOTE+4*, ADDPNOTE+5*
, ADDPNOTE+6*
>> MATCH DRUGHDR+6*, DRUGHDR+8*, DRUGHDR+9*, DRUGHDR+10*, DRUGHDR+11*, DRUGHDR+12, DRUGHDR+13*
MBMSITE BATCHREM+6~, BATCHREM+7*, BATCHREM+18, BATCHREM+42
MEDREQ MEDREQ+3~, MEDREQ+8!
MEDREQ( MEDREQ+9, MEDREQ+10, MEDREQ+11, MEDREQ+12, MEDREQ+13, MEDREQ+14, MEDREQ+15, MEDREQ+16, MEDREQ+17, MEDREQ+18
, MEDREQ+19, MEDREQ+20, MEDREQ+21
MSGDTTM BATCHREM+6~, BATCHREM+8*, BATCHREM+12, BATCHREM+13
MSGTYPE BATCHREM+6~
MTYPE BATCHREM+6~
NEWSTS BATCHREM+6~, BATCHREM+41*, BATCHREM+42, BATCHREM+43
>> NMSPC DRUGHDR+15
NOTE MEDREQ+3~, MEDREQ+15*, MEDREQ+25
NUMREFS MEDREQ+3~, MEDREQ+19*, MEDREQ+24
PNCOMM CREATEPN~, CREATEPN+15, CREATEPN+25, ADDPNOTE~, ADDPNOTE+3
PSOASK SELCTREC+3~, SELCTREC+9*, SELCTREC+10
>> PSOCLNC CREATEPN+20
PSODFN CREATEPN+9~, CREATEPN+18*, CREATEPN+19, CREATEPN+20
PSODIR0 SELCTREC+3~, SELCTREC+8*, SELCTREC+9, ANSWER~, ANSWER+10
PSODIRA SELCTREC+3~, SELCTREC+5*, SELCTREC+9, ANSWER~, ANSWER+11
PSODIRB SELCTREC+3~, SELCTREC+6*, SELCTREC+9, ANSWER~, ANSWER+12
PSODIRH SELCTREC+3~, SELCTREC+7*, SELCTREC+9, ANSWER~, ANSWER+13
PSOIEN BATCHREM+11, BATCHREM+19*, BATCHREM+45*, CREATEPN~, CREATEPN+11, CREATEPN+18, CREATEPN+23, UPDATEPN~, UPDATEPN+9, UPDATEPN+10
PSOPTNM CREATEPN+9~, CREATEPN+19*
PSOTITL CREATEPN+9~, CREATEPN+16*, CREATEPN+17, CREATEPN+20
PSOTIUDA CREATEPN+9~, CREATEPN+20, CREATEPN+21, CREATEPN+23, CREATEPN+24, UPDATEPN~, UPDATEPN+8, UPDATEPN+27
QTY MEDREQ+3~, MEDREQ+18*, MEDREQ+24
QTYQUAL MEDREQ+3~, MEDREQ+16*, MEDREQ+24
>> QTYUM MEDREQ+17*, MEDREQ+24
QUOM MEDREQ+3~, MEDREQ+21*, MEDREQ+22*
>> REACODE BUILDSUM+6*, BUILDSUM+7, BUILDSUM+8*, BUILDSUM+14
>> REASCODE BUILDSUM+7*, BUILDSUM+12*, BUILDSUM+13
REATXT BUILDSUM+7!, BUILDSUM+19!*
REATXT(1 BUILDSUM+17, BUILDSUM+18
RECARY CHECKREC~, CHECKREC+5
RECARY( CHECKREC+9, CHECKREC+10
RECCNT CHECKREC+4~, CHECKREC+16*, CHECKREC+19
RECDAT BATCHREM+6~, BATCHREM+12*, BATCHREM+13*, BATCHREM+14
RECENTRY CHECKREC+4~, CHECKREC+21*, CHECKREC+22
RECIEN CHECKREC+4~, CHECKREC+10*, CHECKREC+11, CHECKREC+12, CHECKREC+13, CHECKREC+14
REMCOMM BATCHREM~, BATCHREM+42, BATCHREM+43
REMOVERX BATCHREM+6~, BATCHREM+14*, BATCHREM+15, BATCHREM+17, BATCHREM+19, BATCHREM+21, BATCHREM+22, BATCHREM+23, BATCHREM+24, BATCHREM+39*
, BATCHREM+40*, BATCHREM+42, BATCHREM+43, CHKSTA~, CHKSTA+1
REMVARR BATCHREM+6~, BATCHREM+25, BATCHREM+30
REMVARR( BATCHREM+24*, BATCHREM+40
REMVIEN BATCHREM~, BATCHREM+21, BATCHREM+34, BATCHREM+41
RET BUILDSUM+3~, BUILDSUM+18!, BUILDSUM+19
RSNTXT BUILDSUM+3~, BUILDSUM+16*
RXSTAT BATCHREM+6~, BATCHREM+17*, BATCHREM+18, BATCHREM+22, CHKSTA+1*, CHKSTA+2, CHKSTA+3*
>> SDERXFLG DRUGHDR+2
>> SELCTREC CHECKREC+17*, CHECKREC+18, CHECKREC+22
SKIPRX BATCHREM+6~, BATCHREM+14*, BATCHREM+16, BATCHREM+18*, BATCHREM+19*, BATCHREM+20, BATCHREM+21*, BATCHREM+22*
STAIEN CHKSTA+1*, CHKSTA+2!, CHKSTA+3!
SUBJECT UPDATEPN+7~, UPDATEPN+11*, UPDATEPN+13*, UPDATEPN+16*, UPDATEPN+17*, UPDATEPN+18*, UPDATEPN+26
SUBS MEDREQ+3~, MEDREQ+14*, MEDREQ+24
TARGET CREATEPN+9~, CREATEPN+13*, CREATEPN+15
TIUTITLE CREATEPN~, CREATEPN+11, CREATEPN+16
TIUX UPDATEPN+7~, UPDATEPN+27
TIUX( UPDATEPN+20*
TIUX(1501 UPDATEPN+21*
TIUX(1502 UPDATEPN+22*
TIUX(1503 UPDATEPN+23*
TIUX(1504 UPDATEPN+24*
TIUX(1505 UPDATEPN+25*
TIUX(1701 UPDATEPN+26*
>> TMPGBL ADDPNOTE+2, ADDPNOTE+3, ADDPNOTE+4, ADDPNOTE+5, ADDPNOTE+6
TMPPSOIEN BATCHREM+6~, BATCHREM+11*, BATCHREM+45
TYPE BATCHREM~, BATCHREM+16, BATCHREM+20, BATCHREM+34, BATCHREM+35, BATCHREM+42, BATCHREM+43
U CREATEPN+19, UPDATEPN+15, ANSWER+16, ANSWER+18
>> UNDERLN( DRUGHDR+14*
>> VADRGIEN DRUGHDR+8
>> VALDTTM DRUGHDR+4*, DRUGHDR+5, DRUGHDR+9
>> VALUSER DRUGHDR+4*, DRUGHDR+9
X BATCHREM+32~, ANSWER+9~, ANSWER+16, ANSWER+18, HELP+1, BUILDSUM+3~, BUILDSUM+18*, MEDREQ+26*
Y BATCHREM+32~, BATCHREM+36, CHECKREC+21, ANSWER+9~, ANSWER+16, ANSWER+18, BUILDSUM+3~, BUILDSUM+6*, BUILDSUM+7, BUILDSUM+8
Z ANSWER+9~, ANSWER+15*, ANSWER+16*, ASKCONT+1~, ASKCONT+3*
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 |  Local Variables  | All