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

Package: Outpatient Pharmacy

Routine: PSOERX1A


Information

PSOERX1A ;ALB/BWF - eRx Utilities/RPC's ; 8/3/2016 5:14pm

Source Information

Source file <PSOERX1A.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Outpatient Pharmacy 9 EN^PSOERX1  (EN,INIT)^PSOERXD1  DERX1^PSOERXD2  (EN,INIT)^PSOERXP1  (EN,INIT)^PSOERXR1  UPDSTAT^PSOERXU1  $$GETPAT^PSOERXU5  $$RXEPRMT^PSOERXU7  
($$DONOTFIL,$$VALPTADD,AUDLOG,PAUSE,PRDRVAL)^PSOERXUT  
VA FileMan 5 (C,NOW)^%DTC  ^DIC  (FILE,UPDATE)^DIE  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 2 $$UP^XLFSTR  $$DEA^XUSER  
Registration 2 ^DPTLK  DEM^VADPT  
List Manager 1 FULL^VALM1  

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

Package Total Caller Graph
Outpatient Pharmacy 19 PSO ERX EDIT  PSO ERX HQ SELECT  PSO ERX SELECT BY NUMBER  PSO ERX VALIDATE DRUG  PSO ERX VALIDATE PATIENT  PSO ERX VALIDATE PROVIDER  PSOERX  PSOERX1B  
PSOERX1C  PSOERX1D  PSOERX1G  PSOERXC1  PSOERXD1  PSOERXD2  PSOERXP1  PSOERXR1  
PSOERXU1  PSOERXU3  PSOERXU7  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
SI ;
SBN ;
L(DFN,DIS) ;
UL(DFN) ; unlock
R() ; check lock on node
PDATE() ;
WHO(DFN) ;
ADDITEM(TEXT,HDR,DATA,STRT,LEN) ;
PROV ;
PAT ;
DRUG ;
EDIT(EDTYP,SBN) ;
VPROV ;
PRVWARN(ACTION,PSOIEN,VAPIEN) ; Check whether the Provider Select is valid or not
; Input:(r)ACTION - Ation being peformed ("EP": Edit Provider | "VP": Validate Provider)
; (r)PSOIEN - Pointer to the ERX HOLDING QUEUE file (#52.49)
; (r)VAPIEN - Provider -Pointer to the NEW PERSON file (#200)
CHKPRV2(Y) ;
PLSTRNG(LOW,HIGH,EDIT,SBN) ;
VPAT ;
PATWARN(ACTION,PSOIEN,SELPAT) ; Check whether the Patient Select is valid or not
; Input:(r)ACTION - Ation being peformed ("EP": Edit Patient | "VP": Validate Patient)
; (r)PSOIEN - Pointer to the ERX HOLDING QUEUE file (#52.49)
; (r)SELPAT - Patient -Pointer to the PATIENT file (#2)
PATPRMT() ;

External References

Name Field # of Occurrence
C^%DTC PDATE+1
NOW^%DTC L+10, R+5
^DIC VPROV+22, VPROV+45
FILE^DIE VPROV+39, VPROV+58, VPAT+35, VPAT+56
UPDATE^DIE L+12, R+7
$$GET1^DIQ SI+9, SBN+7, PROV+3, PROV+4, PROV+7, PAT+3, PAT+4, PAT+7, DRUG+3, DRUG+4
DRUG+7, EDIT+6, VPROV+4, VPROV+5, VPROV+11, VPROV+12, VPROV+13, VPROV+14, VPROV+15, VPROV+27
VPROV+35, VPROV+50, VPROV+54, VPROV+59, PRVWARN+6, PRVWARN+7, PRVWARN+8, PLSTRNG+5, VPAT+4, VPAT+5
VPAT+6, VPAT+7, VPAT+8, VPAT+9, VPAT+10, VPAT+11, VPAT+14, VPAT+24, VPAT+31, VPAT+48
VPAT+52, PATWARN+7, PATWARN+8, PATWARN+9, PATWARN+10, PATWARN+13, PATWARN+19
GETS^DIQ VPROV+7
^DIR SI+3, SI+13, SBN+11, EDIT+8, VPROV+20, VPROV+28, VPROV+51, PLSTRNG+11, PLSTRNG+16, PLSTRNG+20
, PLSTRNG+49, VPAT+17, VPAT+25, VPAT+45, VPAT+49
^DPTLK PATPRMT+2
EN^PSOERX1 SI+10, SI+14, SI+17, SBN+8, SBN+12, SBN+15
EN^PSOERXD1 DRUG+8
INIT^PSOERXD1 EDIT+17
DERX1^PSOERXD2 EDIT+14
EN^PSOERXP1 PAT+8
INIT^PSOERXP1 EDIT+18
EN^PSOERXR1 PROV+8
INIT^PSOERXR1 EDIT+19
UPDSTAT^PSOERXU1 VPROV+40, VPROV+41, VPROV+42, VPROV+43, VPROV+59, VPROV+60, VPROV+61, VPROV+62, VPAT+37, VPAT+38
VPAT+39, VPAT+40, VPAT+41, VPAT+42, VPAT+58, VPAT+59, VPAT+60
$$GETPAT^PSOERXU5 SI+8, SBN+6
$$RXEPRMT^PSOERXU7 PROV+5, PROV+6, PAT+5, PAT+6, DRUG+5, DRUG+6
$$DONOTFIL^PSOERXUT PROV+1, PAT+1, DRUG+1
$$VALPTADD^PSOERXUT PATWARN+19
AUDLOG^PSOERXUT VPROV+36, VPROV+55, VPAT+32, VPAT+53
PAUSE^PSOERXUT VPROV+25, VPROV+48
PRDRVAL^PSOERXUT PRVWARN+9
DEM^VADPT VPAT+20, VPAT+44, PATWARN+14
FULL^VALM1 SI+2, SBN+2, PROV+1, PAT+1, DRUG+1, EDIT+2
$$UP^XLFSTR PLSTRNG+25
$$DEA^XUSER VPROV+35, VPROV+54

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You have this patient locked in another open session"
  • Line Location: L+6
Function Call: WRITE
  • Prompt: !!,"*******************************",$S($P(ERXMSG,"^",2)="W":" WARNING(S) ",1:"INVALID PROVIDER"),"*********************************"
  • Line Location: PRVWARN+11
Function Call: WRITE
  • Prompt: !,$P(ERXMSG(I),"^")
  • Line Location: PRVWARN+12
Function Call: WRITE
  • Prompt: !,"********************************************************************************"
  • Line Location: PRVWARN+13
Function Call: WRITE
  • Prompt: !,"Invalid response."
  • Line Location: PLSTRNG+39
Function Call: WRITE
  • Prompt: "[PATIENT DIED ON "_$P($G(VADM(6)),U,2)_"]"
  • Line Location: VPAT+21
Function Call: WRITE
  • Prompt: "[PATIENT DIED ON "_$P($G(VADM(6)),U,2)_"]"
  • Line Location: VPAT+45
Function Call: WRITE
  • Prompt: !!,"*******************************",$S(ERXMMFLG:" WARNING(S) ",1:"INVALID PATIENT"),"*******************************"
  • Line Location: PATWARN+24
Function Call: WRITE
  • Prompt: !,$G(ERXMSG(I))
  • Line Location: PATWARN+26
Function Call: WRITE
  • Prompt: !,"*****************************************************************************"
  • Line Location: PATWARN+27
Routine Call
  • DIC
  • Line Location:
    • VPROV+22
    • VPROV+45
Routine Call
  • DIE
  • Line Location:
    • VPROV+39
    • VPROV+58
    • VPAT+35
    • VPAT+56
Routine Call
  • DIE
  • Line Location:
    • L+12
    • R+7
Routine Call
  • DIR
  • Line Location:
    • SI+3
    • SI+13
    • SBN+11
    • EDIT+8
    • VPROV+20
    • VPROV+28
    • VPROV+51
    • PLSTRNG+11
    • PLSTRNG+16
    • PLSTRNG+20
    • PLSTRNG+49
    • VPAT+17
    • VPAT+25
    • VPAT+45
    • VPAT+49

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^PS(52.46 - [#52.46] GET1^DIQ
^PS(52.48 - [#52.48] GETS^DIQ
^PS(52.49 - [#52.49] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" R+8, WHO+1
^DPT("ADOB" PATWARN+16
^DPT("SSN" PATWARN+15
^PS(52.49 - [#52.49] PLSTRNG+6
^VA(200 - [#200] R+8, WHO+2, CHKPRV2+2
^XTMP("PSOERXLOCK" L+2*, L+4, L+5, L+7, L+8, L+10*, L+13, UL+2!, R+2, R+3
, R+5*, R+8, WHO+1, WHO+2

Label References

Name Line Occurrences
$$L SI+12, SBN+10
$$PATPRMT VPAT+19, VPAT+43
$$PATWARN VPAT+22, VPAT+46
$$PDATE L+2
$$PRVWARN VPROV+25, VPROV+48
$$R L+13
$$WHO R+8
@( EDIT+16
PLSTRNG EDIT+12
UL SI+15, SBN+13
VPAT EDIT+18
VPROV EDIT+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SI+16!, SI+18!, SBN+14!, SBN+17!, L+10, R+5
ACTION PRVWARN~, PRVWARN+9, PATWARN~, PATWARN+21
DATA ADDITEM~, ADDITEM+2
DFN L~, L+4, L+5, L+7, L+8, L+10, L+11, L+13, UL~, UL+2
, R+2, R+3, R+5, R+6, R+8, WHO~, WHO+1, WHO+2, VPAT+1~, VPAT+20*
VPAT+44*, PATWARN+14*
DIC VPROV+22*, VPROV+45*, VPAT+1~
DIC("A" VPROV+22*, VPROV+45*
DIC("S" VPROV+22*, VPROV+45*
DIC(0 VPROV+22*, VPROV+45*, VPAT+19*, VPAT+43*
>> DILOCKTM L+5, L+8, R+3
DIR SI+1~, SI+13!, SBN+1~, SBN+11!, EDIT+1~, PLSTRNG+1~, PLSTRNG+11!, PLSTRNG+16!, PLSTRNG+20!, PLSTRNG+49!
VPAT+1~, VPAT+45!
DIR("?" PLSTRNG+9*
DIR("A" VPROV+18*, VPROV+19*, VPROV+26*, VPROV+27*, VPROV+49*, VPROV+50*, PLSTRNG+8*, VPAT+15*, VPAT+16*, VPAT+23*
VPAT+24*, VPAT+47*, VPAT+48*
DIR("B" VPROV+20*, VPROV+28*, VPROV+51*, PLSTRNG+10*, VPAT+17*, VPAT+25*, VPAT+49*
DIR(0 SI+3*, SI+13*, SBN+11*, EDIT+8*, VPROV+18*, VPROV+26*, VPROV+49*, PLSTRNG+8*, PLSTRNG+16*, PLSTRNG+20*
, PLSTRNG+49*, VPAT+15*, VPAT+23*, VPAT+45*, VPAT+47*
DIS L~, R+8
DONE PLSTRNG+1~, PLSTRNG+3*, PLSTRNG+4, PLSTRNG+12*, PLSTRNG+24*, PLSTRNG+29*, PLSTRNG+31*, PLSTRNG+36*, PLSTRNG+46*
DONE2 PLSTRNG+1~, PLSTRNG+40*, PLSTRNG+41, PLSTRNG+43*
DT PDATE+1, PDATE+2
DUOUT VPAT+19!, VPAT+43!
DUZ L+4, L+10, L+11, R+2, R+5, R+6, VPROV+36, VPROV+55, VPAT+32, VPAT+53
EDIT PLSTRNG~, PLSTRNG+36, PLSTRNG+46
EDIT( PLSTRNG+28*, PLSTRNG+31*, PLSTRNG+35*, PLSTRNG+45*
EDTYP EDIT~, EDIT+10, EDIT+11, EDIT+18, EDIT+19
ERXCNT PATWARN+5~, PATWARN+6*, PATWARN+15*, PATWARN+16*, PATWARN+17*, PATWARN+20*
ERXDAT SI+1~
ERXDEA PRVWARN+5~
ERXDOB PATWARN+5~, PATWARN+9*, PATWARN+16
ERXDRIEN PRVWARN+5~, PRVWARN+7*, PRVWARN+9
ERXFNAME VPAT+1~, VPAT+6*
ERXGEN PATWARN+5~, PATWARN+10*, PATWARN+17
ERXIEN SI+1~, SI+6*, SI+8, SI+9, SI+10, SI+14, SI+17, SBN+1~, SBN+5*, SBN+6
SBN+7, SBN+8, SBN+12, SBN+15, PATWARN+19
ERXLNAME VPAT+1~, VPAT+5*
ERXLOCK SI+1~, SI+12*, SI+13, SBN+10*, SBN+11
ERXMMFLG VPROV+1~, VPROV+25*, VPROV+28, VPROV+48*, VPROV+51, VPAT+22*, VPAT+25, VPAT+46*, VPAT+49, PATWARN+5~
, PATWARN+6*, PATWARN+15*, PATWARN+16*, PATWARN+17*, PATWARN+20*, PATWARN+21*, PATWARN+24, PATWARN+29
ERXMSG PRVWARN+5~, PRVWARN+9, PRVWARN+10, PRVWARN+11, PRVWARN+14, PATWARN+5~
ERXMSG( PRVWARN+12, PATWARN+15*, PATWARN+16*, PATWARN+17*, PATWARN+20*, PATWARN+25, PATWARN+26
ERXMSG(0 PATWARN+23
ERXPAT SI+1~, SI+8*, SI+10, SI+12, SI+15, SBN+1~, SBN+6*, SBN+8, SBN+10, SBN+13
ERXPIEN PRVWARN+5~, PRVWARN+6*, VPAT+1~, VPAT+4*, VPAT+5, VPAT+6, PATWARN+5~, PATWARN+7*, PATWARN+8, PATWARN+9
, PATWARN+10
ERXSSN PATWARN+5~, PATWARN+8*, PATWARN+15
ERXSTAT VPROV+2~, VPROV+15*, VPROV+60, VPROV+61, VPAT+2~, VPAT+10*, VPAT+42, VPAT+60
EXPRFNAM VPROV+1~, VPROV+10*
EXPRIENS VPROV+2~, VPROV+6*, VPROV+7, VPROV+8, VPROV+9, VPROV+10
EXPRLNAM VPROV+1~, VPROV+9*
EXPRNAME VPROV+1~, VPROV+8*
EXPRVDEA PRVWARN+5~, PATWARN+5~
EXPRVIEN VPROV+1~, VPROV+5*, VPROV+6
EXPRVNPI PRVWARN+5~
FDA L+12!, R+7!, VPROV+39!, VPROV+58!, VPAT+35!, VPAT+56!
FDA( L+11*, R+6*, VPROV+31*, VPROV+38*, VPROV+57*, VPAT+28*, VPAT+34*, VPAT+55*
FLAG L+2~, L+4, L+5*, L+6, L+7, L+8*, L+9
FULLDAT ADDITEM+1~, ADDITEM+2*, ADDITEM+3, ADDITEM+8
HDR ADDITEM~, ADDITEM+2
HIGH PLSTRNG~, PLSTRNG+2, PLSTRNG+8, PLSTRNG+27, PLSTRNG+31, PLSTRNG+34, PLSTRNG+44
I PRVWARN+5~, PRVWARN+12*, PLSTRNG+1~, PLSTRNG+27*, PLSTRNG+28, PLSTRNG+33*, PLSTRNG+34, PLSTRNG+35, VPAT+1~, PATWARN+5~
, PATWARN+25*, PATWARN+26
ITEM EDIT+1~, EDIT+15*, EDIT+16
L ADDITEM+1~, ADDITEM+6*
LEN ADDITEM~, ADDITEM+3, ADDITEM+8
LINE SI+1~
LINEVAR SI+1~
LIST PLSTRNG+1~, PLSTRNG+2*
LLEN ADDITEM+1~, ADDITEM+4*, ADDITEM+5
LOW PLSTRNG~, PLSTRNG+2, PLSTRNG+8, PLSTRNG+27, PLSTRNG+31, PLSTRNG+34, PLSTRNG+44
MANVAL VPROV+1~, VPROV+11*, VPROV+19, VPAT+1~, VPAT+8*
MTYPE SI+1~, SI+9*, SI+10, SBN+1~, SBN+7*, SBN+8, VPROV+2~, VPROV+12*, VPROV+40, VPROV+41
VPROV+42, VPROV+43, VPROV+60, VPROV+61, VPROV+62, VPAT+2~, VPAT+11*, VPAT+37, VPAT+38, VPAT+39
VPAT+40, VPAT+41, VPAT+58, VPAT+59
NEWPIEN VPROV+2~, VPROV+24*, VPROV+25, VPROV+27, VPROV+31, VPROV+33, VPROV+35
NEWRXIEN SI+1~
NEWVAL VPROV+2~, VPROV+36, VPROV+55, VPAT+31~, VPAT+32, VPAT+52~, VPAT+53
NEWVAL(1 VPROV+35*, VPROV+54*, VPAT+31*, VPAT+52*
NUM PLSTRNG+1~, PLSTRNG+41*, PLSTRNG+42
NUMCHK PLSTRNG+1~, PLSTRNG+39*
>> PCV SI+11, SBN+9
PDONE VPAT+1~
PQUIT EDIT+1~, EDIT+15*
PRVDAT VPROV+1~
PRVDAT( VPROV+8, VPROV+9, VPROV+10
PSOIEN PROV+1, PROV+3, PROV+4, PROV+5, PROV+6, PROV+7, PAT+1, PAT+3, PAT+4, PAT+5
PAT+6, PAT+7, DRUG+1, DRUG+3, DRUG+4, DRUG+5, DRUG+6, DRUG+7, EDIT+5, EDIT+6
, EDIT+9, EDIT+14, VPROV+3, VPROV+4, VPROV+5, VPROV+11, VPROV+12, VPROV+13, VPROV+14, VPROV+15
VPROV+25, VPROV+40, VPROV+41, VPROV+42, VPROV+43, VPROV+48, VPROV+59, VPROV+60, VPROV+61, VPROV+62
, PRVWARN~, PRVWARN+6, PRVWARN+7, PRVWARN+8, PRVWARN+9, PLSTRNG+5, PLSTRNG+6, VPAT+3, VPAT+4, VPAT+7
VPAT+8, VPAT+9, VPAT+10, VPAT+11, VPAT+22, VPAT+37, VPAT+38, VPAT+39, VPAT+40, VPAT+41
VPAT+42, VPAT+46, VPAT+53, VPAT+58, VPAT+59, VPAT+60, PATWARN~, PATWARN+7, PATWARN+13
PSOIENS EDIT+9*, EDIT+14, VPROV+1~, VPROV+3*, VPROV+31, VPROV+36, VPROV+38, VPROV+55, VPROV+57, VPAT+1~
VPAT+3*, VPAT+28, VPAT+32, VPAT+34, VPAT+55
>> PSONOLCK L+1, UL+1
QUIT VPROV+2~, VPROV+29*
REQIEN SI+1~
RES EDIT+1~, EDIT+12
RES( EDIT+15
RES(0 EDIT+13
RESP SI+1~, SI+5*, SI+6
RESTYPE VPROV+2~, VPROV+14*, VPROV+41, VPROV+60, VPAT+2~, VPAT+9*
RESVAL PROV+2~, PROV+3*, PROV+6, PAT+2~, PAT+3*, PAT+6, DRUG+2~, DRUG+3*, DRUG+6
RXSTAT EDIT+1~, EDIT+6*
SBN EDIT~, EDIT+3*, EDIT+12, PLSTRNG~, PLSTRNG+7, PLSTRNG+13, PLSTRNG+17, PLSTRNG+22
SELPAT VPAT+1~, VPAT+19*, VPAT+20, VPAT+22, VPAT+24, VPAT+28, VPAT+29, VPAT+31, VPAT+43*, VPAT+44
VPAT+46, VPAT+48, VPAT+52, VPAT+55, PATWARN~, PATWARN+13*, PATWARN+14, PATWARN+15, PATWARN+16, PATWARN+19
SELPRV VPROV+2~, VPROV+47*, VPROV+48, VPROV+50, VPROV+54, VPROV+57
STAT PROV+2~, PROV+4*, PROV+5, PROV+6, PAT+2~, PAT+4*, PAT+5, PAT+6, DRUG+2~, DRUG+4*
DRUG+5, DRUG+6
STRT ADDITEM~, ADDITEM+3, ADDITEM+5, ADDITEM+6
TAG EDIT+1~, EDIT+16*
TEXT ADDITEM~, ADDITEM+3*, ADDITEM+4, ADDITEM+6, ADDITEM+7*, ADDITEM+8*
U VPROV+24, VPROV+47, VPROV+57, CHKPRV2+2, VPAT+21, VPAT+45, PATWARN+17, PATPRMT+3, PATPRMT+4
VADEA PRVWARN+5~
VADM VPAT+1~, PATWARN+5~
VADM(2 VPAT+31, VPAT+52
VADM(3 VPAT+31, VPAT+52
VADM(5 PATWARN+17
VADM(6 VPAT+21, VPAT+45
VAL PLSTRNG+1~, PLSTRNG+42*, PLSTRNG+43, PLSTRNG+44, PLSTRNG+45
>> VALMAR SI+6, SBN+5, EDIT+17, EDIT+18, EDIT+19
>> VALMBCK SI+4*, SI+10*, SI+13*, SI+16*, SI+19*, SBN+4*, SBN+8*, SBN+11*, SBN+14*, SBN+16*
PROV+1*, PAT+1*, DRUG+1*, EDIT+4*
>> VALMBG SI+3
>> VALMLST SI+3
VANPI VPROV+2~, PRVWARN+5~
VAPIEN VPROV+13*, VPROV+16, VPROV+33, PRVWARN~, PRVWARN+8*, PRVWARN+9, VPAT+1~, VPAT+7*, VPAT+13, VPAT+14
VPAT+29
VAPNM VPROV+2~, VPROV+4*, VPROV+17
VAPRVIEN VPROV+1~
>> X PDATE+2
X1 PDATE+1~*
X2 PDATE+1~*
>> XQORM("B" PROV+7*, PAT+7*, DRUG+7*, VPAT+43*, VPAT+50*
>> XQORNOD(0 SBN+3
Y SI+1~, SI+4, SI+5, SBN+1~, SBN+3*, SBN+4, SBN+5, R+8*, WHO+1*, WHO+2
, EDIT+1~, VPROV+21, VPROV+23, VPROV+24!, VPROV+29, VPROV+46, VPROV+47, VPROV+52, CHKPRV2~, CHKPRV2+2
, PLSTRNG+1~, PLSTRNG+5*, PLSTRNG+6*, PLSTRNG+7, PLSTRNG+12, PLSTRNG+13, PLSTRNG+16!, PLSTRNG+17, PLSTRNG+21!, PLSTRNG+22*
, PLSTRNG+23, PLSTRNG+24, PLSTRNG+25*, PLSTRNG+26, PLSTRNG+31, PLSTRNG+32, PLSTRNG+33, PLSTRNG+37, PLSTRNG+39, PLSTRNG+42
, PLSTRNG+49!, VPAT+1~, VPAT+18, VPAT+26, VPAT+50, PATPRMT+1~, PATPRMT+3, PATPRMT+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 |  Local Variables  | All