| $$PM |
Scheduling calls this API ($$PM^TIUPXPM) in order to
determine if a progress note has been signed/co-signed/amended, properly
signed/co-signed/amended, and date signed. This is done on a visit by visit
basis.
Based upon the VISIT IEN, the API shall match records to appropriate TIU
DOCUMENT entries in file # 8925 and shall return back to the Scheduling
package the information on whether the VISIT IEN has an associated Progress
Note (or Addendum) signed by the appropriate provider for that encounter and
shall return the Note Category, Signed By, Signed By Date/Time, Co-Signed By,
Co-Signed By Date/Time data back to the PIMS package.
Sample use
-------------
S VIEN=$P(^SCE(PTRENC,0),U,5)
S NOTEINFO=$$PM^TIUPXPM(VIEN)
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
VIEN |
Input |
Pointer to visit file (9000010)
|
$$PM |
Output |
Returns:
String with 6 fields ('^' delimiter)
1 VIEN
2 Note Category (A-E)
3 Signed By (pointer to File #200)
4 Signed Date.Time (FM format)
5 Co-signed By (pointer to File #200) - defined only if necessary
6 Co-signed Date.Time - defined only if necessary
Categories
Note Status Cat
--------------------------- -------
No note for the Visit IEN A
Acceptable Note B
Unacceptable Note C
Scanned Image D
Purged, Deleted, or Retracted note E
|
|
