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

Package: Outpatient Pharmacy

Routine: PSOSPMU3


Information

PSOSPMU3 ;BIRM/MFR - State Prescription Monitoring Program Utility #3 - Customization ;10/07/15

Source Information

Source file <PSOSPMU3.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 UPDATE^DIE  ^DIK  ^DIM  $$GET1^DIQ  ^DIR  
Kernel 3 $$EC^%ZOSV  UNWIND^%ZTER  $$UP^XLFSTR  
Outpatient Pharmacy 3 ($$RXPRV,$$RXRPH,$$RXSITE)^PSOBPSUT  ($$VERDATA,LOADASAP,RESETELM)^PSOSPMU0  SETNAME^PSOSPMUT  

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 PSOSPMA3  PSOSPMB3  PSOSPML3  PSOSPML4  PSOSPMU0  PSOSPMU2  PSOSPMUT  

Entry Points

Name Comments DBIA/ICR reference
CLONEVER(FROMVER,NEWVER,DEFTYPE) ; Create an exact copy of another ASAP version
SAVEVER(ASAPVER,VERDATA,CLONE) ; Save an ASAP Version
COPYSEG(FROMVER,ASAPDEF,TOVER,SEGID,CLONE) ; Copy a Segment
; Input: (r) FROMVER - Source ASAP Version ("3.0", "4.0", etc.)
; (r) ASAPDEF - Array containig the ASAP Definition to be copied
; (r) TOMVER - Detin ASAP Version ("3.0", "4.0", etc.)
; (r) SEGID - Segment ID ("PHA", "DSP", etc.)
; (o) CLONE - Standard Clone ASAP Version Flag PSO*7*772
SAVESEG(ASAPVER,SEGID,SEGDATA,VERDATA,CLONE) ; Saves a Segment
; Input: (r) ASAPVER - ASAP Version ("3.0", "4.0", etc.)
; (r) SEGID - Segment ID ("PHA", "DSP", etc.) or "+1" to add a new Segment
; (r) SEGDATA - Segment Data
; (o) VERDATA - Version Data (Only needed for 1st custom segment)
; (o) CLONE - Standard Clone ASAP Version Flag PSO*7*772
COPYELM(FROMVER,ASAPDEF,TOVER,ELMID,CLONE) ; Copy a Data Element
SAVEELM(ASAPVER,SEGID,ELMID,ELMDATA,CLONE) ; Saves a Data Element
CUSSEG(ASAPVER,SEGID) ; Customized Segment?
DELCUS(ASAPVER,SEGID,ELMID,DELSTDV) ; Delete/Reset a Customization
GETSEGID(ELMID) ; Get the Segment ID from the Element ID
VALID(ASAPVER,MEXPR) ; Validate the Mumps Expression for the ASAP Version
CHKVAR(LEVEL,MEXPR) ; Checks the variables in the M SET Expression
; Input: (r) LEVEL - Level of the Segment where the Data Element is located
; (r) MEXPR - Mumps SET Expression value to be verified
CHKCODE(LEVEL,MEXPR,ERROR) ; Checks the data retrieval code for the Data Element
; Input: (r) LEVEL - Level of the Segment where the Data Element is located
; (r) MEXPR - Mumps SET Expression value to be verified
ERROR ; Error Trap to test ASAP Data Retrieval
DELSTDV(ASAPVER,SEGID,ELMID) ; Delete 'Standard' Custom ASAP Version - PSO*7*772

External References

Name Field # of Occurrence
$$EC^%ZOSV ERROR+2
UNWIND^%ZTER ERROR+9
UPDATE^DIE SAVEVER+18, SAVESEG+22, SAVEELM+26
^DIK DELCUS+28, DELCUS+32, DELCUS+33, DELCUS+35
^DIM VALID+25
$$GET1^DIQ CHKCODE+14, CHKCODE+17, CHKCODE+19
^DIR ERROR+6
$$RXPRV^PSOBPSUT CHKCODE+21
$$RXRPH^PSOBPSUT CHKCODE+22
$$RXSITE^PSOBPSUT CHKCODE+13
$$VERDATA^PSOSPMU0 VALID+12
LOADASAP^PSOSPMU0 CLONEVER+9, CLONEVER+28, CUSSEG+6, CUSSEG+7, DELCUS+7, DELCUS+8, DELSTDV+7, DELSTDV+8
RESETELM^PSOSPMU0 DELCUS+23
SETNAME^PSOSPMUT CHKCODE+17
$$UP^XLFSTR VALID+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The variable",$S(CHKVAR[",":"s",1:"")," ",CHKVAR," ",$S(CHKVAR[",":"are",1:"is")," not available at the ",LEVNAM," level.",$C(7),!
  • Line Location: CHKVAR+15
Function Call: WRITE
  • Prompt: !,"The code will likely throw an <UNDEFINED> error for the "
  • Line Location: ERROR+4
Function Call: WRITE
  • Prompt: $S(ZE["*":"variable '",1:"global ^"),$S(ZE["*":$P(ZE,"*",2)_"'",1:$P(ZE,"^",3)),".",$C(7)
  • Line Location: ERROR+5
Function Call: WRITE
  • Prompt: !,"The code will throw a <",$P($P(ZE,"<",2),">"),"> error for this expression.",$C(7)
  • Line Location: ERROR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ERROR+9
Routine Call
  • DIE
  • Line Location:
    • SAVEVER+18
    • SAVESEG+22
    • SAVEELM+26
Routine Call
  • DIR
  • Line Location:
    • ERROR+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(58.4 - [#58.4] CLONEVER+6, CLONEVER+8, CLONEVER+23, CLONEVER+27, CLONEVER+29, CLONEVER+31, SAVEVER+7, SAVEVER+8, SAVEVER+10, SAVEVER+21*
, SAVEVER+22*, COPYSEG+9, COPYSEG+10, COPYSEG+11, COPYSEG+13, COPYSEG+15, COPYSEG+18, SAVESEG+9, SAVESEG+10, SAVESEG+12
, SAVESEG+15, COPYELM+9, COPYELM+10, COPYELM+11, COPYELM+13, COPYELM+15, COPYELM+19, COPYELM+22, SAVEELM+9, SAVEELM+10
, SAVEELM+12, SAVEELM+14, SAVEELM+16, DELCUS+10, DELCUS+11, DELCUS+14, DELCUS+16, DELCUS+17, DELSTDV+10, DELSTDV+13
, DELSTDV+14
^PSRX - [#52] CHKCODE+12
^PSRX("AL" CHKCODE+11, CHKCODE+12

Label References

Name Line Occurrences
$$COPYELM CLONEVER+19, CLONEVER+42
$$COPYSEG CLONEVER+15, CLONEVER+38
$$GETSEGID COPYELM+17, DELCUS+16
$$SAVEELM COPYELM+25
$$SAVESEG COPYSEG+20, COPYELM+20
$$SAVEVER CLONEVER+11, CLONEVER+34, COPYSEG+16, SAVESEG+13, COPYELM+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ASAPCHDR CLONEVER+5~, CLONEVER+31*, CLONEVER+32
ASAPCIEN CLONEVER+5~, CLONEVER+29*, CLONEVER+30, CLONEVER+31
ASAPDEF CLONEVER+5~, CLONEVER+9, CLONEVER+10*, CLONEVER+11, CLONEVER+15, CLONEVER+19, CLONEVER+24, CLONEVER+25!, CLONEVER+28, CLONEVER+32*
, CLONEVER+33*, CLONEVER+34, CLONEVER+38, CLONEVER+42, COPYSEG~, COPYSEG+16, COPYSEG+20, COPYELM~, COPYELM+7, COPYELM+16
, COPYELM+20
ASAPDEF( CLONEVER+14, CLONEVER+17, CLONEVER+18, CLONEVER+37, CLONEVER+40, CLONEVER+41, COPYSEG+19, COPYSEG+20, COPYELM+20, COPYELM+23
, COPYELM+24
ASAPSHDR CLONEVER+5~, CLONEVER+24*, CLONEVER+32
ASAPVER CLONEVER+5~, SAVEVER~, SAVEVER+5, SAVEVER+10, SAVEVER+12, SAVESEG~, SAVESEG+7, SAVESEG+12, SAVESEG+13, SAVEELM~
, SAVEELM+7, SAVEELM+12, CUSSEG~, CUSSEG+4, CUSSEG+6, CUSSEG+7, DELCUS~, DELCUS+5, DELCUS+7, DELCUS+8
, DELCUS+11, VALID~, VALID+3, VALID+12, DELSTDV~, DELSTDV+4, DELSTDV+7, DELSTDV+8, DELSTDV+14
CHAR VALID+4~, VALID+16*, VALID+17, VALID+18, VALID+20, VALID+21, VALID+23
CHKVAR CHKVAR+5~, CHKVAR+6*, CHKVAR+12*, CHKVAR+13, CHKVAR+15
CLONE SAVEVER~, SAVEVER+8, COPYSEG~, COPYSEG+11, COPYSEG+20, SAVESEG~, SAVESEG+10, COPYELM~, COPYELM+11, COPYELM+25
, SAVEELM~, SAVEELM+10
CODE CHKCODE+5~, CHKCODE+23*, CHKCODE+25
CUSASAP CUSSEG+5~, CUSSEG+7, DELCUS+6~, DELCUS+8, DELCUS+23, DELSTDV+6~, DELSTDV+8
CUSASAP( CUSSEG+8, CUSSEG+9
CUSIEN CLONEVER+5~, CLONEVER+6*, CLONEVER+8, CLONEVER+23*, CLONEVER+27, CLONEVER+29, CLONEVER+31, SAVEVER+6~, SAVEVER+7*, SAVEVER+8*
, SAVEVER+10, SAVEVER+12, SAVEVER+13, SAVEVER+14, SAVEVER+15, SAVEVER+16, SAVEVER+17, SAVEVER+21, SAVEVER+22, COPYSEG+8~
, COPYSEG+10*, COPYSEG+11*, COPYSEG+13, COPYSEG+15, COPYSEG+18, SAVESEG+8~, SAVESEG+9*, SAVESEG+10*, SAVESEG+12, SAVESEG+15
, SAVESEG+16, SAVESEG+17, SAVESEG+18, SAVESEG+19, SAVESEG+20, SAVESEG+21, COPYELM+8~, COPYELM+10*, COPYELM+11*, COPYELM+13
, COPYELM+15, COPYELM+19, COPYELM+22, SAVEELM+8~, SAVEELM+9*, SAVEELM+10*, SAVEELM+12, SAVEELM+14, SAVEELM+16, SAVEELM+18
, SAVEELM+19, SAVEELM+20, SAVEELM+21, SAVEELM+22, SAVEELM+23, SAVEELM+24, SAVEELM+25, DELCUS+6~, DELCUS+10*, DELCUS+11
, DELCUS+14, DELCUS+16, DELCUS+17, DELCUS+23, DELCUS+27, DELCUS+28, DELCUS+32, DELCUS+34, DELCUS+35, DELSTDV+6~
, DELSTDV+10*
DA DELCUS+6~, DELCUS+28*, DELCUS+32*, DELCUS+33*, DELCUS+35*, DELSTDV+6~
DA(1 DELCUS+28*, DELCUS+32*, DELCUS+33*, DELCUS+35*
DA(2 DELCUS+28*
DEFTYPE CLONEVER~, CLONEVER+21
DELSTDV DELCUS~, DELCUS+12, DELCUS+31, DELCUS+33
DELVERIEN DELCUS+6~
DELVIEN DELSTDV+5!, DELSTDV+14*, DELSTDV+15, DELSTDV+16
DFN CHKCODE+5~, CHKCODE+9*, CHKCODE+15!, CHKCODE+16!, CHKCODE+17*
DIK DELCUS+6~, DELCUS+27*, DELCUS+32*, DELCUS+33*, DELCUS+34*, DELSTDV+6~
DIR ERROR+1~
DIR("A" ERROR+6*
DIR("B" ERROR+6*
DIR(0 ERROR+6*
DRUGIEN CHKCODE+5~, CHKCODE+9*, CHKCODE+15!, CHKCODE+16!, CHKCODE+18!, CHKCODE+19*
DRUT ERROR+1~
DTOUT ERROR+1~
ELMDATA COPYELM+8~, COPYELM+24!*, COPYELM+25, SAVEELM~, SAVEELM+7, SAVEELM+18, SAVEELM+19, SAVEELM+20, SAVEELM+21, SAVEELM+22
, SAVEELM+23
ELMDEF COPYELM+8~, SAVEELM+8~
ELMDEF( SAVEELM+18*, SAVEELM+19*, SAVEELM+20*, SAVEELM+21*, SAVEELM+22*, SAVEELM+23*, SAVEELM+24*, SAVEELM+25*
ELMDELIM VALID+4~, VALID+13*, VALID+20
ELMERR SAVEELM+8~
ELMID CLONEVER+5~, CLONEVER+18*, CLONEVER+19, CLONEVER+41*, CLONEVER+42, COPYELM~, COPYELM+7, COPYELM+17, COPYELM+22, SAVEELM~
, SAVEELM+7, SAVEELM+15, SAVEELM+16, DELCUS~, DELCUS+15, DELCUS+16, DELCUS+17, DELCUS+20, DELCUS+23, GETSEGID~
, GETSEGID+3, DELSTDV~, DELSTDV+11
ELMIEN CLONEVER+5~, CLONEVER+19*, CLONEVER+42*, COPYELM+8~, SAVEELM+8~, SAVEELM+15*, SAVEELM+16*, SAVEELM+18, SAVEELM+19, SAVEELM+20
, SAVEELM+21, SAVEELM+22, SAVEELM+23, SAVEELM+24, SAVEELM+25, SAVEELM+27*, SAVEELM+28, DELCUS+6~, DELCUS+17*, DELCUS+20
, DELCUS+23, DELSTDV+6~
ELMPOS CLONEVER+5~, CLONEVER+16*, CLONEVER+17*, CLONEVER+18, CLONEVER+39*, CLONEVER+40*, CLONEVER+41, COPYELM+23, COPYELM+24, DELCUS+23
ERROR CHKCODE~, CHKCODE+7*, ERROR+6*, ERROR+7*
FILLIEN CHKCODE+5~, CHKCODE+9*, CHKCODE+15!, CHKCODE+16!, CHKCODE+18!, CHKCODE+20*
FILLNUM CHKCODE+5~, CHKCODE+9*, CHKCODE+15!, CHKCODE+16!, CHKCODE+18!, CHKCODE+20*
FROMVER CLONEVER~, CLONEVER+4, CLONEVER+9, CLONEVER+10, CLONEVER+15, CLONEVER+19, CLONEVER+28, CLONEVER+29, CLONEVER+33, CLONEVER+38
, CLONEVER+42, COPYSEG~, COPYSEG+7, COPYSEG+13, COPYELM~, COPYELM+7, COPYELM+13
GETSEGID GETSEGID+2~, GETSEGID+3*, GETSEGID+4
I GETSEGID+2~, GETSEGID+3*, VALID+4~, VALID+15*, VALID+16
INQUOTES VALID+4~, VALID+14*, VALID+18*, VALID+19
LASTRD CHKCODE+5~, CHKCODE+11*, CHKCODE+12
LEVEL CHKVAR~, CHKVAR+4, CHKVAR+7, CHKVAR+8, CHKVAR+9, CHKVAR+10, CHKVAR+14, CHKCODE~, CHKCODE+4, CHKCODE+8
, CHKCODE+15, CHKCODE+16, CHKCODE+18
LEVNAM CHKVAR+5~, CHKVAR+14*, CHKVAR+15
MEXPR VALID~, VALID+3, VALID+5*, VALID+6, VALID+7, VALID+8, VALID+9, VALID+10, VALID+11, VALID+15
, VALID+16, VALID+25, CHKVAR~, CHKVAR+4, CHKVAR+12, CHKCODE~, CHKCODE+4, CHKCODE+8, CHKCODE+23
NEWVER CLONEVER~, CLONEVER+4, CLONEVER+8, CLONEVER+11, CLONEVER+15, CLONEVER+19, CLONEVER+27, CLONEVER+34, CLONEVER+38, CLONEVER+42
NWVERIEN CLONEVER+5~, CLONEVER+11*, CLONEVER+34*
OKLST CHKVAR+5~, CHKVAR+8*, CHKVAR+9*, CHKVAR+10*, CHKVAR+12
PATIEN CHKCODE+5~, CHKCODE+9*, CHKCODE+15!, CHKCODE+16!, CHKCODE+17*
PREIEN CHKCODE+5~, CHKCODE+9*, CHKCODE+15!, CHKCODE+16!, CHKCODE+18!, CHKCODE+21*
QUIT CHKCODE+5~, CHKCODE+9*, CHKCODE+10, CHKCODE+11*, CHKCODE+12*
RECTYPE CHKCODE+6~, CHKCODE+20*
RPHIEN CHKCODE+5~, CHKCODE+9*, CHKCODE+15!, CHKCODE+16!, CHKCODE+18!, CHKCODE+22*
RTSREC CHKCODE+5~, CHKCODE+9*, CHKCODE+15!, CHKCODE+16!, CHKCODE+18!
RXIEN CHKCODE+5~, CHKCODE+9*, CHKCODE+12*, CHKCODE+13, CHKCODE+15!, CHKCODE+16!, CHKCODE+17, CHKCODE+18!, CHKCODE+19, CHKCODE+21
, CHKCODE+22
SAVEELM SAVEELM+8~
SAVEELM(1 SAVEELM+27
SAVESEG SAVESEG+8~
SAVESEG(1 SAVESEG+23
SAVEVER SAVEVER+6~
SAVEVER(1 SAVEVER+19
SEGDATA SAVESEG~, SAVESEG+7, SAVESEG+16, SAVESEG+17, SAVESEG+18, SAVESEG+19, SAVESEG+20, SAVESEG+21
SEGDEF COPYSEG+8~, SAVESEG+8~
SEGDEF( SAVESEG+16*, SAVESEG+17*, SAVESEG+18*, SAVESEG+19*, SAVESEG+20*, SAVESEG+21*
SEGDELIM VALID+4~, VALID+13*, VALID+21
SEGID CLONEVER+5~, CLONEVER+13*, CLONEVER+14*, CLONEVER+15, CLONEVER+17, CLONEVER+18, CLONEVER+36*, CLONEVER+37*, CLONEVER+38, CLONEVER+40
, CLONEVER+41, COPYSEG~, COPYSEG+7, COPYSEG+18, COPYSEG+19, COPYSEG+20, SAVESEG~, SAVESEG+7, SAVESEG+14, SAVESEG+15
, COPYELM+17*, COPYELM+19, COPYELM+20, COPYELM+23, COPYELM+24, COPYELM+25, SAVEELM~, SAVEELM+7, SAVEELM+14, CUSSEG~
, CUSSEG+4, CUSSEG+8, CUSSEG+9, DELCUS~, DELCUS+13, DELCUS+14, DELCUS+19, DELCUS+23, DELCUS+26, DELSTDV~
, DELSTDV+11
SEGIEN CLONEVER+5~, CLONEVER+15*, CLONEVER+38*, COPYSEG+8~, SAVESEG+8~, SAVESEG+14*, SAVESEG+15*, SAVESEG+16, SAVESEG+17, SAVESEG+18
, SAVESEG+19, SAVESEG+20, SAVESEG+21, SAVESEG+23*, SAVESEG+24, SAVEELM+8~, SAVEELM+14*, SAVEELM+16, SAVEELM+18, SAVEELM+19
, SAVEELM+20, SAVEELM+21, SAVEELM+22, SAVEELM+23, SAVEELM+24, SAVEELM+25, DELCUS+6~, DELCUS+14*, DELCUS+16*, DELCUS+17
, DELCUS+19, DELCUS+23, DELCUS+28, DELSTDV+6~
SITEIEN CHKCODE+5~, CHKCODE+9*, CHKCODE+13*, CHKCODE+14, CHKCODE+15!
STATEIEN CHKCODE+5~, CHKCODE+14*
STDASAP CUSSEG+5~, CUSSEG+6, DELCUS+6~, DELCUS+7, DELCUS+23, DELSTDV+6~, DELSTDV+7, DELSTDV+12
STDASAP( CUSSEG+9
STDIEN COPYSEG+8~, COPYSEG+9*, COPYSEG+13, COPYELM+8~, COPYELM+9*, COPYELM+13, DELCUS+6~, DELCUS+31*, DELCUS+33, DELSTDV+5!
, DELSTDV+13*, DELSTDV+14, DELSTDV+15, DELSTDV+16
TOSEGIEN COPYELM+8~, COPYELM+19*, COPYELM+20*, COPYELM+22
TOVER COPYSEG~, COPYSEG+7, COPYSEG+15, COPYSEG+16, COPYSEG+20, COPYELM~, COPYELM+7, COPYELM+15, COPYELM+16, COPYELM+20
, COPYELM+25
TOVERIEN COPYSEG+8~, COPYSEG+15*, COPYSEG+16*, COPYSEG+18, COPYELM+8~, COPYELM+15*, COPYELM+16*, COPYELM+19, COPYELM+22
VALID VALID+4~, VALID+12*, VALID+15, VALID+17*, VALID+20*, VALID+21*, VALID+23*, VALID+26
VAR CHKVAR+5~, CHKVAR+11*, CHKVAR+12
VERDATA SAVEVER~, SAVEVER+5, SAVEVER+13, SAVEVER+14, SAVEVER+15, SAVEVER+16, SAVEVER+17, SAVEVER+21, SAVEVER+22, SAVESEG~
, SAVESEG+13, VALID+4~, VALID+12*, VALID+13
VERDEF SAVEVER+6~
VERDEF( SAVEVER+12*, SAVEVER+13*, SAVEVER+14*, SAVEVER+15*, SAVEVER+16*, SAVEVER+17*
VERIEN SAVEVER+6~, SAVEVER+10*, SAVEVER+12, SAVEVER+13, SAVEVER+14, SAVEVER+15, SAVEVER+16, SAVEVER+17, SAVEVER+19*, SAVEVER+21
, SAVEVER+22, SAVEVER+23, SAVESEG+8~, SAVESEG+12*, SAVESEG+13*, SAVESEG+15, SAVESEG+16, SAVESEG+17, SAVESEG+18, SAVESEG+19
, SAVESEG+20, SAVESEG+21, SAVEELM+8~, SAVEELM+12*, SAVEELM+14, SAVEELM+16, SAVEELM+18, SAVEELM+19, SAVEELM+20, SAVEELM+21
, SAVEELM+22, SAVEELM+23, SAVEELM+24, SAVEELM+25, DELCUS+6~, DELCUS+11*, DELCUS+12, DELCUS+14, DELCUS+16, DELCUS+17
, DELCUS+23, DELCUS+27, DELCUS+28, DELCUS+32, DELCUS+35, DELSTDV+6~
X VALID+4~, VALID+25*, CHKCODE+5~, ERROR+1~
Y ERROR+1~, ERROR+6
ZE ERROR+1~, ERROR+2*, ERROR+3, ERROR+5, ERROR+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 |  Local Variables  | All