PSGOEE ;BIR/CML-EDIT ACTIVE OR NON VERIFIED ORDERS ;DEC 07, 2022@14:30
Source file <PSGOEE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 531 | ; edit orders in 53.1
|
|
| ENF | ; Entry point
|
|
| ACT | ; Perform Edit
|
|
| ACT1 | ; Continue editing
|
|
| EDIT | ; Edit
|
|
| EDLOOP | ; Continue prompting for fields to edit.
|
|
| OC | ;Perform OC (only when OI or Dosage was edited) & dosing check
|
|
| CHKDD | ;*** Check inactive Dispense drug within the order.
|
|
| CKDT | ; Check if new start/stop dates should be calculated.
|
|
| NEW3 | ;
|
|
| NEW | ;
|
|
| UPD | ;
|
|
| OUT | ;
|
|
| DONE | ;
|
|
| DONE1 | ;
|
|
| K1 | ;
|
|
| ABORT | ; Display no change message and pause.
|
|
| GTSTATUS | ; Determine status of new order and set LM title.
|
|
| ASKOVR(Y,PSJOVRON,PSJSTARI) | ||
| FIELDS | ;
|
|
| 31 | ;;101^PSGOE8;PSGOPD;PSGPD;101;1
|
|
| 32 | ;;109^PSGOE8;PSGODO;PSGDO;109;PSGODO]""
|
|
| 33 | ;;10^PSGOE81;PSGOSD;PSGSD;10;0
|
|
| 34 | ;;3^PSGOE8;PSGOMR;PSGMR;3;1
|
|
| 35 | ;;25^PSGOE81;PSGOFD;PSGFD;25;0
|
|
| 36 | ;;7^PSGOE8;PSGOST;PSGST;7;0
|
|
| 37 | ;;5^PSGOE82;PSGOSM;PSGSM;5;0
|
|
| 38 | ;;26^PSGOE8;PSGOSCH;PSGSCH;26;1
|
|
| 39 | ;;39^PSGOE81;PSGOAT;PSGAT;39;0
|
|
| 310 | ;;1^PSGOE82;PSGOPR;PSGPR;1;1
|
|
| 311 | ;;8^PSGOE81;PSGOSI;PSGSI;8;0
|
|
| 312 | ;;2^PSGOE82;;;2;0
|
|
| 313 | ;;40^PSGOE82;;;40;0
|
|
| 314 | ;;132^PSGOE41;PSGOIND;PSGIND;132;0
|
|
| 315 | ;;50^PSGOE82;P("CLINO");P("CLIN");113;0
|
|
| 316 | ;;51^PSGOE82;P("APPTO");P("APPT");126;0
|
|
| 51 | ;;101^PSGOE9;PSGOPD;PSGPD;101;1
|
|
| 52 | ;;109^PSGOE9;PSGODO;PSGDO;109;PSGODO]""
|
|
| 53 | ;;10^PSGOE91;PSGOSD;PSGSD;10;1
|
|
| 54 | ;;3^PSGOE9;PSGOMR;PSGMR;3;1
|
|
| 55 | ;;34^PSGOE91;PSGOFD;PSGFD;34;1
|
|
| 56 | ;;7^PSGOE9;PSGOST;PSGST;7;0
|
|
| 57 | ;;5^PSGOE92;PSGOSM;PSGSM;5;0
|
|
| 58 | ;;26^PSGOE9;PSGOSCH;PSGSCH;26;1
|
|
| 59 | ;;41^PSGOE91;PSGOAT;PSGAT;41;0
|
|
| 510 | ;;1^PSGOE92;PSGOPR;PSGPR;1;1
|
|
| 511 | ;;8^PSGOE91;PSGOSI;PSGSI;8;0
|
|
| 512 | ;;2^PSGOE92;;;2;0
|
|
| 513 | ;;15^PSGOE92;;;15;0
|
|
| 514 | ;;132^PSGOE41;PSGOIND;PSGIND;132;0
|
|
| 515 | ;;50^PSGOE82;P("CLINO");P("CLIN");130;0
|
|
| 516 | ;;51^PSGOE82;P("APPTO");P("APPT");131;0
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^PS(53.1 - [#53.1] | Classic Fileman Calls, GET1^DIQ |
| 55.06 | GET1^DIQ |
