PSSFILED ;BIR/CML3-VARIOUS FILED UPKEEP ;09/15/97
Source file <PSSFILED.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DONE | ;S X="PSGSETU" X ^%ZOSF("TEST") I D ENKV^PSGSETU K D0,D1,D2,PSGRBS Q
|
|
| GED | ; generic edit
|
|
| ENAT | ; team file
|
|
| ENAS | ; schedules file - no longer used
|
|
| ENMR | ; med route file
|
|
| ENWG | ; ward group file
|
|
| CHKNSY(PSSMIFLD) | ; -- check Name and Synonym Fields **pss_1_201**
; Called by: Name (#.01)and Synonym (#.5) Input Transforms ; Input -- PSSMIFLD Field -- .01=NAME, .5=SYNONYM ; X Name (#.01) or Synonym (#.5) ; PSSMIACT Action -- for Lookup=LKUP and Edit=EDIT -- set in ENMI line tag ; PSSMIEN Medication Instruction file (#51) IEN -- set in ENMI line tag ; Output -- X is killed if duplicate exists |
|
| GETVAL(PSSMIFLD,PSSMIEN,PSSMIENO) | ; -- get Name or Synonym or Old Medication Instruction Name Field Value **pss_1_201**
; Called by: Name (#.01)and Synonym (#.5) Input Transforms ; Input -- PSSMIFLD Field -- .01=NAME, .5=SYNONYM, 33,.01=OMINAME ; PSSMIEN Medication Instruction file (#51) IEN ; PSSMIENO Old Med Instruction Name(s) multiple (#51.33) IEN ; Output -- Name (#.01) or Synonym (#.5) or Old Medication Instruction Name Field (#51.33,.01) Value |
|
| ISOMIDUP(X,PSSMIDA) | ; -- Is there a duplicate in the Old Med Instruction Name(s) sub-file (#51.33) **pss_1_201**
; Input -- X Medication Instruction file (#51) Name (#.01) field or Synonym (#.5) field ; Output -- 1=Duplicate Found and 0=Unable to Check or No Duplicate Found ; PSSMIDA Old Med Instruction Name(s) multiple (#51.33) IEN Array |
|
| EXEHLP | ; -- Name, Synonym and Old Med Instruction Name Fields Executable Help **pss_1_201**
; Called by: Name (#.01), Synonym (#.5) and Old Med Instruction Name(s) (#51.33,.01) Executable Help ; Input -- PSSMIMSG Medication Instruction Message Flag and Array -- set in OMICHK and CHKNSY line tags ; Output -- None |
|
| CHKOMI(PSSMIFLD) | ; -- check Old Med Instruction Name Field **pss_1_201**
; Called by: Old Med Instruction Name(s) (#51.33,.01) Input Transform ; Input -- PSSMIFLD Field -- 33,.01=OMINAME ; X Old Med Instruction Name(s) multiple (#51.33) Name (#.01) field ; PSSMIACT Action -- for Lookup=LKUP and Edit=EDIT -- set in ENMI line tag ; PSSMIEN Medication Instruction file (#51) IEN -- set in ENMI line tag ; PSSMIENO Old Med Instruction Name(s) multiple (#51.33) IEN -- set in ENOMI line tag ; Output -- X is killed if duplicate exists |
|
| DELOMI(PSSMIEN,PSSMIENO) | ; -- delete entry from OLD MED INSTRUCTION NAME(S) multiple #51.33 **pss_1_201**
; Input -- PSSMIEN Medication Instruction file (#51) IEN ; PSSMIENO Old Med Instruction Name(s) multiple (#51.33) IEN ; Output -- None |
|
| ISNSYDUP(X,PSSMIDA) | ; -- Is there a duplicate in the Name or Synonym field of the Medication Instruction file (#51) **pss_1_201**
; Input -- X Old Med Instruction Name(s) multiple (#51.33) Name (#.01) field ; Output -- 1=Duplicate Found and 0=Unable to Check or No Duplicate Found ; PSSMIDA Medication Instruction file (#51) IEN |
|
| ENMI | ; medication instruction file **enhancements made in pss_1_201**
|
|
| ENMIQ | ||
| ENOMI(PSSPMI,PSSDA) | ; prompt to display interaction for OLD MED INSTRUCTION NAME(S) multiple **enhancements made in pss_1_201**
|
|
| SELOMI | ; -- select Old Med Instruction Name
|
|
| ENOMIQ | ||
| OMILE(PSSDA,PSSLR) | ;
|
|
| ENOMIX(PSSPMI,PSSDA) | ; used by the 'AF' xref for adding an edited NAME (#.01) field's old value in the MEDICATION INSTRUCTION (#51) file to the OLD MED INSTRUCTION NAME(S) multiple **pss_1_201**
|
|
| ENDRG | ; standard drug fields
|
|
| DE | ;
|
|
| ENOSE | ; order set enter/edit
|
|
| RBCHK | ; used to validate room-bed
|
|
| RBQ | ; show room-beds for a ward
|
|
| RBNP | ;W """^"" TO STOP: " R Z3:DTIME W:'$T $C(7) S:'$T Z3="^" W *13," ",*13 Q
|
|
| ENPPD | ; edit pharmacy patient data
|
|
| ENCPDD | ; edit patient's default stop date (wall)
|
|
| ENSYS | ; edit system file
|
|
| ENPLSP | ; edit pick list site parameters
|
|
| ENCS | ; change current site & parameters
|
|
| DF | ; Add/edit Med route, instruction... to the Dosage form file.
|
|
| ENII | ; infusion instruction file
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| 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 |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^PSDRUG - [#50] | Classic Fileman Calls |
| ^PS(50.606 - [#50.606] | Classic Fileman Calls |
| ^PS(51 - [#51] | Classic Fileman Calls |
| ^PS(51.2 - [#51.2] | Classic Fileman Calls |
| ^PS(53.47 - [#53.47] | Classic Fileman Calls |
| ^PS(59.7 - [#59.7] | Classic Fileman Calls |
