Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
^PS(59 - [#59] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call