PSON52 ;BIR/DSD - files new entries in prescription file ;Jan 20, 2022@11:18:18
Source file <PSON52.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(PSOX) | ;Entry Point
|
|
START | ;
|
|
END | ||
INIT | ;
|
|
DT | ||
INITX | ||
NFILE | ||
IBQ | ;I $G(PSOBILL)=2 S ^PSRX(PSOX("IRXN"),"IBQ")=$S($G(PSOX("NEWCOPAY")):0,1:1)
|
|
ACLOG | ;activity log (digitally signed CS orders)
|
|
PS55 | ;
|
|
PS55X | ||
DIK | ;
|
|
FINISH | ;
|
|
ANQ | ||
FINISHP | ;
|
|
FINISHX | ;call to build Rx array for bingo board
|
|
SAVETIT(TITRX,MNTRX) | ; Save Titration/Maintenance dose Rx information
|
|
EOJ | ;
|
|
DD | ;;PSOX("RX #");;0;;1
|
FileNo | Call Tags |
---|---|
^PSDRUG - [#50] | GET1^DIQ |
^PSRX - [#52] | Classic Fileman Calls, GET1^DIQ |
^PS(52.49 - [#52.49] | GET1^DIQ |
^PS(52.52 - [#52.52] | Classic Fileman Calls, FIND1^DIC |