Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^SRO(136

Package: Surgery

Global: ^SRO(136


Information

FileMan FileNo FileMan Filename Package
136 SURGERY PROCEDURE/DIAGNOSIS CODES Surgery

Description

Directly Accessed By Routines, Total: 69

Package Total Routines
Surgery 62 DONOR RACE    OTHER POSTOP DIAGNOSIS CODES    SRO1L1    SROACC0    SROACC1    SROACC2    SROACC3    SROACC4
SROACC5    SROACC6    SROACCM    SROACOD    SROACOM    SROACOM1    SROACOP    SROAEX
SROALEC    SROALM    SROALMN    SROALNC    SROALST    SROANEST    SROAOP    SROAOP1
SROAOTH    SROAPCA1    SROAPRT6    SROAR1    SROAR2    SROASS    SROATCM1    SROATM2
SROATM3    SROATMNO    SROAUTL    SROAUTL0    SROAX    SROCD    SROCD0    SROCD1
SROCD2    SROCD3    SROCD4    SROCDX    SROCDX1    SROCDX2    SROCPT0    SROMOD0
SRONAN1    SROPCE0    SROPCEP    SROPCEX    SROQN    ^SRO(136    SRONOP1    SROPCE0A
SROPDEL    SROQIDP    SROUTLN    SRSAVG    SRSCPT1    SRSCPT2    
DSS Extracts 2 ECXSURG    ECXUTL6    
VA FileMan 2 ITEM    YEAR    
Virtual Patient Record 1 VPRP20    

Accessed By FileMan Db Calls, Total: 12

Package Total Routines
Surgery 5 SROCD    SROCD0    SROCD1    SRONOP1    SROPDEL    
Virtual Patient Record 3 VPRDJ07    VPRDSR    VPRSDASR    
Enterprise Health Management Platform 2 HMPDJ07    HMPDSR    
Health Summary 1 GMTSRON    
VistA Integration Adapter 1 VIABRPC4    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
CPT HCPCS Codes 2 CPT MODIFIER(#81.3)[#136.01(.01), #136.31(.01)]    CPT(#81)[.02, #136.03(.01)]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[.03, #136.02(.01), #136.04(.01), #136.32(.01)]    
Kernel 1 NEW PERSON(#200)[#136.011(.01)]    
Surgery 1 SURGERY(#130)[.01]    

Fields, Total: 17

Field # Name Loc Type Details
.01 SURGERY CASE 0;1 POINTER TO SURGERY FILE (#130)
************************REQUIRED FIELD************************
SURGERY(#130)

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  DEC 14, 2004
  • HELP-PROMPT:  Enter the matching case in the SURGERY file (#130).
  • DESCRIPTION:  
    This is the case in the SURGERY file associated with this file entry.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  136^B
    1)= S ^SRO(136,"B",$E(X,1,30),DA)=""
    2)= K ^SRO(136,"B",$E(X,1,30),DA)
.02 PRINCIPAL PROCEDURE CODE 0;2 POINTER TO CPT FILE (#81) CPT(#81)

  • INPUT TRANSFORM:  D IN^SROCPT S DIC("S")="I $$ACTIV^SROCPT($S($D(SRTN):SRTN,$D(DA):DA,1:""""),+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) PHYPH^SROMOD0
  • OUTPUT TRANSFORM:  D DISPLAY^SROCPT0
  • LAST EDITED:  JUL 31, 2005
  • HELP-PROMPT:  Enter the CPT code for the principal procedure.
  • DESCRIPTION:  
    This is the Current Procedural Terminology (CPT) code corresponding with the principal procedure.
  • SCREEN:  S DIC("S")="I $$ACTIV^SROCPT($S($D(SRTN):SRTN,$D(DA):DA,1:""""),+Y)"
  • EXPLANATION:  Screen out Inactive Codes.
  • DELETE TEST:  1,0)= I 1 D EN^DDIOL("Deletion of the Principal Procedure Code is not allowed! ",,"!!,?2")
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.03 PRIN POSTOP DIAGNOSIS CODE 0;3 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  D GETAPI^SROICDGT("SURG","DIAG",$S($G(DA):DA,$G(SRTN):SRTN,1:""))
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  JUN 29, 2012
  • HELP-PROMPT:  Enter the ICD Diagnosis code for the principal postoperative diagnosis.
  • DESCRIPTION:  
    This is the principal postoperative ICD diagnosis code.
  • DELETE TEST:  1,0)= I 1 D EN^DDIOL("Deletion of the Principal Postop Diagnosis Code is not allowed! ",,"!!,?2")
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.04 SERVICE CONNECTED (PRIN) 0;4 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 11, 2005
  • HELP-PROMPT:  If the principal diagnosis is a service connected problem, enter YES.
  • DESCRIPTION:  
    This field indicates if the principal diagnosis is a service connected problem. This information may be passed to the VISIT file (#9000010) for use by PCE.
.05 AGENT ORANGE EXPOSURE (PRIN) 0;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 11, 2005
  • HELP-PROMPT:  If the principal diagnosis is an agent orange exposure problem, enter YES.
  • DESCRIPTION:  
    This field indicates if the principal diagnosis is an agent orange exposure problem. This information may be passed to the VISIT file (#9000010) for use by PCE.
.06 IONIZING RAD EXPOSURE (PRIN) 0;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 12, 2005
  • HELP-PROMPT:  If the principal diagnosis is an ionizing radiation exposure problem, enter YES.
  • DESCRIPTION:  
    This field indicates if the principal diagnosis is an ionizing radiation exposure problem. This information may be passed to the VISIT file (#9000010) for use by PCE.
.07 SOUTHWEST ASIA CONDITIONS (PR) 0;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 28, 2006
  • HELP-PROMPT:  If the principal diagnosis is a problem related to service in SW Asia, enter YES.
  • DESCRIPTION:  
    This field indicates if the principal diagnosis is related to service in SW Asia. This information may be passed to the VISIT file (#9000010) for use by PCE.
.08 MILITARY SEXUAL TRAUMA (PRIN) 0;8 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 12, 2005
  • HELP-PROMPT:  If the principal diagnosis is related to military sexual trauma, enter YES.
  • DESCRIPTION:  
    This field indicates if the principal diagnosis is a military sexual trauma problem. This information may be passed to the VISIT file (#9000010) for use by PCE.
.09 HEAD AND/OR NECK CANCER (PRIN) 0;9 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 12, 2005
  • HELP-PROMPT:  If the principal diagnosis is a problem related to head and/or neck cancer, enter YES.
  • DESCRIPTION:  
    This field indicates if the principal diagnosis is a head and/or neck cancer problem. This information may be passed to the VISIT file (#9000010) for use by PCE.
.1 COMBAT VET (PRIN) 0;10 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 12, 2005
  • HELP-PROMPT:  If the principal diagnosis is a problem related to combat, enter YES.
  • DESCRIPTION:  
    This field indicates if the principal diagnosis is a combat related problem. This information may be passed to the VISIT file (#9000010) for use by PCE.
.11 PROJ 112/SHAD (PRIN) 0;11 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  NOV 17, 2005
  • HELP-PROMPT:  If the principal diagnosis is a problem related to PROJ 112/SHAD, enter YES.
  • DESCRIPTION:  
    This field indicates if the principal diagnosis is a PROJ 112/SHAD related problem. This information may be passed to the VISIT file (#9000010) for use by PCE.
1 PRIN PROCEDURE CPT MODIFIERS 1;0 POINTER Multiple #136.01 136.01

  • LAST EDITED:  DEC 15, 2004
2 PRIN ASSOCIATED DIAGNOSES 2;0 POINTER Multiple #136.02 136.02

  • LAST EDITED:  DEC 15, 2004
3 OTHER PROCEDURE CODES 3;0 POINTER Multiple #136.03 136.03
4 OTHER POSTOP DIAGNOSIS CODES 4;0 POINTER Multiple #136.04 136.04

  • LAST EDITED:  JAN 12, 2005
10 CODING COMPLETE 10;1 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 09, 2005
  • HELP-PROMPT:  Enter YES if the record is complete and ready to send to PCE.
  • DESCRIPTION:  
    This field indicates if the coding record is complete for this case and is ready to send to PCE.
    WRITE AUTHORITY: ^
11 CODING COMPLETED BY 11;0 POINTER Multiple #136.011 136.011

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #4872
  • DSS - DECISION SUPPORT SYSTEM EXTRACTS
  • Spinal Cord Dysfunction
  • Virtual Patient Record
  • Health Summary
  • VistA Integration Adapter
    		•  PRINCIPAL PROCEDURE CODE (.02).
    Access: Direct Global Read & w/Fileman

    PRIN POSTOP DIAGNOSIS CODE (.03).
    Access: Direct Global Read & w/Fileman

    OTHER PROCEDURE CODE (.01).
    Access: Direct Global Read & w/Fileman

    OTHER POSTOP DIAGNOSIS CODE (.01).
    Access: Direct Global Read & w/Fileman

    PRIN PROCEDURE CPT MODIFIER (.01).
    Access: Direct Global Read & w/Fileman

    OTHER PROCEDURE CPT MODIFIER (.01).
    Access: Direct Global Read & w/Fileman

    External References

    Name Field # of Occurrence
    EN^DDIOL .02DEL1+1, .03DEL1+1
    ^DIC .02+1
    IN^SROCPT .02+1
    DISPLAY^SROCPT0 .02OT+1
    $$OUT^SROICD .03OT+1
    GETAPI^SROICDGT .03+1
    PHYPH^SROMOD0 .02+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^SRO(136 - [#136] .01(XREF 1S), .01(XREF 1K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> DA .01(XREF 1S), .01(XREF 1K), .03+1
    DIC .02+1!*
    DIC("S" .02+1*, .02SCR+1*
    >> DIE .02+1
    >> DINUM .01+1*
    >> SRTN .03+1
    X .01+1, .01(XREF 1S), .01(XREF 1K), .02+1*!
    >> Y .02+1, .02OT+1, .03OT+1*
    >> Y(0 .02OT+1*, .03OT+1*
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Local Variables  | All