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

Package: Outpatient Pharmacy

Routine: PSOERPT1


Information

PSOERPT1 ;BIRM/MFR - eRx Single Patient Medication Queue Supporting API's ; 12/10/22 10:57am

Source Information

Source file <PSOERPT1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Outpatient Pharmacy 6 ($$MATCH,$$MATCHSRT)^PSOERPT2  SETPAT^PSOERUT0  ($$GETDRUG,$$GETPROV)^PSOERXU5  $$OPACCESS^PSOERXU7  $$CSFILTER^PSOERXUT  $$DEAD^PSONVARP  
Kernel 2 ($$FMADD,$$FMTE)^XLFDT  $$UP^XLFSTR  
List Manager 2 (INSTR,PAUSE)^VALM1  CNTRL^VALM10  
VA FileMan 2 $$GET1^DIQ  ^DIR  

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

Package Total Caller Graph
Outpatient Pharmacy 7 PSOERPC2  PSOERPT0  PSOERRX0  PSOERUT6  PSOERX1A  PSOERX1H  PSOERXH2  

Entry Points

Name Comments DBIA/ICR reference
SETHDR() ; - Displays the Header Line
SETSORT(FIELD) ;Sets the data sorted by the FIELD specified
; Input: FIELD - Sort By Field
SETITEM(ERXIEN,FIELD) ; Adds an eRx Record to the Sorted List
; Input: ERXIEN - eRx IEN - Pointer to #52.49
; FIELD - Sort By field
MATCHSUG(ERXIEN,VIEW) ; Match Suggestion Prompt
; Input: ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49)
; (o)VIEW - View Only Mode (1:YES,0/null: NO)
CMPPAT(ERXIEN,VISTAPAT,LSTERXID,COUNTER) ; Display the Comparison Between eRx and VistA Patients
CSERXS() ; Returns whether there are CS eRx on the list or not
VAPATIEN() ; Returns the VistA Patient IEN or 0 (No VistA Patient Selected) or -1 (Different VistA Patients Selected)
OPACCESS(OPTION,USER,LIST) ; Returns whether the current user has priviledge to Perform a given action on a list of entries
; Input: OPTION - Option to be checked
; USER - Pointer to NEW PERSON file (#200)
; LIST - List of eRX Records to be checked
ALRDYVAL() ; Returns whether at least one record from the list has already been validated
VIDEO() ; Changes the Video Attributes for the list
ERXLST(RANGE,ERXLST) ; Given a Range of List Item returns the list of eRx's in an Array
; Input: RANGE - User Selected Range (ex: '1-5'; '2,5,8,10'; '1-5,11-15', etc)
LSTERXS(ERXLST,ISSONLY,DISPSEQ) ; Given a list of eRx IENs (array passed in by Reference) it displays a list
PATIDS ; Patient Lookup Identifiers Display (set on DIC("W"))

External References

Name Field # of Occurrence
$$GET1^DIQ SETSORT+10, SETITEM+4, SETITEM+7, SETITEM+8, SETITEM+14, SETITEM+16, SETITEM+17, SETITEM+19, SETITEM+21, SETITEM+22
, MATCHSUG+6, CMPPAT+9, CMPPAT+11, CSERXS+7, CSERXS+8, VAPATIEN+6, OPACCESS+10, ALRDYVAL+7, ALRDYVAL+8, LSTERXS+10
, LSTERXS+12, LSTERXS+13
^DIR MATCHSUG+28, MATCHSUG+35
$$MATCH^PSOERPT2 SETITEM+23, SETITEM+24, SETITEM+25
$$MATCHSRT^PSOERPT2 SETITEM+36
SETPAT^PSOERUT0 CMPPAT+13
$$GETDRUG^PSOERXU5 SETITEM+20, LSTERXS+11
$$GETPROV^PSOERXU5 SETITEM+22
$$OPACCESS^PSOERXU7 OPACCESS+12
$$CSFILTER^PSOERXUT SETITEM+18
$$DEAD^PSONVARP MATCHSUG+8, MATCHSUG+11
INSTR^VALM1 SETHDR+5, SETHDR+8, SETHDR+9, SETHDR+10, SETHDR+13
PAUSE^VALM1 LSTERXS+16
CNTRL^VALM10 VIDEO+4, VIDEO+7, VIDEO+10, VIDEO+11, VIDEO+12, VIDEO+17, VIDEO+18, VIDEO+19, VIDEO+22, VIDEO+24
, VIDEO+26, VIDEO+28
$$FMADD^XLFDT SETSORT+5, SETSORT+10
$$FMTE^XLFDT SETITEM+26, CMPPAT+9, PATIDS+2
$$UP^XLFSTR SETITEM+29

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCHSUG+30
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCHSUG+35
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCHSUG+35
Function Call: WRITE
  • Prompt: !?50,"Forgetting..."
  • Line Location: MATCHSUG+36
Function Call: WRITE
  • Prompt: "done."
  • Line Location: MATCHSUG+36
Function Call: WRITE
  • Prompt: "done."
  • Line Location: MATCHSUG+36
Function Call: WRITE
  • Prompt: !?55,"|Sugg. "
  • Line Location: CMPPAT+8
Function Call: WRITE
  • Prompt: $G(IOINHI)_+$G(COUNTER)_$G(IOINORM)_" of "_$G(IOINHI)_$P($G(COUNTER),"^",2)_$G(IOINORM)
  • Line Location: CMPPAT+8
Function Call: WRITE
  • Prompt: " - ",$G(IOINHI)_$$FMTE^XLFDT($$GET1^DIQ(52.49,LSTERXID,1.14,"I")\1,"2Z")_$G(IOINORM),"|"
  • Line Location: CMPPAT+9
Function Call: WRITE
  • Prompt: !,$G(IORVON)_"ERX PATIENT"_$G(IORVOFF),?41,$G(IORVON)_"VISTA PATIENT"_$G(IORVOFF)
  • Line Location: CMPPAT+10
Function Call: WRITE
  • Prompt: ?55,"|From eRx#: "_$G(IOINHI)_$$GET1^DIQ(52.49,LSTERXID,.01)_$G(IOINORM),?79,"|"
  • Line Location: CMPPAT+11
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: CMPPAT+12
Function Call: WRITE
  • Prompt: !,HDR,!,XX
  • Line Location: LSTERXS+6
Function Call: WRITE
  • Prompt: !,$S(DISPSEQ:SEQ_$S($$GET1^DIQ(52.49,ERXIEN,95.1,"I"):"]",1:"."),1:""),?$S(DISPSEQ:4,1:0),$$GET1^DIQ(52.49,ERXIEN,.01)
  • Line Location: LSTERXS+10
Function Call: WRITE
  • Prompt: ?51,$E($$GET1^DIQ(52.49,ERXIEN,2.1),1,22)
  • Line Location: LSTERXS+12
Function Call: WRITE
  • Prompt: ?74,$$GET1^DIQ(52.49,ERXIEN,1)
  • Line Location: LSTERXS+13
Function Call: WRITE
  • Prompt: !,"REASON: ",$P($G(ERXLST(SEQ)),"^",2)
  • Line Location: LSTERXS+15
Function Call: WRITE
  • Prompt: !,HDR,!,XX
  • Line Location: LSTERXS+16
Function Call: WRITE
  • Prompt: " ",$$FMTE^XLFDT($P(^(0),U,3),"5Z")," ",$P(^(0),U,9)
  • Line Location: PATIDS+2
Function Call: WRITE
  • Prompt: " ",$P(Z,U,4)
  • Line Location: PATIDS+3
Function Call: WRITE
  • Prompt: ",",$P(^DIC(5,+$P(Z,U,5),0),U,2)
  • Line Location: PATIDS+3
Routine Call
  • DIR
  • Line Location:
    • MATCHSUG+28
    • MATCHSUG+35

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.48 - [#52.48] GET1^DIQ
^PS(52.49 - [#52.49] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] PATIDS+3
^DPT - [#2] CMPPAT+5
^PS(52.49 - [#52.49] SETSORT+6, SETSORT+7, SETSORT+9, MATCHSUG+8, MATCHSUG+10, MATCHSUG+12, MATCHSUG+13, MATCHSUG+36!, CMPPAT+5
^TMP("PSOERINC" SETSORT+3!, SETSORT+8*, SETSORT+11, SETSORT+12*, SETSORT+13!
^TMP("PSOERPT0" CSERXS+3, CSERXS+4, CSERXS+5, VAPATIEN+3, VAPATIEN+4, VAPATIEN+5, ALRDYVAL+3, ALRDYVAL+4, ALRDYVAL+5, ERXLST+10
, ERXLST+13
^TMP("PSOERPTS" SETSORT+3!, SETITEM+37*, SETITEM+38*, SETITEM+39*, SETITEM+40*, SETITEM+41*, SETITEM+42*

Label References

Name Line Occurrences
CMPPAT MATCHSUG+16
SETITEM SETSORT+8, SETSORT+12

Naked Globals

Name Field # of Occurrence
^( PATIDS+3
^(0 PATIDS+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALRDYVAL ALRDYVAL+1~, ALRDYVAL+2*, ALRDYVAL+3, ALRDYVAL+8*, ALRDYVAL+9
CNT MATCHSUG+5~, MATCHSUG+7*, MATCHSUG+10, MATCHSUG+15*, MATCHSUG+16, MATCHSUG+17, MATCHSUG+18, MATCHSUG+19, MATCHSUG+23, MATCHSUG+35*
, LSTERXS+4~, LSTERXS+7*, LSTERXS+15*, LSTERXS+16*
COUNTER CMPPAT~, CMPPAT+8
CSERXS CSERXS+1~, CSERXS+2*, CSERXS+3, CSERXS+8*, CSERXS+9
CSGROUP SETSORT+2~, SETITEM+3~, SETITEM+21*, SETITEM+37, SETITEM+38, SETITEM+39, SETITEM+40, SETITEM+41, SETITEM+42
DFN VAPATIEN+1~, VAPATIEN+6*, VAPATIEN+7
DIR MATCHSUG+5~, MATCHSUG+17!, MATCHSUG+32!, LSTERXS+4~
DIR("?" MATCHSUG+22*, MATCHSUG+24*, MATCHSUG+25*, MATCHSUG+26*, MATCHSUG+27*, MATCHSUG+34*
DIR("A" MATCHSUG+18*, MATCHSUG+33*
DIR("B" MATCHSUG+19*, MATCHSUG+32*
DIR(0 MATCHSUG+17*, MATCHSUG+32*
DIROUT MATCHSUG+5~, MATCHSUG+28, MATCHSUG+35
DIRUT MATCHSUG+5~, MATCHSUG+28, MATCHSUG+35
DISPSEQ LSTERXS~, LSTERXS+5, LSTERXS+10
>> DRMTCHLN( VIDEO+27
DRUG SETITEM+3~, SETITEM+20*, SETITEM+26, SETITEM+29
DRUMTCH SETITEM+3~, SETITEM+25*, SETITEM+27, SETITEM+35, SETITEM+36, SETITEM+42
DT SETSORT+5, SETSORT+10
>> EPATIEN SETSORT+6, SETSORT+7
ERXID SETITEM+3~, SETITEM+19*, SETITEM+28, MATCHSUG+5~, MATCHSUG+13*
ERXIEN SETSORT+2~, SETSORT+5*, SETSORT+7*, SETSORT+8, SETSORT+9, SETITEM~, SETITEM+4, SETITEM+7, SETITEM+8, SETITEM+14
, SETITEM+16, SETITEM+17, SETITEM+18, SETITEM+19, SETITEM+20, SETITEM+21, SETITEM+22, SETITEM+23, SETITEM+24, SETITEM+25
, SETITEM+28, SETITEM+29, SETITEM+30, SETITEM+31, SETITEM+33, SETITEM+34, SETITEM+35, SETITEM+36, SETITEM+38, MATCHSUG~
, MATCHSUG+6, MATCHSUG+13, MATCHSUG+16, CMPPAT~, CMPPAT+5, CMPPAT+13, CSERXS+1~, CSERXS+5*, CSERXS+7, CSERXS+8
, VAPATIEN+1~, VAPATIEN+5*, VAPATIEN+6, OPACCESS+5~, OPACCESS+8*, OPACCESS+10, OPACCESS+11, OPACCESS+12, ALRDYVAL+1~, ALRDYVAL+5*
, ALRDYVAL+7, ALRDYVAL+8, ERXLST+10*, ERXLST+11, ERXLST+13*, ERXLST+14, LSTERXS+4~, LSTERXS+8*, LSTERXS+10, LSTERXS+11
, LSTERXS+12, LSTERXS+13
ERXLST ERXLST~, ERXLST+5!, ERXLST+15!, LSTERXS~
ERXLST( ERXLST+11*, ERXLST+14*, LSTERXS+7, LSTERXS+8, LSTERXS+9, LSTERXS+14, LSTERXS+15
ERXPAT MATCHSUG+5~, MATCHSUG+6*, MATCHSUG+8, MATCHSUG+10, MATCHSUG+12, MATCHSUG+13, MATCHSUG+36
FIELD SETSORT~, SETSORT+8, SETSORT+12, SETITEM~, SETITEM+28, SETITEM+29, SETITEM+30, SETITEM+31, SETITEM+32, SETITEM+33
, SETITEM+34, SETITEM+35, SETITEM+36
>> GRPLN VIDEO+14
>> GRPLN( VIDEO+15, VIDEO+16
HDR SETHDR+1~, SETHDR+3*, SETHDR+4*, SETHDR+5, LSTERXS+4~, LSTERXS+5*, LSTERXS+6, LSTERXS+16
>> HIGHLN( VIDEO+10, VIDEO+11
I VIDEO+1~, VIDEO+7*, VIDEO+9*, VIDEO+10, VIDEO+11, VIDEO+12, VIDEO+15*, VIDEO+21*, VIDEO+23*, VIDEO+25*
, VIDEO+27*
II MATCHSUG+5~, MATCHSUG+20*, MATCHSUG+22*, MATCHSUG+24*, MATCHSUG+25*, MATCHSUG+26*
INVALID ERXLST+4~, ERXLST+5*, ERXLST+10*, ERXLST+13*, ERXLST+15
>> IOINHI SETHDR+8, SETHDR+9, SETHDR+10, SETHDR+13, CMPPAT+8, CMPPAT+9, CMPPAT+11, VIDEO+10, VIDEO+11, VIDEO+22
, VIDEO+24, VIDEO+26, VIDEO+28
>> IOINORM SETHDR+5, SETHDR+8, SETHDR+9, SETHDR+10, SETHDR+13, CMPPAT+8, CMPPAT+9, CMPPAT+11, VIDEO+4, VIDEO+7
, VIDEO+10, VIDEO+11, VIDEO+12, VIDEO+17, VIDEO+18, VIDEO+19, VIDEO+22, VIDEO+24, VIDEO+26, VIDEO+28
>> IORVOFF CMPPAT+10, VIDEO+4, VIDEO+6, VIDEO+18
>> IORVON SETHDR+5, SETHDR+8, SETHDR+9, SETHDR+10, SETHDR+13, CMPPAT+10, VIDEO+18
>> IOUOFF VIDEO+10
>> IOUON VIDEO+10, VIDEO+12, VIDEO+17, VIDEO+19
ISSONLY LSTERXS~, LSTERXS+9
L1 ERXLST+4~, ERXLST+6*, ERXLST+7
>> LBL VIDEO+16*, VIDEO+18, VIDEO+19
LINE CMPPAT+6~, CSERXS+1~, CSERXS+3*, CSERXS+4, VAPATIEN+1~, VAPATIEN+3*, VAPATIEN+4, ALRDYVAL+1~, ALRDYVAL+3*, ALRDYVAL+4
, VIDEO+7, VIDEO+9, ERXLST+4~, ERXLST+9*, ERXLST+10, ERXLST+11
LIST OPACCESS~
LIST( OPACCESS+7, OPACCESS+8
LN VIDEO+1~, VIDEO+15*, VIDEO+16, VIDEO+17, VIDEO+18, VIDEO+19, VIDEO+21*, VIDEO+22, VIDEO+23*, VIDEO+24
, VIDEO+25*, VIDEO+26, VIDEO+27*, VIDEO+28
LSTERXID MATCHSUG+5~, MATCHSUG+12*, MATCHSUG+13*, MATCHSUG+14, MATCHSUG+16, CMPPAT~, CMPPAT+7, CMPPAT+9, CMPPAT+11
LSTMTCH MATCHSUG+5~, MATCHSUG+12*, MATCHSUG+13
MATCHCNT MATCHSUG+5~, MATCHSUG+7*, MATCHSUG+8*, MATCHSUG+9*, MATCHSUG+16, MATCHSUG+17, MATCHSUG+18, MATCHSUG+19, MATCHSUG+23
MATCHSUG MATCHSUG+5~, MATCHSUG+7*, MATCHSUG+10, MATCHSUG+29*, MATCHSUG+37
>> MBMSITE SETITEM+14
MSGDTTM SETITEM+3~, SETITEM+8*, SETITEM+26, SETITEM+31
MSGTYPE SETITEM+3~, SETITEM+7*, SETITEM+10, SETITEM+12, SETITEM+20
OPACCESS OPACCESS+5~, OPACCESS+6*, OPACCESS+7, OPACCESS+10*, OPACCESS+12*, OPACCESS+13
OPTION OPACCESS~, OPACCESS+12
PATMTCH SETITEM+3~, SETITEM+23*, SETITEM+27, SETITEM+33, SETITEM+36, SETITEM+39
POS VIDEO+1~, VIDEO+16*, VIDEO+17, VIDEO+18, VIDEO+19
>> PRMTCHLN( VIDEO+23
PROMTCH SETITEM+3~, SETITEM+24*, SETITEM+27, SETITEM+34, SETITEM+36, SETITEM+40, SETITEM+41
PROVIDER SETITEM+3~, SETITEM+22*, SETITEM+26, SETITEM+30
>> PRVALLN( VIDEO+25
>> PSNPINST SETITEM+14
>> PSOALLST SETITEM+6, SETITEM+10, SETITEM+12
>> PSOCSERX SETITEM+16, SETITEM+17
>> PSOCSGRP SETITEM+21
PSOIEN OPACCESS+5~, OPACCESS+11*
>> PSOLKBKD SETSORT+5, SETSORT+10
>> PSORDER SETHDR+6
>> PSOSRTBY SETHDR+7, SETHDR+12
>> PTMTCHLN( VIDEO+21
QUIT MATCHSUG+5~, MATCHSUG+7*, MATCHSUG+10, MATCHSUG+28*
RANGE ERXLST~, ERXLST+6, ERXLST+7
RECDAT SETSORT+2~, SETSORT+5*, SETSORT+6*, SETSORT+7, SETITEM+32
RELMSGID SETSORT+2~, SETSORT+9*, SETSORT+10, SETSORT+11, SETSORT+12
SEG ERXLST+4~, ERXLST+7*, ERXLST+8, ERXLST+9, ERXLST+13, ERXLST+14
SEQ CSERXS+4*, CSERXS+5, VAPATIEN+1~, VAPATIEN+4*, VAPATIEN+5, OPACCESS+5~, OPACCESS+7*, OPACCESS+8, ALRDYVAL+1~, ALRDYVAL+4*
, ALRDYVAL+5, LSTERXS+4~, LSTERXS+7*, LSTERXS+8, LSTERXS+9, LSTERXS+10, LSTERXS+14, LSTERXS+15
SORT SETSORT+2~, SETITEM+28*, SETITEM+29*, SETITEM+30*, SETITEM+31*, SETITEM+32*, SETITEM+33*, SETITEM+34*, SETITEM+35*, SETITEM+36*
, SETITEM+37, SETITEM+38, SETITEM+39, SETITEM+40, SETITEM+41, SETITEM+42
SRTORD SETHDR+1~, SETHDR+6*, SETHDR+8, SETHDR+9, SETHDR+10, SETHDR+13
SRTPOS SETHDR+1~, SETHDR+12*, SETHDR+13
STATUS SETITEM+3~, SETITEM+4*, SETITEM+6, SETITEM+10, SETITEM+12, SETITEM+27, SETITEM+32
U PATIDS+2, PATIDS+3
>> UNDLN( VIDEO+10, VIDEO+12
USER OPACCESS~, OPACCESS+12
>> VALMEVL VIDEO+6
VAPATIEN VAPATIEN+1~, VAPATIEN+2*, VAPATIEN+3, VAPATIEN+6*, VAPATIEN+7*, VAPATIEN+8
VIEW MATCHSUG~, MATCHSUG+17, MATCHSUG+18, MATCHSUG+21
VISTAPAT CMPPAT~, CMPPAT+5, CMPPAT+13
VPAT MATCHSUG+5~, MATCHSUG+7*, MATCHSUG+8*, MATCHSUG+10*, MATCHSUG+11, MATCHSUG+12, MATCHSUG+13, MATCHSUG+16, MATCHSUG+29, MATCHSUG+35*
, MATCHSUG+36
X SETITEM+3~, SETITEM+33*, SETITEM+34*, SETITEM+35*, MATCHSUG+5~, CMPPAT+6~
XX CMPPAT+6~, CMPPAT+12*, LSTERXS+4~, LSTERXS+6*, LSTERXS+16
Y MATCHSUG+5~, MATCHSUG+28, MATCHSUG+29, MATCHSUG+30, MATCHSUG+31, MATCHSUG+35
Z SETITEM+3~, SETITEM+26*, SETITEM+27*, SETITEM+37, PATIDS+1~, PATIDS+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 |  Naked Globals |  Local Variables  | All