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 |
