| FIELD | 
- 
- FIELD ORDER:    1
 
- PRE ACTION:    D HLP^DDSUTL("Enter a coding system, type '?' for a list. To enter a second instance of a coding system, use quotes around the coding system abbreviation.")
 
- FIELD TYPE:    DATA DICTIONARY FIELD
 
- UNIQUE NAME:    CODING SYSTEM
 
- DATA COORDINATE:    2,2
 
- DATA LENGTH:    7
 
 
- 
- FIELD ORDER:    2
 
- PRE ACTION:    D CODEPRE^PXHFSM(.DA)
 
- POST ACTION ON CHANGE:    D CODEPAOC^PXHFSM(.DA)
 
- FIELD TYPE:    DATA DICTIONARY FIELD
 
- UNIQUE NAME:    CODE
 
- DATA COORDINATE:    2,13
 
- DATA LENGTH:    40
 
 
- 
- FIELD ORDER:    3
 
- CAPTION:    !M
 
- EXECUTABLE CAPTION:    S Y=$$LINKED^PXHFSM(.DA)
 
- FIELD TYPE:    CAPTION ONLY
 
- CAPTION COORDINATE:    2,58
 
 
- 
- FIELD ORDER:    4
 
- PRE ACTION:    D DELPRE^PXHFSM
 
- POST ACTION ON CHANGE:    D DELPAOC^PXHFSM(X,.DA)
 
- FIELD TYPE:    FORM ONLY
 
- READ TYPE:    YES OR NO
 
- HELP:    
Enter "Y" to unlink this code.
 
 
- SAVE CODE:    D UNLINK^PXHFSM(X,.DA)
 
- UNIQUE NAME:    DELETE
 
- DATA COORDINATE:    2,65
 
- DATA LENGTH:    1
 
- DISABLE EDITING:    YES
 
 
 
 |